在整個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'不是數組。」

我已經玩了幾天的頻率轉換成數據幀，但沒有運氣。有任何想法嗎？

謝謝！

PS：我一直在爲此工作四天，無法在線找到解決方案。對不起，這很基本。我對此很新。

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