cdesante / plottext3.r

Created November 14, 2012


    
    View plottext3.r 
  
  
      plottext3.r
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
            32
            33
            34
            35
            36
            37
            38
            39
            40
            41
            42
            43
            44
            45
            46
            47
            48
            49
            50
            51
            52
            53
            54
            55
            56
            57
            58
            59
            60
            61
            62
            63
            64
            65
            66
            67
            68
            69
            70
            71
            72
            73
            74
            75
            76
            77
            78
            79
            80
            81
            82
            83
            84
            85
            86
            87
            88
            89
            90
            91
            92
            93
            94
            95
            96
          
          
            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))