提取R中

Question

只有一張桌子的某些行我有一個表格式如下：

我想寫A R腳本，將「提取」從表例如案件有c2 == 1，（c2和c3）== 1，（c2和c4）== 1，（c1和c2和c3）== 1，等等...... 這樣最終我會擁有一個具有每種情況的Counts值的列表。

實施例列表中具有C2 == 1列： C2 < -c（4，42，12，...）

我試圖將其上這種方式：totalC2 < -table [表[ c1]]，如果我使用表$ c1 == 1它不起作用。

任何人都可以給我一個建議如何解決這個問題？

我忘了提，該表來自於功能： vennCounts（）

Answer 1

在您將命名爲相應的計數表的輸出。但也許用更清晰和直接的解決方案可以取得相同的結果。讓我們拭目以待另一個答案。

# data simulation 
c1 <- sample(c(0,1), 10, replace=T) 
c2 <- sample(c(0,1), 10, replace=T) 
c3 <- sample(c(0,1), 10, replace=T) 
c4 <- sample(c(0,1), 10, replace=T) 
Counts <- sample(1:100, 10) 
df <- data.frame(c1, c2,c3, c4, Counts) 

f <- function(y) { 
    idx <- apply(df[,y, drop=F], 1, function(x) all(x == 1)) 
    df[idx, "Counts"] 
} 

out <- list() 
l <- sapply(1:4, function(x) {combn(x=c("c1", "c2", "c3", "c4"), m=x, simplify=F)}) 
l <- unlist(l, recursive=F) 
for (x in l) { 
    out[[paste(x, collapse="")]] <- f(x) 
}