在ggplot中自定义并排（闪避）条形图的颜色

Question

我正在尝试为并排条形图中使用的每个组创建自定义调色板。

#Setup Values & DataFrame
class_list <- c("A","B","C","D","E","F","G")
values_1   <- c(0.45,0.3,0.5,0.4,0.55,0.45,0.3)
values_2   <- c(0.4,0.45,0.3,0.45,0.4,0.55,0.4)
df <- data.frame(class=class_list, v1=values_1, v2=values_2)

#Melt Dataframe 
df_plot <- melt(df, id.vars='class')

#Create Colour Palette
colour_palette = c("#CDF57A","#ABCE66","#375623","#FFFF00","#A87000","#732600","#FF0000")
  
#Create Dodged Bar Chart 
p <- ggplot(df_plot, aes(x=class, y=value, fill=class, family=variable)) + theme_classic()
p <- p + geom_bar(stat='identity', position='dodge', colour='black') 
p <- p + scale_fill_manual(values = colour_palette) + theme(legend.position="none")
p

产生：

来自代码的预期 Output

但是，我正在尝试创建这样的东西：

所需 Output

（理想情况下，我可以有另一个自定义调色板，而不是一种颜色）

Answer 1

为了达到您想要的结果，您可以使用例如interaction class和fill variable 。

作为如何添加第二个盘子的示例，我只是颠倒了您的调色板以复制 colors 的数量：

library(ggplot2)
library(reshape2)
#Setup Values & DataFrame
class_list <- c("A","B","C","D","E","F","G")
values_1   <- c(0.45,0.3,0.5,0.4,0.55,0.45,0.3)
values_2   <- c(0.4,0.45,0.3,0.45,0.4,0.55,0.4)
df <- data.frame(class=class_list, v1=values_1, v2=values_2)

#Melt Dataframe 
df_plot <- melt(df, id.vars='class')

#Create Colour Palette
colour_palette = c("#CDF57A","#ABCE66","#375623","#FFFF00","#A87000","#732600","#FF0000")
colour_palette <- c(colour_palette, rev(colour_palette))
#Create Dodged Bar Chart 
p <- ggplot(df_plot, aes(x=class, y=value, fill=interaction(class, variable))) + theme_classic()
p <- p + geom_bar(stat='identity', position='dodge', colour='black') 
p <- p + scale_fill_manual(values = colour_palette) + theme(legend.position="none")
p