在eval函数中的R错误函数

Question

大家好我想在R中创建一个函数来清理数据...下面的代码是它的一部分。

limpio=function (tabla, campo, campo_conteo){ 

    tabla1<-aggregate(campo_conteo ~ campo, tabla, length) 
    colnames(tabla1)[2]<-"frecuencia" 
    tabla2 <- gsub('\\s+','',toupper(tabla1$campo)) 
    View(tabla2) } 

所以，当我运行：

limpio(vendidos, Nacionality, CustomerID) 

我得到以下错误：

Error in eval(expr, envir, enclos) : object 'CustomerID' not found

但该列不存在，所以不知道是什么问题。

colnames(vendidos) 

#[1] "ID"    "CampaignID"  "CustomerID"  "PhoneID"  "Name"   
#[6] "NumberType"  "Number"   "Birthday"  "Sex"   "Holder"   
#[11] "HolderNumber" "Nacionality" "Address"  "City"   "Zip" 

Answer 1

您不能像这样创建公式对象。你需要的字符从这些传递给函数和创建公式：

limpio <- function (tabla, campo, campo_conteo){ 
    f <- as.formula(paste(campo_conteo, campo, sep="~")) 
    tabla1<-aggregate(f, tabla, length) 
    colnames(tabla1)[2]<-"frecuencia" 
    gsub('\\s+','',toupper(tabla1$campo)) 
    } 

limpio(vendidos, "Nacionality", "CustomerID") 

或者，你可以使用非公式aggregate方法。