Created
November 14, 2012 04:53
-
-
Save cdesante/4070326 to your computer and use it in GitHub Desktop.
plottext3
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
toInstall <- c("ggplot2") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
library(ggplot2) | |
text.plots <- data.frame( | |
SUPP = c (rep(c( "Control", "Vitamin C", "Orange Juice" ), each = 1500)) , | |
DOSE = rep(rep(c( "I", "II", "III" ), each=500), 3), | |
LENGTH = c(rnorm(500, 4, 2), | |
rnorm(500, 7, 1.2), | |
rnorm(500, 8, 1.4), | |
rnorm(500, 7, 1), | |
rnorm(500, 8, 4), | |
rnorm(500, 10, 2), | |
rnorm(500, 8, 2.7), | |
rnorm(500, 7, 1.8), | |
rnorm(500, 6, 1.9)), stringsAsFactors = FALSE ) | |
Plot.0 <- ggplot( text.plots, aes( x = SUPP, y = LENGTH , fill = SUPP ) ) + | |
geom_boxplot( alpha = 0.6, outlier.colour = c("grey40") , outlier.size=3.5 | |
) + scale_fill_manual(values=c("cadetblue", "orange", "orangered3")) + | |
facet_wrap(~DOSE) + theme_bw() +labs(title="Tooth Growth in Guinea Pigs \n", | |
x="\n Treatment", y="Change in Length (mm) \n") + guides(fill = guide_legend("\n Supplement")) +geom_hline(y=0, lty=2) | |
Plot.0 | |
Plot.1 <- Plot.0 + scale_y_continuous(breaks=seq(-4, 24, by=4)) | |
Plot.1 | |
#Plot.1 Now bcomes our basis plot to adjust: | |
# Adjusting Labels/Title Text: | |
# http://docs.ggplot2.org/current/element_text.html | |
#Adjust X Axis Label Size/Face/Color: | |
Plot.1 + theme(axis.title.x = element_text(face="bold", | |
colour="dodgerblue", | |
size=14) ) | |
#Adjust Y Axis Label Size/Face/Color: | |
Plot.1 + theme(axis.title.y = element_text(face="italic", | |
colour="darkred", | |
size=24) ) | |
#When adjusting multiple parameters, you can use specify both within the "theme" command: | |
Plot.1 + theme(axis.title.x = element_text(face="bold", | |
colour="dodgerblue", | |
size=14), | |
axis.title.y = element_text(face="italic", | |
colour="darkred", | |
size=24) ) | |
#Changing Main Title Text/Face/Color | |
Plot.1 + theme(plot.title = element_text(family="sans", | |
face="bold", | |
colour="darkblue", | |
size=44) ) | |
#Adjust just the text in the legend: | |
#You can adjust either the legend title text | |
Plot.1 + theme(legend.title = element_text(colour="dodgerblue", | |
size=26, | |
face="bold")) | |
# Or the text for the legend labels. | |
Plot.1 + theme(legend.text = element_text(colour="goldenrod4", | |
size = 18, | |
face = "italic")) | |
#Doing both simultaneously: | |
Plot.1 + theme(legend.title = element_text(colour="dodgerblue", | |
size=26, | |
face="bold"), | |
legend.text = element_text(colour="goldenrod4", | |
size = 18, | |
face = "italic")) | |
#Another option in the element_text() is angle, which is useful in certain ocassions | |
#Especially when you have tight axis tick labels | |
Plot.1 + theme(axis.text.x = element_text(colour="black", | |
size = 12, | |
face = "plain")) | |
Plot.1 + theme(axis.text.x = element_text(colour="black", | |
size = 11, | |
face = "bold.italic", | |
angle=45, | |
vjust=1, | |
hjust=1)) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment