包含R

Question

我想知道我的戏剧有多少低，中，高，以及我的数据框中有多少低，中，高犯罪率。

这是我数据框的示例：

                               genres class_rentabilite
                       Crime, Drama         Medium
     Action, Crime, Drama, Thriller           High    
Action, Adventure, Sci-Fi, Thriller         Medium
                              Drama            Low
                       Crime, Drama           High
                      Comedy, Drama           high

我将table()用于我的数据中的另一列，并且它有效：

table(df$language, df$class_rentabilite)

上面的代码给出了这个：

                Low   Medium   High NA
                  1     1       0  3
  Aboriginal      0     0       2  0
  Arabic          0     0       1  3
  Aramaic         1     0       0  0
  Bosnian         1     0       0  0
  Cantonese       5     2       1  3

我想对样本数据使用此方法，但table()不起作用，因为genres中的每一行都有多个值。我该如何解决这种情况？

Answer 1

这是一种方法。您使用separate_rows()拆分流派并创建临时数据框。然后，您就像使用table()一样。

library(dplyr)
library(tidyr)

mydf %>%
separate_rows(genres, sep = ", ") -> foo

table(foo$genres, foo$class_rentabilite)

#            High Low Medium
#  Action       1   0      1
#  Adventure    0   0      1
#  Comedy       1   0      0
#  Crime        2   0      1
#  Drama        3   1      1
#  Sci-Fi       0   0      1
#  Thriller     1   0      1

DATA

mydf <- structure(list(genres = c("Crime, Drama", "Action, Crime, Drama, Thriller", 
"Action, Adventure, Sci-Fi, Thriller", "Drama", "Crime, Drama", 
"Comedy, Drama"), class_rentabilite = c("Medium", "High", "Medium", 
"Low", "High", "High")), .Names = c("genres", "class_rentabilite"
), row.names = c(NA, -6L), class = "data.frame")