전체 DF에서 prop.table 실행

Question

그래서 고객 설문 조사에서 주파수를 실행하려고합니다. 설문 조사에는 108 개의 변수가 있었으며 응답은 1-5로 코딩되었고, 9는 NA가되었습니다. 변수 중 일부는 텍스트 기반입니다. 원시 데이터는 다음과 같습니다

Q1 Q2 Q3 Q4 
1 3 2 Mazda 
2 3 4 Ford 
3 5 2 Toyota 
9 3 2 Hyundai 

가 이상적으로 나는 많은 사람들이 108 개 각 변수 형식으로 각 질문에 응답하는 방법을 알고 싶어요. 예를 들어, 나의 새로운 데이터 프레임의 첫 번째 열은 다음과 같습니다

Q1 
1 25% 
2 25% 
3 25% 
4 0% 
5 0% 
9 25% 

나는 그것은 목록으로 그것을 밖으로 뱉어

Frequencies = apply(df, 2, table) 

를 사용하여 시도했습니다. 그럼이 목록을 실행하고 싶습니다.

prop.table(Frequencies, 2) 

열 비율을 얻으려면. 그러나 "margin.table (x, margin) 오류 : 'x'는 배열이 아닙니다."라는 오류 메시지가 나타납니다.

주파수를 데이터 프레임으로 변환하면서 며칠 동안 놀았지만 운이 없었습니다. 어떤 아이디어?

감사합니다.

추신 : 나는 4 일 동안이 작업을 해왔고 온라인에서 해결책을 찾지 못했습니다. 미안해, 근본이야. 나는 이것에 아주 새롭다.

Answer 1

시도 :

> ddf 
    Q1 Q2 Q3  Q4 
1 1 3 2 Mazda 
2 2 3 4 Ford 
3 3 5 2 Toyota 
4 9 3 2 Hyundai 
> 
> sapply(apply(ddf, 2, table), function(x) x/sum(x)) 
$Q1 

    1 2 3 9 
0.25 0.25 0.25 0.25 

$Q2 

    3 5 
0.75 0.25 

$Q3 

    2 4 
0.75 0.25 

$Q4 

    Ford Hyundai Mazda Toyota 
    0.25 0.25 0.25 0.25 

또는이 @DavidArenburg 댓글에 제안했다 같이

lapply(ddf, function(x) prop.table(table(x))) 

Answer 2

먼저 당신이 관심있는 수준 요소로 열을 포맷해야합니다. 그런 다음 ?lapply을 사용하여 목록에 함수를 적용 할 수 있습니다 (데이터 프레임은 목록 유형 임). 원하는 작업을 수행하려면 lapply() 호출 내에서 사용자 지정 함수를 작성해야합니다. lapply()의 출력은 또 다른 목록이므로 요인 수준을 설정할 때 데이터 프레임으로 되돌리려면 as.data.frame() 내에 중첩하여 데이터 프레임으로 되돌릴 수 있습니다. 마지막 lapply() 호출의 경우 목록으로 유지하는 것이 가장 좋습니다. 그렇지 않으면 R은 recycle보다 짧은 출력으로 길어지는 출력과 길이를 같게하기 때문입니다.

df <- read.table(text="Q1 Q2 Q3 Q4 
1 3 2 Mazda 
2 3 4 Ford 
3 5 2 Toyota 
9 3 2 Hyundai", header=TRUE) 
dfQs <- as.data.frame(lapply(df[,1:3], function(x){ factor(x, levels=c(1:5,9)) })) 
dfQs$Q4 <- as.factor(df$Q4) 
dfQs 
# Q1 Q2 Q3  Q4 
# 1 1 3 2 Mazda 
# 2 2 3 4 Ford 
# 3 3 5 2 Toyota 
# 4 9 3 2 Hyundai 
proportions <- lapply(dfQs, function(x){ prop.table(table(x)) }) 
proportions 
# $Q1 
# 1 2 3 4 5 6 7 8 9 
# 0.25 0.25 0.25 0.00 0.00 0.00 0.00 0.00 0.25 
# $Q2 
# 1 2 3 4 5 6 7 8 9 
# 0.00 0.00 0.75 0.00 0.25 0.00 0.00 0.00 0.00 
# $Q3 
# 1 2 3 4 5 6 7 8 9 
# 0.00 0.75 0.00 0.25 0.00 0.00 0.00 0.00 0.00 
# $Q4 
# Ford Hyundai Mazda Toyota 
# 0.25 0.25 0.25 0.25