拆分Microsoft Forms多选运输方式回答并实现统计与可视化

1. 加载依赖包与读取数据 #

先加载tidyverse套件（包含数据处理和可视化所需的核心工具），再读取你的CSV数据文件：

library(tidyverse)
df <- read.csv("你的数据文件路径.csv", stringsAsFactors = FALSE)

2. 拆分并规整多选数据 #

你之前的strsplit操作返回的是列表格式，需要把它展开成每行对应一个运输选项的结构，同时清理掉选项前后的空格（避免因格式差异导致统计错误）：

transport_df <- df %>%
  # 按分号+空格拆分运输方式列，生成列表列
  mutate(transport = strsplit(`Which method of transport do you use?`, "; ")) %>%
  # 将列表列展开为多行
  unnest(transport) %>%
  # 去除选项前后的空白字符
  mutate(transport = trimws(transport))

3. 统计各运输方式的选择次数 #

对规整后的数据进行频次统计，按次数从高到低排序：

transport_count <- transport_df %>%
  count(transport, sort = TRUE)

4. 可视化统计结果 #

用柱状图展示统计结果，翻转坐标轴方便查看较长的选项名称：

ggplot(transport_count, aes(x = reorder(transport, n), y = n)) +
  geom_bar(stat = "identity", fill = "#2E86AB") +
  coord_flip() +
  labs(title = "运输方式选择统计", x = "运输方式", y = "选择次数") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者QuestJonas