如何用3组ggplot2制作条形图？

Question

我有这样的数据集：

 "term" "Col_count" "JG_count" "Mix_count"
 "1" "activation of immune response" 79 38 84
 "2" "adaptive immune response" 79 41 80
 "3" "adaptive immune response2" 73 40 74
 "4" "biological adhesion" 158 115 195
 "5" "cell activation" 167 103 193

我有3组（第2列：第4列） 每组1个类别。

我需要制作一个条形图，其中每个类别都使用ggplot2对这三个组进行分组：

有人可以帮助我吗？

Answer 1

您需要的函数是interaction来创建可用作分组因子的其他三个变量的组合变量。

## First reshape the data
library(reshape2)
dat <- melt(dat)

## use the interaction between the variables to define the grouping
ggplot(dat, aes(term, value, fill=interaction(variable))) +
  geom_bar(stat='identity', position='dodge') +
  theme_bw() + theme(axis.text.x = element_text(angle=90, hjust=1)) +
  scale_fill_brewer('Variables', palette='Spectral')