그룹별로 하나의 지형지 물의 비율을 가져 오는 데 더 효과적인 코드는 무엇입니까?

Question

데이터 세트 이름 : 샘플.

COL1 : ID

Col2의 : 섹스 (2 레벨 "m", "F"로 계수)

열 3 :

SIU (2 레벨 "Y", "N"와 함께 인자)

SIU의 비율을 얻고 싶습니다.

prop.table(table(sample %>% filter(SIU=="N") %>% select(SEX))) 
prop.table(table(sample %>% filter(SIU=="Y") %>% select(SEX))) 

를하지만 2 번 실행해야하므로이 두 문장으로 구성 이 코드와 결과를 얻을 수 있습니다.

동일한 일을하는 더 나은 간단한 방법이 있습니까?

편집 : 위의 코드

>   m   f 
> 0.4529346622 0.5470653378 
>  m   f 
> 0.3604651163 0.6395348837 

그것은 내가 얻고 싶은 것입니다,하지만 난 내 코드가 가장 아니라고 생각의

결과.

Answer 1

df <- data.frame(ID=c(1,3,4,5,3,4), SEX = c('m','f','m','f','f','f'), SIU= c('y','y','n','n','n','n')) 
aggregate(df$SEX, by=list(df$SIU), function(x) table(x)/length(x)) 
# Group.1 x.f x.m 
# 1 n 0.75 0.25 
# 2 y 0.50 0.50