Рассчитать предельные вероятности из кадра данных в R

Question

Я хотел бы рассчитать распределения предельной вероятности из кадра данных, содержащего необработанные двоичные данные. Я уверен, что есть простой способ, но я не могу найти функцию для него. Есть идеи? Я прилагаю простой пример блока данных бинарных переменных, где результат можно рассматривать как один, а результат без 0.

set.seed(1234)
respondent <- 1:1000
red <- sample(0:1, 1000, replace=T)
blue <- sample(0:1, 1000, replace=T)
green <- sample(0:1, 1000, replace=T)
black <- sample(0:1, 1000, replace=T)
grey <- sample(0:1, 1000, replace=T)

my.new.df <- data.frame(respondent, red ,blue,green,black,grey)
lapply(my.new.df[,2:6],sum)
$red
[1] 518

$blue
[1] 485

$green
[1] 515

$black
[1] 481

$grey
[1] 508

Answer 1

Ты можешь использовать:

colMeans(my.new.df[,2:6])

Или, как сказал @moto, и вы пытались (но более просто):

lapply(my.new.df[,2:6], function(x) mean(x))