Questions tagged «r»

一位朋友给我发送了关于R的有关在NYtimes上进行网络抓取的出色教程。我真的很想尝试。但是，第一步是从源代码安装名为RJSONIO的软件包。 我对R非常了解，但是我不知道如何从源代码安装软件包。 我正在运行Mac OSX。

392 r  package  install  r-faq 

在R，mean()并且median()是该做你所期望的标准功能。 mode()告诉您对象的内部存储模式，而不是在其参数中出现最多的值。但是是否有一个标准库函数实现矢量（或列表）的统计模式？

391 r  statistics  r-faq 

我经常发现自己写的R脚本会产生大量输出。我发现它更干净，可以将此输出放到自己的目录中。我在下面编写的内容将检查目录是否存在并移入该目录，或者创建目录然后移入该目录。有没有更好的方法来解决这个问题？ mainDir <- "c:/path/to/main/dir" subDir <- "outputDirectory" if (file.exists(subDir)){ setwd(file.path(mainDir, subDir)) } else { dir.create(file.path(mainDir, subDir)) setwd(file.path(mainDir, subDir)) }

388 r 

如何连接（合并，合并）两个值？例如，我有： tmp = cbind("GAD", "AB") tmp # [,1] [,2] # [1,] "GAD" "AB" 我的目标是将“ tmp”中的两个值连接为一个字符串： tmp_new = "GAD,AB" 哪个功能可以为我执行此操作？

375 r  string-concatenation  r-faq 

我有一个包含6列的R数据框，并且我想创建一个仅包含三列的新数据框。 假设我的数据帧df，我想提列A，B和E，这是唯一的命令，我可以计算出： data.frame(df$A,df$B,df$E) 有没有更紧凑的方法可以做到这一点？

364 r  dataframe  r-faq 

我在data.frame中的前导和尾随空白时遇到了一些麻烦。例如，我想看看在特定row的data.frame基础上有一定的条件： > myDummy[myDummy$country == c("Austria"),c(1,2,3:7,19)] [1] codeHelper country dummyLI dummyLMI dummyUMI [6] dummyHInonOECD dummyHIOECD dummyOECD <0 rows> (or 0-length row.names) 我想知道为什么我没有得到预期的产出，因为我的国家显然存在奥地利这个国家data.frame。在查看了我的代码历史记录并尝试找出出了什么问题之后，我尝试了： > myDummy[myDummy$country == c("Austria "),c(1,2,3:7,19)] codeHelper country dummyLI dummyLMI dummyUMI dummyHInonOECD dummyHIOECD 18 AUT Austria 0 0 0 0 1 dummyOECD 18 1 我在命令中所做的更改只是在奥地利之后增加了一个空白。 显然还会出现更多令人讨厌的问题。例如，当我想基于“国家/地区”列合并两个框架时。一个data.frame使用"Austria "而另一帧使用"Austria"。匹配无效。 有没有一种很好的方法可以在屏幕上“显示”空白，从而使我意识到问题所在？ 我可以删除R中的前导和尾随空格吗？ 到目前为止，我曾经写过一个简单的Perl脚本来删除空格，但是如果我能以某种方式在R中完成它会很好。

360 r  whitespace  trim  removing-whitespace  r-faq 

我绘制以下内容： library(ggplot2) carrots <- data.frame(length = rnorm(500000, 10000, 10000)) cukes <- data.frame(length = rnorm(50000, 10000, 20000)) carrots$veg <- 'carrot' cukes$veg <- 'cuke' vegLengths <- rbind(carrots, cukes) ggplot(vegLengths, aes(length, fill = veg)) + geom_density(alpha = 0.2) 现在说我只是想绘制之间的区域x=-5000来5000，而不是整个范围。 我怎样才能做到这一点？

358 r  plot  ggplot2 

我有两列的数据框。第一列包含诸如“第一”，“第二”，“第三”之类的类别，第二列具有代表我从“类别”中看到特定组的次数的数字。 例如： Category Frequency First 10 First 15 First 5 Second 2 Third 14 Third 20 Second 3 我想按类别对数据进行排序，并对所有频率求和： Category Frequency First 30 Second 5 Third 34 我将如何在R中执行此操作？

357 r  dataframe  aggregate  r-faq 

我有一个数据框。叫他bob： > head(bob) phenotype exclusion GSM399350 3- 4- 8- 25- 44+ 11b- 11c- 19- NK1.1- Gr1- TER119- GSM399351 3- 4- 8- 25- 44+ 11b- 11c- 19- NK1.1- Gr1- TER119- GSM399352 3- 4- 8- 25- 44+ 11b- 11c- 19- NK1.1- Gr1- TER119- GSM399353 3- 4- 8- 25+ 44+ 11b- 11c- 19- …

351 r  dataframe 

我有一组看起来像这样的数据： anim <- c(25499,25500,25501,25502,25503,25504) sex <- c(1,2,2,1,2,1) wt <- c(0.8,1.2,1.0,2.0,1.8,1.4) data <- data.frame(anim,sex,wt) data anim sex wt anim2 1 25499 1 0.8 2 2 25500 2 1.2 2 3 25501 2 1.0 2 4 25502 1 2.0 2 5 25503 2 1.8 2 6 25504 1 1.4 2 我希望在每个动物ID之前添加一个零： data …

351 r  formatting  number-formatting  r-faq 

如何查找字符串的长度（字符串中的字符数）而不用R拆分？我知道如何找到列表的长度而不是字符串的长度。 Unicode字符串呢？如何找到Unicode字符串的长度（以字节为单位）和字符数（符文，符号）？ 相关问题： 如何在R中的Unicode字符串中找到“实际”字符数

348 r  string  unicode  string-length 

我想编写trycatch代码来处理从网络下载时出现的错误。 url <- c( "http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html", "http://en.wikipedia.org/wiki/Xz") y <- mapply(readLines, con=url) 这两个语句成功运行。在下面，我创建了一个不存在的网址： url <- c("xxxxx", "http://en.wikipedia.org/wiki/Xz") url[1]不存在。一个人如何编写一个trycatch循环（函数），以便： 如果URL错误，输出将为：“ Web URL错误，无法获取”。 如果URL错误，代码不会停止，而是继续下载直到URL列表的末尾？

342 r  exception  exception-handling  try-catch  r-faq 

在R脚本语言中，如何编写文本行，例如以下两行 Hello World 到名为“ output.txt”的文件？

341 file-io  r 

我想使用ggplot2包并排放置两个图，即做等效于par(mfrow=c(1,2))。 例如，我希望以下两个图以相同的比例并排显示。 x <- rnorm(100) eps <- rnorm(100,0,.2) qplot(x,3*x+eps) qplot(x,2*x+eps) 我需要将它们放在相同的data.frame中吗？ qplot(displ, hwy, data=mpg, facets = . ~ year) + geom_smooth()

338 r  visualization  ggplot2 

我有一个代码，它在一处最终以一个数据帧列表结尾，我真的想将其转换为一个大数据帧。 我从一个先前的问题中得到了一些建议，该问题试图做类似但更复杂的事情。 这是我开始的示例（为说明起见，已大大简化了该示例）： listOfDataFrames <- vector(mode = "list", length = 100) for (i in 1:100) { listOfDataFrames[[i]] <- data.frame(a=sample(letters, 500, rep=T), b=rnorm(500), c=rnorm(500)) } 我目前正在使用此： df <- do.call("rbind", listOfDataFrames)

336 list  r  dataframe