ddply有光泽的总结输入$

Question

我有一个data.frame，其列gender（级别=男性，女性）和smoke（级别=否，是）。 我想通过以下方式创建一个新的data.frame：

final_data <- ddply(scores_data, c("gender","smoke"),
                            summarise, n = length(gender))

这个有效！但我想：

final_data <- ddply(data.frame, c(input$variable_1,input$variable_2), 
                      summarise, n = length(input$variable_1))

问题出在此处：n = length(input$variable_1)) - 如果每个性别替换input$variable_1，则n始终等于1.

感谢。

Answer 1

myFunction2 <- function(x, y, col){
      z <- ddply(x, c(y,col), .fun = function(xx){
        c(n = length(xx[,col])) })
      return(z)
    }

final_data =  myFunction2(data.frame, input$variable_1, input$variable_1)