Berechne Randwahrscheinlichkeiten aus Datenrahmen in R

Question

Ich möchte die Randwahrscheinlichkeitsverteilungen von einem Datenrahmen berechnen, der rohe binäre Daten enthält. Ich bin mir sicher, dass es einen einfachen Weg gibt, aber ich kann keine Funktion dafür finden. Irgendwelche Ideen? Ich bin ein einfaches Beispiel eines Datenrahmens von Binärvariablen Anbringen wo ein Ergebnis als eine und kein Ergebnis als 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

Sie können mit in Betracht gezogen werden kann:

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

Oder als @moto sagte und Sie versuchten (aber einfacher):

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