根据一个图中的不同列制作两个 geom_bar() 图

Question

我有一个如下所示的数据框：

 Year     Women       Men
1 2013    145169      889190
2 2014    119064      849778
3 2015    210107     1079592
4 2016    221217     1427639
5 2017    205000     1692592
6 2018    273721     1703456
7 2019    434407     2010493

我想制作一个 geom_bar，其中 x 是一年，每年都有两个栏，分别表示女性和男性的号码。我找到了一个解决方案，其中这个 table 应该看起来不同，但我想知道是否有一个选项可以使用这个。感谢您的帮助:)

Answer 1

您可以使用以下代码

library(tidyverse)

df %>% 
      pivot_longer(cols = -c(Year,Sl), values_to = "Value", names_to = "Name") %>% 
      ggplot(aes(x = Year, y = Value, fill = Name))+geom_col(position = "dodge")

数据

df = structure(list(Sl = 1:7, Year = 2013:2019, Women = c(145169L, 
119064L, 210107L, 221217L, 205000L, 273721L, 434407L), Men = c(889190L, 
849778L, 1079592L, 1427639L, 1692592L, 1703456L, 2010493L)), class = "data.frame", row.names = c(NA, 
-7L))

根据一个图中的不同列制作两个 geom_bar() 图

Make two geom_bar() plots base on different columns in one plot

r

ggplot2

geom-bar

数据