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)

我收到以下错误：

eval 中的错误（expr、envir、enclos）：找不到对象“CustomerID”

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

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