Questions tagged «r»

我一直在阅读这ggplot2两个功能的文档。我想知道有什么区别，使用每个函数（facet_wrap()和facet_grid()）的正确情况是什么。 library(ggplot2) p <- qplot(displ, hwy, data = mpg) p + facet_wrap(~ cyl) p + facet_grid(~ cyl) 我提供了这个小例子作为起点。差异似乎是包裹性的，使地块更具自治性，而网格使一个地块在一起。

80 r  ggplot2  facet-wrap 

我对Rstudio有一个奇怪的问题：如果脚本调用ggplot2函数来显示图，那么使用Source运行脚本不会生成图。如果我选择与整个脚本Ctrl+A，然后运行当前行或选择（Ctrl+Enter），然后剧情确实显示。同样，在控制台中键入绘图命令会产生正确的输出。 例如： library(ggplot2) p = ggplot(mtcars, aes(wt, mpg)) p + geom_point() 仅在粘贴到控制台中时才会产生输出，而在源中则不会产生输出。 关于此还有其他问题，但都无济于事： ggplot2 ggsave函数导致图形设备不正确显示绘图，声称该问题已在较新版本中解决，但尚未解决。 RStudio - ggplot打印和保存在脚本中多条曲线时不保存第一条曲线被关闭为重复，但它不仅是不重复的，但dev.off()解决办法不是没有工作（” Error in dev.off() : cannot shut down device 1 (the null device)“） 采购脚本时，如何使Rstudio显示图？我正在使用Rstudio 0.98.1062和R 3.1.1。

80 r  ggplot2  rstudio 

在中ggplot2，可以轻松地将图形保存到R对象中。 p = ggplot(...) + geom_point() # does not display the graph p # displays the graph 标准函数plot将图形生成为void函数，并返回NULL。 p = plot(1:10) # displays the graph p # NULL 是否可以保存由plot对象创建的图形？

80 r  plot 

我希望知道为什么message()比print()打印诊断消息时更好的选择。 例如，该print()函数是打印R对象（如）的更好选择'iris'，而message()当我们要连接字符串（例如message("a", "b")比短）时则更好print(paste0("a", "b"))。 但是，我认为比上面列出的简单差异更多。我已经阅读了这两种方法的文档 http://stat.ethz.ch/R-manual/R-devel/library/base/html/message.html， http://stat.ethz.ch/R-manual/R-devel/library/base/html/print.html 但是，它们似乎不像我对问题的希望那样丰富。 如果有人让我们知道在哪种情况下message()比更好print()，为什么呢，我将不胜感激。

80 r 

我知道这不是一个数据可视化问题，而是老板要求的，所以我需要弄清楚是否有可能。 谢谢！

80 r  ggplot2  strip  facet 

我想将格式良好的数据帧打印到纸张上，最好是在脚本中打印。（我正在尝试使用仪器收集数据，并使用R脚本自动处理和打印数据）。 现在，我可以使用来将数据帧写入文本文件write.table()，但这有两个问题： 产生的文本文件格式不正确（列不一定与其标题对齐），并且 我不知道如何从R中打印文本文件。 我在寻找一般策略而不是特定代码（尽管代码也很棒！）。Sweave是最方便的解决方案吗？原则上，我可以使用它socketConnection()来打印到打印机上-如果可以的话，在哪里可以了解如何使用它（我发现文档没有什么帮助）。

79 r  dataframe  formatting 

有人知道R中的插槽吗？ 我没有找到其含义的解释。我得到一个递归定义：“插槽函数返回或设置有关对象各个插槽的信息” 帮助将不胜感激，谢谢-胡同

79 oop  r  s4  slot  r-faq 

我想提取字符串的前n个字符。这将等同于Excel的LEFT()和RIGHT()。一个小例子： # create a string a <- paste('left', 'right', sep = '') a # [1] "leftright" 我想产生b一个字符串，该字符串等于的前4个字母a： b # [1] "left" 我该怎么办？

79 string  r 

假设您要将矩阵转换为列表，列表的每个元素都包含一列。list()或as.list()显然将无法正常工作，直到现在我还是使用hack的行为tapply： x <- matrix(1:10,ncol=2) tapply(x,rep(1:ncol(x),each=nrow(x)),function(i)i) 我对此并不完全满意。有人知道我忽略了一种更清洁的方法吗？ （为使列表充满行，显然可以将代码更改为： tapply(x,rep(1:nrow(x),ncol(x)),function(i)i) ）

79 list  r  matrix 

我知道如何添加列表列： > df <- data.frame(a=1:3) > df$b <- list(1:1, 1:2, 1:3) > df a b 1 1 1 2 2 1, 2 3 3 1, 2, 3 这可行，但不可行： > df <- data.frame(a=1:3, b=list(1:1, 1:2, 1:3)) Error in data.frame(1L, 1:2, 1:3, check.names = FALSE, stringsAsFactors = TRUE) : arguments imply differing …

79 r  list  dataframe 

我想将来自两个不同data.frames的两个ggplots组合到一个绘图中。在下面，您将找到代码。我想结合图1＆2或图3＆4。 df1 <- data.frame(p=c(10,8,7,3,2,6,7,8), v=c(100,300,150,400,450,250,150,400)) df2 <- data.frame(p=c(10,8,6,4), v=c(150,250,350,400)) plot1 <- qplot(df1$v, df1$p) plot2 <- qplot(df2$v, df2$p, geom="step") plot3 <- ggplot(df1, aes(v, p)) + geom_point() plot4 <- ggplot(df2, aes(v, p)) + geom_step() 这必须很容易做到，但是以某种方式我无法使其正常工作。谢谢你的时间。

79 r  ggplot2 

我有一个非常大的数据框，其中行作为观察值，列作为遗传标记。我想创建一个新列，其中包含使用R为每个观察选择的列数之和。 如果我有200列和100行，我想创建一个新列，该列有100行，其总和是从43到167列。这些列有1或0。新列包含每个列的总和行，我将能够对那些遗传标记最多的人进行排序。 我觉得这很接近： data$new=sum(data$[,43:167])

79 r 

我有一个空行的数据集。我想删除它们： myData<-myData[-which(apply(myData,1,function(x)all(is.na(x)))),] 可以。但是现在我想在数据中添加一列并初始化第一个值： myData$newCol[1] <- -999 Error in `$<-.data.frame`(`*tmp*`, "newCol", value = -999) : replacement has 1 rows, data has 0 不幸的是，这是行不通的，我也不是很清楚为什么，我也无法解决。当我使用以下命令一次删除一行时，它起作用了： TgData = TgData[2:nrow(TgData),] 或类似的东西。 当我仅使用前13.000行时，它也可以工作。 但是它不能用于我的实际数据（32.000行）。 我做错什么了？这对我来说似乎毫无意义。

79 r 

R是否提供对象/函数/方法/关键字来获取所有函数参数？ 用一个例子： function(a, b="default", ...)将提供a和b以及...内部的功能环境。有没有一种说法类似list(...)，这也将包括a与b在结果？ 或者换另一种方式：一个速记list(a=a, b=b, ...)，给function(a, b, ...)

79 r 

这是我的数据的链接。 我的目标是为所有空白单元格分配“ NA”，而与类别或数值无关。我正在使用na.strings =“”。但这不是将NA分配给所有空白单元格。 ## reading the data dat <- read.csv("data2.csv") head(dat) mon hr acc alc sex spd axles door reg cond1 drug1 1 8 21 No Control TRUE F 0 2 2 Physical Impairment (Eyes, Ear, Limb) A 2 7 20 No Control FALSE M 900 2 2 Inattentive …

79 r  na