如何在 ddply 函数中使用字符串？

Question

作为一个说明性示例，要在 excel 中创建类似于 countif 的函数，我尝试在下面的 ddply "countif" 变量定义中以某种方式使用字符串 "mycolumn"：

df <- c("a","a","b","c","c") %>% data.frame(stringsAsFactors = F)
colnames(df) <- "mycolumn"
x <- "mycolumn"
countif <- function(df,x ) {
y <- which(colnames(df)==x)
result1 <- ddply(df,x,nrow) #this works, but I can't use the x argument
result2 <- ddply(df,x,summarise, countif=length(df[,y])) #not working
result3 <- ddply(df,x,summarise, countif=length(parse(text=x))) #not working
    }

正如您在下面看到的，只有result1 有效，但我需要一种能够在 ddply 函数中使用我的mycolumn 字符串的方法，而不是仅仅依赖nrow。非常感谢。

> result1
  mycolumn V1
1        a  2
2        b  1
3        c  2
> result2
  mycolumn countif
1        a       5
2        b       5
3        c       5
> result3
  mycolumn countif
1        a       1
2        b       1
3        c       1

Answer 1

不完全确定我是否得到了你想要的东西，但我最好的猜测是像下面这样的

library(dplyr)

df <-  data.frame(mycolumn = c("a","a","b","c","c"))

result1 <- df %>% group_by(mycolumn) %>% tally()

result3 <- df %>% filter(mycolumn %in% c("a", "b")) %>% group_by(mycolumn) %>% tally()

您可以在过滤器函数中使用条件

Answer 2

好的，我找到了方法。我猜不是那么优雅，但谁在乎呢：

countif <- function(df,x ) {
df$myartificialname <- df[,which(colnames(df)==x)]
result <- ddply(df,x,summarise,countif=length(myartificialname) )
print(paste(length(unique(result$countif)), "levels counted:", toString(head(unique(result$countif)))))
return(result$countif)
}

编辑：实际上 get(x) 也可以正常工作