ggplot：设置2+因素的颜色

Question

我有一个包含2个因子的数据集，每个因子有2个级别。我想制作一个有4种不同颜色的分组条形图。

数据如下所示：

TrialType Group yvar
TP         C     1
TP         E     2
TA         C     3
TA         E     4

我用它来制作条形图

ggplot(data=k, aes(x=V2, y=V3, fill=V1)) + 
  geom_bar(stat="identity", position="dodge", color="#000000") + 
  scale_fill_manual(values=c("#d7191c", "#FFBB45"), breaks=c("TA", "TP"))

我得到this图。

有没有办法制作这个图形，使条形从左到右变为深红色/浅红色/深黄色/浅黄色？因此，基于红色/黄色描绘了这些组，并根据黑暗描绘了试验类型？

非常感谢！
Mrinmayi

Answer 1

基本上这样，使用interaction为每个组合获取唯一的颜色：

ggplot(data=k, aes(x=Group, y=yvar, fill=interaction(TrialType,Group))) + 
  geom_bar(stat="identity", position="dodge", color="#000000")+
  scale_fill_manual(values = c("dark red", "pink", "yellow", "light yellow"))

Answer 2

您需要通过组合前两个因子变量来创建一个新变量，并将其用作aes（）中的填充。见下文。

library(tidyverse)

k <- tibble(TrialType=c("TP","TP","TA","TA"),
            Group=c("C","E","C","E"),
            yvar=c(1:4))

k$TrialType <- as.factor(k$TrialType)
k$Group <- as.factor(k$Group)

k$var4 <- as.factor(paste(k$TrialType, k$Group))

ggplot(data=k, aes(x=Group, y=yvar,fill=var4)) + 
  geom_bar(stat="identity", position="dodge", color="#000000") + 
  scale_fill_manual(values=c("#C70039","#FFC300","#FF5733","#DAF7A6"))

情节看起来像这样。