在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方法。