R语言绘图系列:
- R语言可视化及作图1--基础绘图(par函数,散点图,盒形图,条形图,直方图)
- R语言可视化及作图2--低级绘图函数
- R语言可视化及作图3--图形颜色选取
- R语言可视化及作图4--qplot和ggplot2美学函数
- R语言可视化及作图5--ggplot2基本要素和几何对象汇总
- R语言可视化及作图6--ggplot2之点图、条形图、盒形图、直方图、线图
- R语言可视化及作图7--ggplot2之标签、图例和标题绘制
- R语言可视化及作图8--坐标轴自定义和坐标系转换
一. 主题函数
1. ggtheme {ggplot2}
1.1 绘制一张题
library(ggplot2)
mg <- ggplot(mtcars,aes(x=mpg,y=wt))+geom_point()
mg #默认灰色背景
![](https://img.haomeiwen.com/i15771939/4c6cdaef6a367a71.png)
1.2 theme_bw函数
a <- mg+theme_bw()+geom_text(aes(x=30,y=5),label='theme_bw()',color=
'red',size=10)
a #白色网格背景
![](https://img.haomeiwen.com/i15771939/634f047395073264.png)
1.3 theme_classic函数
b <- mg+theme_classic()+geom_text(aes(x=25,y=5),label='theme_classic()',
color='red',size=10)
b #经典白色背景
![](https://img.haomeiwen.com/i15771939/94af3cbbdf35e8b9.png)
1.4 theme_dark
c <- mg+theme_dark()+geom_text(aes(x=25,y=5),label='theme_dark()',
color='red',size=10)
c #暗色背景
![](https://img.haomeiwen.com/i15771939/1922951b8680e6c3.png)
1.5 theme_light函数
d <- mg+theme_light()+geom_text(aes(x=25,y=5),label='theme_light()',
color='red',size=10)
d
![](https://img.haomeiwen.com/i15771939/7e36a7723f29b819.png)
1.6 theme_get函数
e <- mg+theme_get()+geom_text(aes(x=25,y=5),label='theme_get()',
color='red',size=10)
e#与原始背景类似
![](https://img.haomeiwen.com/i15771939/044ec50274faa822.png)
1.7 theme_linedraw函数
f <- mg+theme_linedraw()+geom_text(aes(x=25,y=5),label='theme_linedraw()',
color='red',size=10)
f
![](https://img.haomeiwen.com/i15771939/2e600344b10539fe.png)
1.8 theme_replace
g <- mg+theme_replace()+geom_text(aes(x=25,y=5),label='theme_replace()',
color='red',size=10)
g #与默认类似
![](https://img.haomeiwen.com/i15771939/95d6578ca1def415.png)
1.9 theme_minimal
h <- mg+theme_minimal()+geom_text(aes(x=25,y=5),label='theme_minimal()',
color='red',size=10)
h #x轴y轴不见了,只有网格
![](https://img.haomeiwen.com/i15771939/3b702db0c88fb807.png)
1.10 theme_void
i <- mg+theme_void()+geom_text(aes(x=25,y=5),label='theme_void()',
color='red',size=10)
i #只有点
![](https://img.haomeiwen.com/i15771939/4fde6154214be4c2.png)
2. ggthemes包
绘制一张图
library(ggplot2)
library(ggthemes)
p <- ggplot(mtcars,aes(x=wt,y=mpg,color=factor(gear)))+
geom_point()+labs(title = 'Cars')+
theme(plot.title = element_text(hjust = 0.5,family = 'Times New Roman'))
p
![](https://img.haomeiwen.com/i15771939/0d2e6ba314d4f7d0.png)
2.1 theme_economist
a <- p+theme_economist()+scale_color_economist()+
geom_text(aes(x=4,y=30),label='theme_economics',color='deeppink')
a
![](https://img.haomeiwen.com/i15771939/77817a80613facb8.png)
2.2 theme_solarized
b <- p+theme_solarized()+scale_color_solarized('blue')+
geom_text(aes(x=4,y=30),label='theme_solarized',color='deeppink')
b
![](https://img.haomeiwen.com/i15771939/f5a7a9f26e7dcf99.png)
2.3 theme_dark
c <- p+theme_solarized(light = FALSE)+scale_color_solarized('red')+
geom_text(aes(x=4,y=30),label='theme_dark',color='deeppink')
c
![](https://img.haomeiwen.com/i15771939/a873663ef979172e.png)
2.4 theme_dark2
d <- p+theme_solarized_2(light = FALSE)+scale_color_solarized('blue')+
geom_text(aes(x=4,y=30),label='theme_dark2',color='deeppink')
d
![](https://img.haomeiwen.com/i15771939/8d27db97c5f52d61.png)
2.5 theme_stata
e <- p+theme_stata()+scale_color_stata()+
geom_text(aes(x=4,y=30),label='theme_stata',color='deeppink')
e #模仿stata生成的图
![](https://img.haomeiwen.com/i15771939/fd2acf36a03bdc81.png)
2.6 theme_igray
f <- p+theme_igray()+geom_text(aes(x=4,y=30),label='theme_igray',color='deeppink')
f
![](https://img.haomeiwen.com/i15771939/f55d7c92244ba28c.png)
2.7 theme_wsj
h <- p+theme_wsj()+scale_color_wsj('colors6','')+
geom_text(aes(x=4,y=30),label='theme_wsj',color='deeppink')
h
![](https://img.haomeiwen.com/i15771939/a65a707f4645a27e.png)
2.8 theme_calc
i <- p+theme_calc()+scale_color_calc()+
geom_text(aes(x=4,y=30),label='theme_calc',color='deeppink')
i
![](https://img.haomeiwen.com/i15771939/10eaf396e5df8fe3.png)
2.9 theme_pander
j <- p+theme_pander()+scale_color_pander()+
geom_text(aes(x=4,y=30),label='theme_pander',color='deeppink')
j
![](https://img.haomeiwen.com/i15771939/24baa09f8db8c1e6.png)
2.10 theme_hc
k <- p+theme_hc()+scale_color_hc()+
geom_text(aes(x=4,y=30),label='theme_hc',color='deeppink')
k
![](https://img.haomeiwen.com/i15771939/76503c9d2b0ba9e1.png)
网友评论