Search code examples
rggplot2groupingboxplot

Setting colors of boxplot & jitter point in custom manner ggplot2

given the following dataset, how do I go about setting the outline of the boxes to black (or any other colour I want), while customly colouring the jittered points? I know how to do this in a simple boxpot, where dodging due to two subgroups is not necesary, but run into grouping issues if I try to mess with the code shown below.

Line <- c("A", "A", "B", "B")
FC <- c(2, -1, 3, -0.5, 2.1, 0, 2.2, -2, 1.8, -0.1, 2, -1)
TM <- c("control", "exp", "control", "exp", "control", "exp", "control", "exp", "control", "exp", "control", "exp")
df1 <- data.frame(Line, FC, TM)
head(df1)

library(ggplot2)
cbpallette=c("#EF9F26", "#082F6D")
df1 %>%
  ggplot(aes(x=Line,y=FC, color=TM)) + 
  stat_boxplot(geom = 'errorbar', width=0.15, position = position_dodge(width=0.6)) +
  geom_boxplot(outlier.shape=NA, width=0.4, position = position_dodge(width=0.6)) +
  geom_point(position=position_jitterdodge(dodge.width = 0.6, jitter.width = 0.1), alpha=0.4) + theme_classic() +
  scale_color_manual(values = cbpallette) +
  scale_y_continuous(limits=c(-3, 3), breaks=c(-3, -2, -1, 0, 1, 2, 3)) + theme(axis.ticks.length = unit(-0.1, "cm"))

Example

Solution

  • You need to set the color aesthetic within geom_point as Rui has said. In order to keep the grouping on the barcharts, you can use interaction()

    Does this produce what you want?

    df1 %>%
  ggplot(aes(x = Line, y = FC, group = interaction(Line, TM))) + 
  stat_boxplot(geom = 'errorbar', width=0.15, position = position_dodge(width=0.6)) +
  geom_boxplot(outlier.shape=NA, width=0.4, position = position_dodge(width=0.6)) +
  geom_point(aes(color = TM), position=position_jitterdodge(dodge.width = 0.6, jitter.width = 0.1), alpha=0.4) + theme_classic() +
  scale_color_manual(values = cbpallette) +
  scale_y_continuous(limits=c(-3, 3), breaks=c(-3, -2, -1, 0, 1, 2, 3)) + theme(axis.ticks.length = unit(-0.1, "cm"))

    Plot