我有下面的代码。动态dplyr列名计算
COLNAME是过去了。我一直在试图得到它被评为COLNAME的价值,但还没有取得多大成功。我试过了“eval”,“setNames”等。使用“_”,仍然没有提供成功。
本质上说,如果我的COLNAME = “MyCol”,我想dplyr链执行,就好像最后一行写着:
mutate(MyCol = ifelse(is.na(MyCol), "BLANK", MyCol))
makeSummaryTable <- function(colName,originalData){
result <- originalData %>%
group_by_(colName) %>%
summarise(numObs = n()) %>%
ungroup() %>%
arrange(desc(numObs)) %>%
rowwise() %>%
mutate_(colName = ifelse(is.na(colName), "BLANK",colName))
return(result)
}