R：加權總結

Question

我有調查，人們通過他們的流行度來分類動物。例如： ：

"first","second","third" 
"dog","cat","rabbit" 
"cat","rabbit","dog" 
"dog","cat","rabbit" 
"dog","cat","rabbit" 

我想要圖形，它顯示順序。 所以動物在第一列中得到3重量，在第二權重2和第三權重1

當我做：

data<-read.csv("animals.csv", header=T) 

f = summary(data$first) 
s = summary(data$second) 
t = summary(data$third) 

在˚F是陣列：

dog  cat 
    3  1 

在s是與陣列：

cat  rabbit 
    3   1 

在牛逼是陣列：

dog  rabbit 
    1   3 

而很明顯我不能這樣做：

graph = 3*f + 2*s + t 

因爲他們不具有相同的列。 存在一些功能如何做到這一點。如何對這三列進行加權組合？

我到底需要：

dog  cat  rabbit 
10  9   5 

我在爲r的初學者，所以，謝謝幫忙。

Answer 1

要獲得的加權數，你可以這樣做：

table(c(rep(data$first, 3), rep(data$second, 2), data$third)) 

# cat dog rabbit 
# 9  10  5 

數據

data <- structure(list(first = c("dog", "cat", "dog", "dog"), second = c("cat", 
"rabbit", "cat", "cat"), third = c("rabbit", "dog", "rabbit", 
"rabbit")), .Names = c("first", "second", "third"), class = "data.frame", row.names = c(NA, 
-4L)) 

注：如果數據與字符的因素進口的，你可以做：

table(c(rep(as.character(data$first), 3), rep(as.character(data$second), 2), as.character(data$third)))