R 프레임에서 한계 확률을 계산하십시오.

Question

원시 이진 데이터가 포함 된 데이터 프레임에서 한계 확률 분포를 계산하고 싶습니다. 나는 쉬운 방법이 있다고 확신하지만, 그것에 대한 함수를 찾지 못하는 것 같습니다. 어떤 아이디어? 내가 결과가 하나로 간주 될 수 이진 변수의 dataframe의 간단한 예와 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))