时间戳

首页 > 解决方案 > R中的数据透视图和分组条形图

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

问题描述

我是一个 R 新手，如果我的问题太基本或者我违反了论坛规则，我深表歉意。

我有 2 列中的数据。第二列包含性别（Female-1 和 male-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

我试图实现的输出：

阴谋

标签： r

解决方案

应该让你开始：

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()

推荐阅读