Say my data(imaginary) ,a data frame is as follows :
> head(data) mpg_H cyl_G disp_G Mazda RX4 TRUE TRUE TRUE
You can use apply and sum.
apply
sum
df$count_TRUE <- apply(df, 1,sum); df$count_FALSE <- (ncol(df)-1)-df$count_TRUE;