透视数据和R中的分组条形图

我是一个新手，所以如果我的问题太简单或者我违反了论坛规则，我会道歉

我有两列数据。第二列包含性别（女性-1和男性-2）。列“a”（第一列）包含对（0,1,2,3,4）范围内的问题的回答

我怎样才能得到答案计数的条形图，按性别分组。我可以在excel中这样做，但在R中无法这样做。首先，我无法将数据转换为可用于绘图的数据。我试过dplyr等等

a   Sex
1   1
0   2
4   1
2   2
0   1
1   1
2   1
3   1
3   1
2   1
4   2
4   1
2   1
1   2
0   1
2   2
3   1
0   1
4   1
2   1
0   1
1   1
2   2
2   1
1   2
1   2
1   1
0   1
1   1
3   
0   1
3   1
4   1
2   2
0   1
1   1
1   2
0   1
3   1
3   1
2   1
1   1
1   1
0   1
0   2
4   1
0   2
0   2
0   2
2   1
2   1
0   2
1   1
4   1
0   1
2   1
0   2
1   2
2   2
0   1
0   1
1   1
1   1
2   2
1   1
0   1
0   2
1   2
0   1
0   1
3   1
0   1
0   2
1   2
0   2
0   1
2   
4   2
0   1
1   1
2   2
1   1
4   2
1   1
4   2
0   1
4   2
0   1
2   2
2   1
4   1
2   2
1   1
1   1
2   1
2   1
1   1
3   2
1   1
1   1
2   1
0   2
3   2
2   1
0   1
1   2
2   2
0   2
3   2
2   1
0   1
1   1
1   2
1   1
1   1
0   2
1   
0   1
2   1
3   1
0   2
2   1
2   1
0   2
2   1
0   1
0   1
4   1
2   1
2   1
2   1
3   2
2   2
3   1
1   1
2   2
1   1
0   2
2   1
1   2
1   2
0   1
1   2
0   1
2   1
2   1
1   1
2   2
1   1
0   2
2   1
1   1
2   1
2   1
4   2
1   1
0   1
0   1
3   1
3   1
2   1
0   1
1   1
1   1
1   1
2   1
1   1
2   1
2   1
2   1
1   2
2   1
2   1
3   1
0   1
1   2
2   2
1   1
2   1
0   2
0   1
2   1
0   1
0   1
0   1
3   2
2   2
1   2
1   1
1   1
4   1
3   2
2   1
3   1
0   1
1   2
0   1
3   
2   2
1   1
3   2
1   2
1   1
2   2
2   2
1   2
0   1
2   2
1   1
2   2
0   2
2   2
0   1
0   1
3   2
3   2
1   3
2   1
0   1
1   2
2   1
2   2
4   2
2   2
2   1
0   2
1   2
1   1
0   2
3   1
3   1
2   1
2   1
2   2
1   1
0   1
2   1
0   1
4   1
0   2
0   1
3   1
1   2
0   1
0   1
0   2
2   1
2   2
1   2
2   1
4   1
2   2
2   1
2   1
1   2
3   1
0   1
1   1
1   1
4   1
0   2
3   
0   
0   2
2   1
3   2
1   2
1   2
1   2
0   1
1   2
0   1
3   1
3   2
3   1
0   1
0   1
2   1
1   1
1   1
1   1
2   1
3   1
3   1
2   2
3   1
1   2
1   1

我试图实现的输出：

---

应该让您开始：

library(tidyverse)

df %>%
  count(Sex = ifelse(Sex == 1, "Female", "Male"), a) %>%
  ggplot(aes(x = a, y = n, fill = Sex)) +
  geom_bar(stat = 'identity', position = "dodge") +
  coord_flip()

---

看第一个答案谢谢！代码工作得很好。但是，当我想绘制其他列时，比如说“b”列（即与“b”列中答案计数的条形图相同，按性别分组），并修改代码以读取“b”列（现在有“a”的地方），输出会发生倾斜（即所有条形图都绘制到最大值）。请问我做错了什么？我在ggplot中更改了y=nn（aes（x=a，y=nn，fill=Sex））并且该命令适用于所有列扫描您在其他列中发布了

df

的示例<代码>计数根据定义总结数据，因此您可能会因此失去观察结果，我不确定-可能还有其他方法谢谢您的回答。df在以下位置可用：访问时出错，能否复制粘贴原始帖子中的前几行和所有列？