Specific value frequency across multiple c

Gopi 0
Viewed 41

I've data set contains 1000s columns and every 7 rows were grouped as group1,group2 and so on.., i trying to get all 0's count* with 2 and all 1's are just count. Finally i also need to get total frequency of both.

 group <- c("group1","group2","group3")
 col1 <- c(1,0,0,0,1,NaN,1,0,0,0,1,0,0,0,1,NaN,1,0,0,0)
 col2 <- c(1,NaN,0,NaN,1,NaN,1,1,0,1,1,NaN,0,NaN,1,NaN,1,1,0,1)
 col3 <- c(0,1,NaN,NaN,0,0,0,0,0,1,0,1,NaN,NaN,0,0,0,0,0,1)
 
 expected output is

         col1   col2    col3
 group1  0.75   0.625   0.9
 group2  0.93   0.7     0.8
 group3  0.8    0.6     0.92

I would appreciate your to great help, thanks

r
1 Answers

We could do

t(sapply(split(df1[-1], df1$group), \(x) {
  zero_sum <- colSums(x == 0, na.rm = TRUE)
 one_sum <- colSums(x == 1, na.rm = TRUE)
  ((zero_sum * 2) + one_sum)/((zero_sum + one_sum)*2)} ))

-output

         col1  col2      col3
group1 0.7500000 0.625 0.9000000
group2 0.9285714 0.700 0.8000000
group3 0.8000000 0.600 0.9166667

data

df1 <- structure(list(group = c("group1", "group1", "group1", "group1", 
"group1", "group1", "group1", "group2", "group2", "group2", "group2", 
"group2", "group2", "group2", "group3", "group3", "group3", "group3", 
"group3", "group3"), col1 = c(1, 0, 0, 0, 1, NaN, 1, 0, 0, 0, 
1, 0, 0, 0, 1, NaN, 1, 0, 0, 0), col2 = c(1, NaN, 0, NaN, 1, 
NaN, 1, 1, 0, 1, 1, NaN, 0, NaN, 1, NaN, 1, 1, 0, 1), col3 = c(0, 
1, NaN, NaN, 0, 0, 0, 0, 0, 1, 0, 1, NaN, NaN, 0, 0, 0, 0, 0, 
1)), class = "data.frame", row.names = c(NA, -20L))
akrun0
Related