В base вы можете использовать rowSums
для определенных столбцов, чтобы увидеть, есть ли 1 в строке, например:
tt <- sapply(list(c("V4", "V5", "V6"), c("V7", "V8", "V9"))
, function(i) sum(rowSums(x[,i]) > 0))
data.frame(label=c("con1", "con2"), fragnum=nrow(x), covered=tt
, uncovered=nrow(x) - tt)
# label fragnum covered uncovered
#1 con1 4 2 2
#2 con2 4 1 3
Данные:
x <- structure(list(V1 = c(1L, 1L, 1L, 1L), V2 = c(1L, 7506L, 10943L,
13169L), V3 = c(7512L, 10949L, 13175L, 20070L), V4 = c(1L, 0L,
0L, 0L), V5 = c(0L, 0L, 0L, 1L), V6 = c(0L, 0L, 0L, 1L), V7 = c(0L,
0L, 0L, 0L), V8 = c(0L, 0L, 0L, 0L), V9 = c(0L, 1L, 0L, 0L))
, class = "data.frame", row.names = c(NA, -4L))