breaking_up_axes_labels.R

cool_science_stuff <- data.frame(a=runif(20, 2, 5), b=runif(20, 5, 10), c=rep("long name \nof a thing", 20))

library(ggplot2)

ggplot(data=cool_science_stuff)+
     geom_boxplot(aes(x=c, y=a))
     
###


cool_science_stuff <- data.frame(a=runif(20, 2, 5), b=runif(20, 5, 10), c=rep("long name of a thing", 20))

library(ggplot2)

ggplot(data=cool_science_stuff)+
     geom_boxplot(aes(x=c, y=a))+
     scale_x_discrete(labels=c("long name of a thing"="long name \nof a thing"))