1

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

这是我的数据框的示例：

                               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. 我该如何解决这种情况？

4

1 回答 1

4

这是适合您的一种方法。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

数据

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")
于 2016-12-12T01:01:28.067 回答