ggplot2作图详解7（完）：主题（theme）设置

library(ggplot2) theme_gray # 函数名不加括号，获得函数的代码

## function (base_size = 12, base_family = "") 
## { 
## theme(line = element_line(colour = "black", size = 0.5, linetype = 1, 
## lineend = "butt"), rect = element_rect(fill = "white", 
## colour = "black", size = 0.5, linetype = 1), text = element_text(family = base_family, 
## face = "plain", colour = "black", size = base_size, hjust = 0.5, 
## vjust = 0.5, angle = 0, lineheight = 0.9), axis.text = element_text(size = rel(0.8),
 ## colour = "grey50"), strip.text = element_text(size = rel(0.8)), 
## axis.line = element_blank(), axis.text.x = element_text(vjust = 1),
 ## axis.text.y = element_text(hjust = 1), axis.ticks = element_line(colour = "grey50"), 
## axis.title.x = element_text(), axis.title.y = element_text(angle = 90), 
## axis.ticks.length = unit(0.15, "cm"), axis.ticks.margin = unit(0.1, 
## "cm"), legend.background = element_rect(colour = NA), 
## legend.margin = unit(0.2, "cm"), legend.key = element_rect(fill = "grey95", 
## colour = "white"), legend.key.size = unit(1.2, "lines"), 
## legend.key.height = NULL, legend.key.width = NULL, legend.text = element_text(size = rel(0.8)),
 ## legend.text.align = NULL, legend.title = element_text(size = rel(0.8), 
## face = "bold", hjust = 0), legend.title.align = NULL, 
## legend.position = "right", legend.direction = NULL, legend.justification = "center", 
## legend.box = NULL, panel.background = element_rect(fill = "grey90", 
## colour = NA), panel.border = element_blank(), panel.grid.major = element_line(colour = "white"), 
## panel.grid.minor = element_line(colour = "grey95", size = 0.25),
 ## panel.margin = unit(0.25, "lines"), strip.background = element_rect(fill = "grey80",
 ## colour = NA), strip.text.x = element_text(), strip.text.y = element_text(angle = -90), 
## plot.background = element_rect(colour = "white"), plot.title = element_text(size = rel(1.2)), 
## plot.margin = unit(c(1, 1, 0.5, 0.5), "lines"), complete = TRUE) ## }
 ##

# 函数说明，非运行代码 theme(..., complete = FALSE)

##‘ A nice-looking ggplot2 theme: inward axis ticks, legend title excluded, and uniform background. ##‘ @title A nice-looking ggplot2 theme ##‘ @param ... ##‘ Parameters passed to theme_classic() function. ##‘ @param bg ##‘ Color string (default ‘white‘) for user defined uniform background. ##‘ @return ##‘ ggplot2 theme object. ##‘ @examples ##‘ library(ggplot2) ##‘ qplot(x=carat, y=price, color=cut, data=diamonds) + theme_zg() ##‘ @author ZGUANG ##‘ @export theme_zg <- function(..., bg=‘white‘){ require(grid)theme_classic(...) + theme(rect=element_rect(fill=bg), plot.margin=unit(rep(0.5,4),‘lines‘), panel.background=element_rect(fill=‘transparent‘, color=‘black‘),panel.border=element_rect(fill=‘transparent‘, color=‘transparent‘),panel.grid=element_blank(), axis.title = element_text(color=‘black‘, vjust=0.1),axis.ticks.length = unit(-0.4,"lines"), axis.ticks = element_line(color=‘black‘),axis.ticks.margin = unit(0.8,"lines"), legend.title=element_blank(),legend.key=element_rect(fill=‘transparent‘, color=‘transparent‘)) }

sessionInfo()

## R version 3.0.1 (2013-05-16) 
## Platform: x86_64-pc-linux-gnu (64-bit) 
## ## locale: 
## [1] LC_CTYPE=zh_CN.UTF-8 LC_NUMERIC=C
 ## [3] LC_TIME=zh_CN.UTF-8 LC_COLLATE=zh_CN.UTF-8 
## [5] LC_MONETARY=zh_CN.UTF-8 LC_MESSAGES=zh_CN.UTF-8
 ## [7] LC_PAPER=C LC_NAME=C 
## [9] LC_ADDRESS=C LC_TELEPHONE=C #
# [11] LC_MEASUREMENT=zh_CN.UTF-8 LC_IDENTIFICATION=C 
## ## attached base packages: 
## [1] grid tcltk stats graphics grDevices utils datasets 
## [8] methods base ## ## other attached packages: 
## [1] zblog_0.0.1 knitr_1.3.5 ggplot2_0.9.3.1 
## ## loaded via a namespace (and not attached): 
## [1] colorspace_1.2-2 dichromat_2.0-0 digest_0.6.3 
## [4] evaluate_0.4.4 formatR_0.8 gtable_0.1.2 
## [7] highr_0.1.2 labeling_0.2 MASS_7.3-27 
## [10] munsell_0.4.2 plyr_1.8 proto_0.3-10 
## [13] RColorBrewer_1.0-5 reshape2_1.2.2 scales_0.2.3 
## [16] stringr_0.6.2 tools_3.0.1