Search code examples
rggplot2facet-wrapgeom-text

After placing text independently in each panel using facet_wrap() , how to change text color in R?

Here is a data

Genotype<- rep(c("CV1","CV2"),each=3)
treatment<-rep(c("T1","T2","T3"),2)
RATIO<- c(0.8,0.7,0.9,1.1,1.0,0.8)
DataA<- data.frame(Genotype,treatment,RATIO)

and this is a graph using facet_wrap()

A_labels <- data.frame(Genotype=c("CV1", "CV1", "CV1"),
                             perc= c("NA", "NA","PASS"), treatment=c("T1", "T2", "T3"),
                             RATIO=c(1.0, 0.90, 1.0))

B_labels <- data.frame(Genotype=c("CV2", "CV2", "CV2"),
                       perc= c("TEST", "PASS","FAIL"), treatment=c("T1", "T2", "T3"),
                       RATIO=c(1.2, 1.1, 1.1))

ggplot(data=DataA, aes(x=treatment, y=RATIO, fill=treatment)) +
  geom_bar(stat="identity",position="dodge", width = 0.7) + 
  scale_fill_manual(values= c ("Dark gray","Dark blue", "Dark red")) +
  scale_y_continuous(breaks = seq(0,1.5,0.2), labels = scales::percent, limits = c(0,1.5)) +
  
  geom_label(data=A_labels, aes(x=treatment, y=RATIO, label=perc, col=treatment), size=6, fill="white") +
  geom_label(data=B_labels, aes(x=treatment, y=RATIO, label=perc, col=treatment), size=6, fill="white") +
  scale_color_manual(values= c ("Blue","Red", "Blue")) +
  
  labs(x="treatment", y="Ratio (%)") +
  facet_wrap(~Genotype) + 
  theme(axis.title = element_text (face = "plain", size = 20, color = "black"),
        axis.text.x = element_text(size= 18),
        axis.text.y = element_text(size= 18),
        axis.line = element_line(size = 0.5, colour = "black"),
        legend.position = 'none')+
  windows(width=9, height=5)

enter image description here

It was successful to place texts in each panel independently using facet_wrap(), but I don't know how to put different color per treatment in each panel independently. For example, in the right panel, I want to change text color as green, yellow and orange.

Due to the code scale_color_manual(values= c ("Blue","Red", "Blue")) text color per treatment is the same in both panels.

Could you let me know how to change text color per treatment in each panel independently?

Thanks,

Solution

  • As you mentioned, you have only two levels. So I would do this a bit differently:

    #Loading the data and creating the the labels

Genotype<- rep(c("CV1","CV2"),each=3)
treatment<-rep(c("T1","T2","T3"),2)
RATIO<- c(0.8,0.7,0.9,1.1,1.0,0.8)
DataA<- data.frame(Genotype,treatment,RATIO)

A_labels <- data.frame(Genotype=c("CV1", "CV1", "CV1"),
                       perc= c("NA", "NA","PASS"), treatment=c("T1", "T2", "T3"),
                       RATIO=c(1.0, 0.90, 1.0))

B_labels <- data.frame(Genotype=c("CV2", "CV2", "CV2"),
                       perc= c("TEST", "PASS","FAIL"), treatment=c("T1", "T2", "T3"),
                       RATIO=c(1.2, 1.1, 1.1))

    Now, I will create two separate plots for two levels

    ggplot(data=subset(DataA, Genotype=='CV1'), aes(x=treatment, y=RATIO, fill=treatment)) +
  geom_bar(stat="identity",position="dodge", width = 0.7) + 
  scale_fill_manual(values= c ("Dark gray","Dark blue", "Dark red")) +
  scale_y_continuous(breaks = seq(0,1.5,0.2), labels = scales::percent, limits = c(0,1.5)) +
  
  geom_label(data=A_labels, aes(x=treatment, y=RATIO, label=perc, col=treatment), size=6, fill="white") +
  scale_color_manual(values= c ("Blue","Red", "Blue")) +
  facet_wrap(~Genotype)+
  labs(x="treatment", y="Ratio (%)") +
  theme(axis.title = element_text (face = "plain", size = 20, color = "black"),
        axis.text.x = element_text(size= 18),
        axis.text.y = element_text(size= 18),
        axis.line = element_line(size = 0.5, colour = "black"),
        legend.position = 'none')-> plot_cv1



ggplot(data=subset(DataA, Genotype=='CV2'), aes(x=treatment, y=RATIO, fill=treatment)) +
  geom_bar(stat="identity",position="dodge", width = 0.7) + 
  scale_fill_manual(values= c ("Dark gray","Dark blue", "Dark red")) +
  scale_y_continuous(breaks = seq(0,1.5,0.2), labels = scales::percent, limits = c(0,1.5)) +
  geom_label(data=B_labels, aes(x=treatment, y=RATIO, label=perc, col=treatment), size=6, fill="white") +
  scale_color_manual(values= c ("Green","Yellow", "Orange")) +
  facet_wrap(~Genotype)+
  labs(x="treatment", y="Ratio (%)") +
  theme(axis.title = element_text (face = "plain", size = 20, color = "black"),
        axis.text.x = element_text(size= 18),
        axis.text.y = element_text(size= 18),
        axis.line = element_line(size = 0.5, colour = "black"),
        legend.position = 'none')-> plot_cv2

    Now you may use, grid.arrange from gridExtra or ggarrange from ggpubr

    library(gridExtra)
grid.arrange(plot_cv1, plot_cv2, nrow = 1)

#or

library(ggpubr)
ggarrange(plot_cv1, plot_cv2, nrow = 1)

    Both will have the same output:

    Output