3

我试图编写一个函数来解析和合并一些数据。但是 R 抛出了一个意外的符号错误异常。我尝试了不同的方法来解决这个问题,但仍然不起作用。请帮忙。

见代码

$aggall = function(df,grp){numcols = sapply(df,class) %in% 
c('integer', 'numeric') result = aggregate(df[,numcols],df[grp],mean) 
 counts = as.data.frame(table(df[grp])) names(counts)[1] = 
 grp merge(counts, result, sort=FALSE)}

错误:“aggall = function(go,grp){numcols = sapply(go,class) %in% c('integer','numeric') results”中出现意外符号

4

1 回答 1

7

你在一条物理线上拥有你的全部功能。
因此,当R试图解析它时,它无法知道一行何时结束,下一行何时开始。

要解决此问题,请使用单独的行或在它们之间添加分号。


或者,您可以让formatR包裹为您完成! (非常棒的包):

install.packages("formatR")
library(formatR)
tidy.source("mySource.R", reindent.space=5)


aggall = function(df, grp) {
     numcols = sapply(df, class) %in% c("integer", "numeric")
     result = aggregate(df[, numcols], df[grp], mean)
     counts = as.data.frame(table(df[grp]))
     names(counts)[1] = grp
     merge(counts, result, sort = FALSE)
} 
于 2013-03-26T20:25:50.490 回答