geom_boxplot | ggplot examples

Quick Start

library(ggplot2)
library(patchwork)

p1<- ggplot(ChickWeight,aes(x=Time,y=weight)) +
    geom_boxplot()+
    theme_light() + ggtitle("P1")

ChickWeight$Time <- factor(ChickWeight$Time)
p2<- ggplot(ChickWeight,aes(x=Time,y=weight)) +
    geom_boxplot()+
    theme_light() + ggtitle("P2")

ChickWeight$Diet <- factor(ChickWeight$Diet)

p3<- ggplot(ChickWeight,aes(x=Time,y=weight)) +
    geom_boxplot(aes(fill=Diet))+
    theme_light() + ggtitle("P3")


p4<- ggplot(ChickWeight,aes(x=Time,y=weight)) +
    geom_boxplot(aes(group=Diet, fill=Diet))+
    theme_light() + ggtitle("P4")

GGlay = 'ABBBB
CCCCD'

p1+p2+p3+p4 + plot_layout(design = GGlay)
##ggsave('box1.png')

As you can see, we can separate the box by call the axis.x Time as factors (p2).

Add smooth line

ggplot(ChickWeight,aes(x=Time,y=weight)) +
        geom_boxplot(aes(fill=Diet),alpha=0.4)+
        theme_light() + ggtitle("P3")+ geom_smooth(aes(group=Diet),color='red')+
        facet_wrap(~Diet)