Questions tagged «r»

前阵子我被指责西蒙Urbanek从R核心团队（我相信）为用户推荐到显式调用return的函数结束时（他的评论被删除虽然）： foo = function() { return(value) } 相反，他建议： foo = function() { value } 可能在这种情况下是必需的： foo = function() { if(a) { return(a) } else { return(b) } } 他的评论阐明了为什么return除非严格需要，否则不打电话是一件好事，但是已删除。 我的问题是：为什么不打电话return更快或更好，因此更可取？

199 r 

有没有办法在同一行上打印文本和可变内容？例如， wd <- getwd() print("Current working dir: ", wd) 我找不到任何可以使我做到这一点的语法。

198 r  printing 

我一直在通过R-Studio使用Knitr，并且认为它非常简洁。我有一个小问题。当我在R-Chunk中获取文件时，knitr输出包括如下外部注释： + FALSE Loading required package: ggplot2 + FALSE Loading required package: gridExtra + FALSE Loading required package: grid + FALSE Loading required package: VGAM + FALSE Loading required package: splines + FALSE Loading required package: stats4 + FALSE Attaching package: 'VGAM' + FALSE The following object(s) are masked from …

197 r  markdown  knitr  rstudio  r-markdown 

要摆脱a中名为“ foo”的列data.frame，我可以这样做： df <- df[-grep('foo', colnames(df))] 但是，一旦df转换为data.table对象，便无法删除列。 例： df <- data.frame(id = 1:100, foo = rnorm(100)) df2 <- df[-grep('foo', colnames(df))] # works df3 <- data.table(df) df3[-grep('foo', colnames(df3))] 但是一旦将其转换为data.table对象，它将不再起作用。

194 r  data.table 

我在理解的传递引用属性时遇到了一些麻烦data.table。有些操作似乎“破坏”了参考，我想确切地了解正在发生的事情。 在创建data.table另一个表data.table（通过<-，然后通过来更新新表时:=，原始表也将被更改。这是预期的，具体如下： ?data.table::copy 和stackoverflow：通过操作员在数据表包中的引用传递 这是一个例子： library(data.table) DT <- data.table(a=c(1,2), b=c(11,12)) print(DT) # a b # [1,] 1 11 # [2,] 2 12 newDT <- DT # reference, not copy newDT[1, a := 100] # modify new DT print(DT) # DT is modified too. # a b # [1,] 100 11 …

194 r  reference  copy  data.table  assignment-operator 

我在R中遇到很大的性能问题。我编写了一个遍历data.frame对象的函数。它只是向中添加了一个新列data.frame并累积了一些内容。（简单的操作）。将data.frame有大约850K行。我的电脑仍在工作（现在大约10小时），我对运行时间一无所知。 dayloop2 <- function(temp){ for (i in 1:nrow(temp)){ temp[i,10] <- i if (i > 1) { if ((temp[i,6] == temp[i-1,6]) & (temp[i,3] == temp[i-1,3])) { temp[i,10] <- temp[i,9] + temp[i-1,10] } else { temp[i,10] <- temp[i,9] } } else { temp[i,10] <- temp[i,9] } } names(temp)[names(temp) == "V10"] <- "Kumm." …

193 performance  r  loops  rcpp  r-faq 

tibble（以前是tbl_df）由R中的dplyr数据帧操作包创建的数据帧的版本。它防止在意外调用数据帧时产生长表输出。 用tibble/ 包裹数据框后tbl_df，是否有命令查看整个数据框（数据框的所有行和列）？ 如果使用df[1:100,]，我将看到全部100行，但是如果使用df[1:101,]，它将仅显示前10行。我想轻松显示所有行以快速滚动它们。 是否有dplyr命令来抵消此问题或解包数据帧的方法？

192 r  dplyr  options  display 

我有一个巨大的向量，它具有几个NA值，并且我试图在该向量中找到最大值（向量是所有数字），但是由于这些NA值，我无法执行此操作。 如何删除NA值，以便可以计算最大值？

191 r  max  min  na  missing-data 

我可以使用什么函数来模拟ggplot2的默认调色板以获得所需的颜色数量。例如，输入3将产生具有以下颜色的十六进制颜色的字符向量：

191 r  ggplot2 

假设您有一个像这样的data.frame： x <- data.frame(v1=1:20,v2=1:20,v3=1:20,v4=letters[1:20]) 您将如何只选择x中的数字列？

189 r 

我正在为某些数据生成图，但是刻度的数量太少，我需要读取时更精确。 有什么方法可以增加ggplot2中的轴刻度数吗？ 我知道我可以告诉ggplot使用向量作为轴刻度，但是我想要的是增加所有数据的刻度数量。换句话说，我希望从数据中计算出报价号。 ggplot可能在内部使用某种算法来做到这一点，但是我找不到它是如何做到的，可以根据自己的需要进行更改。

188 r  ggplot2 

我正在绘制一个在x轴上带有类别变量，在y轴上带有数值变量的图形。 对于x轴，假设有许多数据点，则默认的文本格式会导致每个刻度线的标签与其他标签重叠。如何（a）更改轴文本的字体大小，以及（b）更改文本的方向，以使文本垂直于轴？

188 r  ggplot2 

我必须使用包含字符串的那些行作为标准来过滤数据帧RTB。 我正在使用dplyr。 d.del <- df %.% group_by(TrackingPixel) %.% summarise(MonthDelivery = as.integer(sum(Revenue))) %.% arrange(desc(MonthDelivery)) 我知道我可以在其中使用该函数filter，dplyr但我不完全知道如何告诉它检查字符串的内容。 我尤其要检查列中的内容TrackingPixel。如果字符串包含标签，RTB我想从结果中删除该行。

188 r  filter  dplyr 

我在有关回归建模的教程中看到以下命令： myFormula <- Species ~ Sepal.Length + Sepal.Width + Petal.Length + Petal.Width 该命令的作用是什么~？命令中（波浪号）的作用是什么？

187 r  r-faq 

R语言具有定义功能的漂亮功能，这些功能可以使用可变数量的参数。例如，该函数data.frame接受任意数量的参数，并且每个参数成为结果数据表中列的数据。用法示例： > data.frame(letters=c("a", "b", "c"), numbers=c(1,2,3), notes=c("do", "re", "mi")) letters numbers notes 1 a 1 do 2 b 2 re 3 c 3 mi 该函数的签名包括省略号，如下所示： function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, stringsAsFactors = default.stringsAsFactors()) { [FUNCTION DEFINITION HERE] } 我想编写一个执行类似操作的函数，将多个值合并到单个返回值中（以及进行其他处理）。为了做到这一点，我需要弄清楚如何...从函数内的函数参数中“解包” 。我不知道该怎么做。函数定义中的相关行data.frame是object <- as.list(substitute(list(...)))[-1L]，我对此毫无意义。 那么，如何将功能签名中的省略号转换为列表？ 更具体地说，如何get_list_from_ellipsis在下面的代码中编写？ …

186 r  function  parameters  ellipsis  variadic