如何从两个不同的数据框创建图或如何将具有相同列名的数据框组合

如何解决如何从两个不同的数据框创建图或如何将具有相同列名的数据框组合

我有两个数据框，我想在它们之间进行比较。情节和数据框看起来像这样

df2019 <- data.frame(Institute = c("A","B","C"),Women = c(65,50,70),Men = c(35,30))
df2016 <- data.frame(Institute = c("A",Women = c(70,45,50),Men = c(30,55,50))

df2019_melted <- melt(df2019)

ggplot(data = df2019_melted,aes(x = Institute,y = value,fill = variable))+
  geom_bar(stat = "identity",position = "dodge")+
  labs(fill = "Gender")+
  xlab("Institute")+
  ylab("Percent")+
  scale_fill_discrete(labels = c("Women","Men"))+
  ggtitle("Overall Gender Composition 2019")

但是我希望该图以褪色的条形显示2016年，但与2019年的分组方式相同，因此每个研究所有4条。

由于我所有数据框的列名都相同，所以我不能使用rbind（）或类似名称，因为合并时并不能区分什么数据框。

解决方法

在数据框中添加年份列，然后合并并融合。 ggplot希望所有内容都在一个data.frame中

all_melted <- reshape2::melt(
  rbind(cbind(df2019,year=2019),cbind(df2016,year=2016)),id=c("year","Institute"))

然后您可以使用类似的图形进行绘制，将年份映射到alpha，以制作“褪色”的条形

ggplot(all_melted,aes(x = Institute,y = value,fill = variable,alpha=factor(year)))+
  geom_col(position = "dodge")+
  labs(fill = "Gender")+
  xlab("Institute")+
  ylab("Percent")+
  scale_alpha_discrete(range=c(.4,1),name="Year") + 
  ggtitle("Overall Gender Composition")