R语言中刻面图中一些元素修改的方法

介绍

在ggplot2中我们可以利用facet_wrap()和facet_grid()绘制出刻面图，但是刻面图中的一些元素（例如：刻面标签，刻面背景颜色等）进行个人化修改却不是很容易，这里将给出一些方法的介绍。

对刻面标签的修改

如果想改变刻面标签可以直接改变变量中取值的名称，或者利用labeller参数，如下所示：

利用labeller对象

library(reshape2)
library(ggplot2)
head(tips)
p=ggplot(tips,aes(x=total_bill,y=tip/total_bill))+geom_point(shape=1)

labels <- c(Female = "Women", Male = "Men")
labels2<-c( Fri="星期5")
p + facet_grid(sex ~day, labeller=labeller(sex = labels,day=labels2))

利用函数

library(reshape2)
library(ggplot2)
library(stringr)
head(tips)
p=ggplot(tips,aes(x=total_bill,y=tip/total_bill))+geom_point(shape=1)



myfun<-function(strings){
  str_replace(strings,'e','A')
}
p + facet_grid(sex ~day, labeller=labeller(sex=myfun,day=myfun))

对刻面背景的修改

theme()的参数中strip.开头的都是对刻面图进行调整

library(reshape2)
library(ggplot2)
library(stringr)
head(tips)
p=ggplot(tips,aes(x=total_bill,y=tip/total_bill))+geom_point(shape=1)


p + facet_grid(sex ~ day) +
  theme(strip.text.x = element_text(size=8, angle=75),
        strip.text.y = element_text(size=12, face="bold"),
        strip.background = element_rect(colour="red", fill="#CCCCFF"))

参考：
https://blog.csdn.net/tanzuozhev/article/details/51112177