Questions tagged «r»

我很惊讶地得知R没有附带方便的功能来检查数字是否为整数。 is.integer(66) # FALSE 在帮助文件警告： is.integer(x)不测试是否x 包含整数！为此，请使用round，如is.wholenumber(x)示例中的函数 中所示。 该示例将此自定义功能作为“解决方法” is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x - round(x)) < tol is.wholenumber(1) # is TRUE 如果我不得不编写一个函数来检查整数，并假设我没有阅读上面的注释，那么我写的函数将遵循 check.integer <- function(x) { x == round(x) } 我的方法在哪里失败？如果您穿着我的假想鞋，您将如何处理？

104 r  integer  rounding 

例如，如果我有这个： n = c(2, 3, 5) s = c("aa", "bb", "cc") b = c(TRUE, FALSE, TRUE) df = data.frame(n, s, b) n s b 1 2 aa TRUE 2 3 bb FALSE 3 5 cc TRUE 那么如何合并两列n，并s进入一个名为新列x，使得它看起来是这样的： n s b x 1 2 aa TRUE 2 aa 2 3 bb …

104 r  dataframe  multiple-columns  r-faq 

我遇到一个问题：我正在运行一个循环来处理多个文件。我的矩阵很大，因此如果我不小心，我经常会用光内存。 如果创建了任何警告，是否有办法打破循环？它只是继续运行循环，并在以后报告失败了……很烦人。任何想法哦，明智的stackoverflow-ers ？！

103 r  loops  warnings  break 

我才刚刚开始了解KnitR以及在生成R文档和报告中使用Markdown。对于我日常工作中的许多日常工作而言，这看起来是完美的。但是，我没有看到的一件事是使用Markdown格式（类似于xtable，但使用Markdown而不是LaTeX或HTML）来打印数据框和表格的简便方法。我知道我可以嵌入xtable的HTML输出，但是我想知道是否有任何基于Markdown的解决方案？

103 r  markdown  knitr  r-markdown 

我有一个带列标题的data.frame。 如何从data.frame中获得特定行作为列表（以列标题作为列表的键）？ 具体来说，我的data.frame是 美国广播公司 1 5 4.25 4.5 2 3.5 4 2.5 3 3.25 4 4 4 4.25 4.5 2.25 5 1.5 4.5 3 我想得到的行相当于 > c(a=5, b=4.25, c=4.5) a b c 5.0 4.25 4.5

103 r  indexing  dataframe 

我想通过使用ggplot2在下面立即复制该图。我可以靠近，但不能删除上下边框。下面，我介绍使用ggplot2的几种尝试，包括在Stackoverflow上或通过Stackoverflow找到的一些建议。不幸的是，我无法获得这些建议。 我希望有人可以纠正下面的一个或多个代码片段。 感谢您的任何建议。 # desired plot a <- seq(1,20) b <- a^0.25 plot(a,b, bty = "l") library(ggplot2) df <- as.data.frame(cbind(a,b)) # 1. ggplot2 default ggplot(df, aes(x = a, y = b)) + geom_point() # 2. removes background color ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = …

103 r  ggplot2 

我有一个data.frame，其中某些变量包含文本字符串。我希望计算每个字符串中给定字符出现的次数。 例： q.data<-data.frame(number=1:3, string=c("greatgreat", "magic", "not")) 我希望为q.data创建一个新列，其中出现字符串的数量为“ a”（即c（2,1,0））。 我管理的唯一复杂方法是​​： string.counter<-function(strings, pattern){ counts<-NULL for(i in 1:length(strings)){ counts[i]<-length(attr(gregexpr(pattern,strings[i])[[1]], "match.length")[attr(gregexpr(pattern,strings[i])[[1]], "match.length")>0]) } return(counts) } string.counter(strings=q.data$string, pattern="a") number string number.of.a 1 1 greatgreat 2 2 2 magic 1 3 3 not 0

103 regex  r  dataframe 

我目前正在使用scale_brewer()填充纸，它们的颜色看上去很漂亮（在屏幕上和通过彩色打印机），但是在使用黑白打印机时，它们的打印效果相对均匀，为灰色。我搜索了在线ggplot2文档，但没有看到有关添加纹理以填充颜色的任何信息。有官方的ggplot2方法可以做到这一点，还是有人可以使用骇客？通过纹理，我指的是对角线，反向对角线，点图案等东西，当以黑白打印时，它们可以区分填充颜色。

103 r  ggplot2 

我试图将XML解析为R数据帧，此链接对我有很大帮助： 如何从xml文件创建R数据框 但是仍然无法解决我的问题： 这是我的代码： data <- xmlParse("http://forecast.weather.gov/MapClick.php?lat=29.803&lon=-82.411&FcstType=digitalDWML") xmlToDataFrame(nodes=getNodeSet(data1,"//data"))[c("location","time-layout")] step1 <- xmlToDataFrame(nodes=getNodeSet(data1,"//location/point"))[c("latitude","longitude")] step2 <- xmlToDataFrame(nodes=getNodeSet(data1,"//time-layout/start-valid-time")) step3 <- xmlToDataFrame(nodes=getNodeSet(data1,"//parameters/temperature"))[c("type="hourly"")] 我想要的数据帧是这样的： latitude longitude start-valid-time hourly_temperature 29.803 -82.411 2013-06-19T15:00:00-04:00 91 29.803 -82.411 2013-06-19T16:00:00-04:00 90 我被困在xmlToDataFrame()，非常感谢您的帮助。

103 xml  r 

目标：从长度相等的向量列表中，创建一个矩阵，其中每个向量变为一行。 例： > a <- list() > for (i in 1:10) a[[i]] <- c(i,1:5) > a [[1]] [1] 1 1 2 3 4 5 [[2]] [1] 2 1 2 3 4 5 [[3]] [1] 3 1 2 3 4 5 [[4]] [1] 4 1 2 3 4 5 [[5]] [1] …

102 r  matrix  vector 

我一直在R CMD BATCH my_script.R从终端执行R脚本。现在，我想将参数传递给命令，但是在使它运行时遇到了一些问题。如果我愿意，R CMD BATCH my_script.R blabla那么blabla它将成为输出文件，而不是被解释为正在执行的R脚本可用的参数。 我尝试过Rscript my_script.R blabla它似乎可以blabla正确地作为参数传递，但是后来我没有得到所得到的my_script.Rout输出文件R CMD BATCH（我想要该.Rout文件）。虽然我可以调用的输出重定向到Rscript我的选择的文件名，我就不会得到列入方式文件中的R输入命令R CMD BATCH是否在.Rout文件中。 因此，理想情况下，我正在寻找一种将参数传递给通过该R CMD BATCH方法执行的R脚本的方法，尽管我对使用Rscript一种能够使它产生可比.Rout文件的方法感到满意。

102 r  rscript 

如何在R中永久设置特定的CRAN镜像？ 我想将其永久设置在笔记本电脑中，这样当我这样做时install.packages()，它不会再询问我要选择哪个镜子。

102 r  cran  r-faq 

1）是否有任何R库/函数可以在R图中实现INTELLIGENT标签的放置？我尝试了一些，但它们都是有问题的-许多标签彼此重叠或与其他点（或图中的其他对象重叠），但我发现这很难处理。 2）如果没有，有什么方法可以通过特定问题点的标签放置来舒适地帮助算法？需要最舒适有效的解决方案。 您可以使用我的可复制示例来测试和测试其他可能性，并查看是否能够获得比我更好的结果： # data x = c(0.8846, 1.1554, 0.9317, 0.9703, 0.9053, 0.9454, 1.0146, 0.9012, 0.9055, 1.3307) y = c(0.9828, 1.0329, 0.931, 1.3794, 0.9273, 0.9605, 1.0259, 0.9542, 0.9717, 0.9357) ShortSci = c("MotAlb", "PruMod", "EriRub", "LusMeg", "PhoOch", "PhoPho", "SaxRub", "TurMer", "TurPil", "TurPhi") # basic plot plot(x, y, asp=1) abline(h = 1, …

102 r  plot  label 

我想通过为每个字符分配不同的值来使用字符字符串进行二维漫游。我打算“弹出”字符串的第一个字符，使用它，然后对其余字符串重复此操作。 我怎样才能实现这样的目标？ x <- 'hello stackoverflow' 我希望能够执行以下操作： a <- x.pop[1] print(a) 'h' print(x) 'ello stackoverflow'

102 string  r 

题： 在read.table / read.csv中使用colClasses参数时，是否可以指定日期格式？ （我知道我可以在导入后进行转换，但是使用许多这样的日期列，在导入步骤中会更容易进行） 例： 我有一个.csv，日期格式为%d/%m/%Y。 dataImport <- read.csv("data.csv", colClasses = c("factor","factor","Date")) 这使转换错误。例如，15/07/2008变为0015-07-20。 可复制的代码： data <- structure(list(func_loc = structure(c(1L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 5L), .Label = c("3076WAG0003", "3076WAG0004", "3076WAG0007", "3076WAG0009", "3076WAG0010"), class = "factor"), order_type = structure(c(3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 3L, …

101 r  date  read.table  read.csv