使用2参数表函数运行lapply

Question

我有这个公式，它完全符合我的要求，但我需要将它提供给数据集中的每个变量。

prop.table(table(df$value, df$factorvar), 2)

以前，当我没有按因子交叉时，我可以使用此功能作为这样的lapply的一部分：

basic.calc <- function(x){Props = prop.table(table(x))}

lapply(df, basic.calc)

我还没弄明白如何将第二个参数输入到此中。关于如何使用这个或更好的更好的方法来做任何想法？

提前致谢！

Answer 1

可能这就是你要找的东西（使用mtcars数据）：

poss.comb<-combn(names(mtcars),2) # 55 possible combination
a1<-my[seq(1,length(my),2)]
a2<-my[seq(2,length(my),2)]
basic.calc <- function(x,y){prop.table(table(mtcars[,x],mtcars[,y]),2)}
final<-mapply(basic.calc,a1,a2) #list 
#For example if you want to extract for mpg and cyl, you can use `final[[1]]`