R 如何整理调查数据，以便创建反应条形图？

我想创建一个类似于此的反应条形图，并一直在使用源代码：

我的数据有两列：

年份（1988、1991、1996、2000、2008、2016、2018）

对特定问题的回答（选项1-7）

每一行相当于一个人的回答，我有大约18000个。我希望将年份作为下拉选项，更改图表和条形图，以显示每年每个响应的数量（1-7）

---

我可以从链接中使用的代码中看出，我应该将年份列在顶部，将调查响应1-7列为行，数据框中每个数字的响应数。我只是不知道如何将数据整理成那种格式。

我认为这应该将您的数据放在您正在查看的格式中。下一次请提供一个小数据框：

library(tidyverse)

result_df <- initial_df %>%
  select(year, response) %>%
  group_by(year, response) %>%
  summarise(n = n()) %>%
  pivot_wider(names_from = year, values_from = n)

库（tidyverse）
结果_df%
选择（年份、响应）%>%
组别(年份,回应)%>%
总结（n=n（））%>%
透视图（名称从=年，值从=n）