我试图用dplyr(data set = dat,variable = x)找出一种简单的方法来做这样的事情:
day$x[dat$x<0]=NA
Run Code Online (Sandbox Code Playgroud)
应该很简单,但这是我现在能做的最好的事情.有没有更简单的方法?
dat = dat %>% mutate(x=ifelse(x<0,NA,x))
Run Code Online (Sandbox Code Playgroud) 我正在RStudio(.Rpres)中创建一个演示文稿.我有一个太大的数字,超出了屏幕.我怎样才能减少它?
太大了,需要减小尺寸
Figure 1
========================================================

Run Code Online (Sandbox Code Playgroud) 使用 ggplot2 绘制连续数据时,有没有办法在轴上包含字符值?我已经审查了数据,例如:
x y Freq
1 -3 16 3
2 -2 12 4
3 0 10 6
4 2 7 7
5 2 4 3
Run Code Online (Sandbox Code Playgroud)
最后一行数据经过右删失。我正在使用下面的代码绘制此图以生成以下图:
a1 = data.frame(x=c(-3,-2,0,2,2), y=c(16,12,10,7,4), Freq=c(3,4,6,7,3))
fit = ggplot(a1, aes(x,y)) + geom_text(aes(label=Freq), size=5)+
theme_bw() +
scale_x_continuous(breaks = seq(min(a1$x)-1,max(a1$x)+1,by=1),
labels = seq(min(a1$x)-1,max(a1$x)+1,by=1),
limits = c(min(a1$x)-1,max(a1$x)+1))+
scale_y_continuous(breaks = seq(min(a1$y),max(a1$y),by=2))
Run Code Online (Sandbox Code Playgroud)

(2,4) 处的 3 个点是右删失的。我希望将它们绘制到右侧一个单位,并使用相应的 xaxis 刻度标记“>=2”而不是 3。如果可能,有什么想法吗?
是否可以从Shiny内部加载数据(例如csv文件),或者所有相关数据是否都需要在源代码中?
我有兴趣开发一个Shiny App并分发它,但数据将来自用户的机器,我想从Shiny中加载.
如果无法从Shiny App直接加载,那么用户指定数据的最佳方式是什么?这适用于没有R经验的用户,因此我希望尽可能简化.
我想打印一个数据框,其中列是居中对齐的.下面是我尝试的内容,我认为打印数据框test1会导致列在中心对齐,但事实并非如此.有关如何做到这一点的任何想法?
test=data.frame(x=c(1,2,3),y=c(5,6,7))
names(test)=c('Variable 1','Variable 2')
test[,1]=as.character(test[,1])
test[,2]=as.character(test[,2])
test1=format(test,justify='centre')
print(test,row.names=FALSE,quote=FALSE)
Variable 1 Variable 2
1 5
2 6
3 7
print(test1,row.names=FALSE,quote=FALSE)
Variable 1 Variable 2
1 5
2 6
3 7
Run Code Online (Sandbox Code Playgroud) 假设我有一个整数向量,例如:
> x
[1] 1 1 1 4 4 13 13 14
Run Code Online (Sandbox Code Playgroud)
我正在寻找一种有效的方法在R中将向量重新调整为整数1到唯一元素数的最大值.因此得到的矢量将是:
1 1 1 2 2 3 3 4
Run Code Online (Sandbox Code Playgroud)
看起来像一个简单的问题,但我找不到一个有效的方法来做到这一点.实际上,这个向量很大(大约500).
我一直在做研究,但不太清楚如何构建调用 C 函数的 R 包,以便它能够在 Windows 和 Linux 环境中工作。我正在 Linux 机器上构建该包。
我有两个 C 文件,一个.C 和两个.C,我在使用 package.sculpture(...) 后将这两个文件放在 src 目录中。在命名空间文件中,我使用命令:useDynLib(one,two)。它是否正确?或者我是否需要输入实际的函数名称而不是文件名?我需要导出函数名称吗?
我是否需要将 .so 文件放在 src 目录中,还是会自动创建这些文件?我担心它无法在需要 .dll 文件的 Windows 计算机上运行。
正如你所看到的,我有点困惑,谢谢你的帮助。
我为两个模型拟合了 500 条曲线。我根据模型绘制每个拟合以检查相似性。问题是一组线会覆盖另一组。在下面的示例中,逻辑线完全被样条线覆盖。
有没有办法可以绘制两个拟合并防止重叠,这样我仍然可以看到两组线?也许通过改变颜色或使用不同的几何图形?
ggplot(data=fullData,aes(X,Y,color=Model,group=id))+geom_line()
Run Code Online (Sandbox Code Playgroud)

> dput(head(fullData))
structure(list(X = c(-6, -5.97595190380762, -5.95190380761523,
-5.92785571142285, -5.90380761523046, -5.87975951903808), Model = c("Logistic",
"Logistic", "Logistic", "Logistic", "Logistic", "Logistic"),
Y = c(40.2327812336246, 40.2062250618146, 40.1837765087578,
40.1613100197852, 40.1387156930829, 40.1159930605682), id = c(1L,
1L, 1L, 1L, 1L, 1L)), .Names = c("X", "Model", "Y", "id"), row.names = c(NA,
6L), class = "data.frame")
Run Code Online (Sandbox Code Playgroud) 我正在尝试保存一个 JSON 对象,其中每一行都是一条记录。如何保存 JSON 对象以使行数等于记录数(在下面的示例中为 5)?
library(jsonlite)
df=mtcars[1:5,]
x <- jsonlite::toJSON(df)
# remove brackets
x=substr(x,2,nchar(x)-1)
write_lines(x,"tmp.json")
Run Code Online (Sandbox Code Playgroud) r ×9
ggplot2 ×2
rstudio ×2
axes ×1
center-align ×1
dataframe ×1
dplyr ×1
formatting ×1
json ×1
presentation ×1
printing ×1
r-markdown ×1
rpres ×1
shiny ×1
vector ×1