小编Gle*_*len的帖子

使用dplyr将某些值设置为NA

我试图用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)

r dplyr

57
推荐指数
4
解决办法
3万
查看次数

控制Rstudio演示中的图形大小

我正在RStudio(.Rpres)中创建一个演示文稿.我有一个太大的数字,超出了屏幕.我怎样才能减少它?

太大了,需要减小尺寸

Figure 1
========================================================
![alt text](fig1)
Run Code Online (Sandbox Code Playgroud)

r presentation rstudio r-markdown rpres

8
推荐指数
1
解决办法
5185
查看次数

R ggplot2中连续轴上的字符值

使用 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。如果可能,有什么想法吗?

r axes ggplot2

5
推荐指数
1
解决办法
2602
查看次数

使用Shiny和RStudio导入数据

是否可以从Shiny内部加载数据(例如csv文件),或者所有相关数据是否都需要在源代码中?

我有兴趣开发一个Shiny App并分发它,但数据将来自用户的机器,我想从Shiny中加载.

如果无法从Shiny App直接加载,那么用户指定数据的最佳方式是什么?这适用于没有R经验的用户,因此我希望尽可能简化.

r rstudio shiny

5
推荐指数
1
解决办法
2214
查看次数

打印数据框,列中心对齐

我想打印一个数据框,其中列是居中对齐的.下面是我尝试的内容,我认为打印数据框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)

printing formatting r center-align dataframe

4
推荐指数
1
解决办法
6004
查看次数

重新缩放矢量R.

假设我有一个整数向量,例如:

> 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).

r vector

4
推荐指数
2
解决办法
326
查看次数

使用 C 代码为 Linux 和 Windows 构建 R 包

我一直在做研究,但不太清楚如何构建调用 C 函数的 R 包,以便它能够在 Windows 和 Linux 环境中工作。我正在 Linux 机器上构建该包。

我有两个 C 文件,一个.C 和两个.C,我在使用 package.sculpture(...) 后将这两个文件放在 src 目录中。在命名空间文件中,我使用命令:useDynLib(one,two)。它是否正确?或者我是否需要输入实际的函数名称而不是文件名?我需要导出函数名称吗?

我是否需要将 .so 文件放在 src 目录中,还是会自动创建这些文件?我担心它无法在需要 .dll 文件的 Windows 计算机上运行。

正如你所看到的,我有点困惑,谢谢你的帮助。

r

2
推荐指数
1
解决办法
3338
查看次数

ggplot2中的重叠线

我为两个模型拟合了 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)

r ggplot2

2
推荐指数
1
解决办法
7290
查看次数

使用每条记录的新行保存 R JSON 对象

我正在尝试保存一个 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)

json r

2
推荐指数
1
解决办法
1073
查看次数