拆分答案并计算（并可视化）答案

Question

我收到了来自 Microsoft Forms 的回复，其中人们有多种选择。它是一个更大的数据框架的一部分，其中一列的响应来自我的 CSV，如下所示：

您使用哪种交通方式？
自己的车；自行车
自己的车
自己的车；自行车;公共交通
公共交通；人们可以自己放入其他东西
...

现在我想将其可视化并计算响应数。排名不相关（没有选项可以点击自行车第一名等等）。

我从一个简单的开始

question1 <- df %>% strsplit(`Which method of transport do you use?`, ";")

这给了我一个列表，但我不确定这是正确的开始，也不知道如何从这里继续制作一些漂亮的图表并显示答案。

谢谢！

Answer 1

library(dplyr)
library(ggplot2)

data %>%  
  separate_rows(transport, sep = "; ") %>%  
  ggplot() + 
  aes(x = transport) + 
  geom_bar()

数据：

structure(list(transport = c("own car; bicycle", "own car", "own car; bicycle; public transport", 
"public transport; something other")), row.names = c(NA, -4L), class = c("tbl_df", 
"tbl", "data.frame"))