R语言绘图|分面标签位置调整

本文主要介绍在ggplot2中如何调整facet_wrap() 分面函数下的标签位置、字体、背景颜色等。

1、数据准备

library(ggplot2)
library(gcookbook)
head(heightweight)
#  sex ageYear ageMonth heightIn weightLb
#1   f   11.92      143     56.3     85.0
#2   f   12.92      155     62.3    105.0
#3   f   12.75      153     63.3    108.0
str(heightweight)
#'data.frame': 236 obs. of  5 variables:
# $ sex     : Factor w/ 2 levels "f","m": 1 1 1 1 1 1 1 1 1 1 ...
# $ ageYear : num  11.9 12.9 12.8 13.4 15.9 ...
# $ ageMonth: int  143 155 153 161 191 171 185 142 160 140 ...
# $ heightIn: num  56.3 62.3 63.3 59 62.5 62.5 59 56.5 62 53.8 ...
# $ weightLb: num  85 105 108 92 112 ...

2、分面标签位置调整

通过控制facet_wrap() 函数内的strip.position参数可实现对分面标签的位置调整。strip.position参数可设置为"top", "bottom", "left", "right"等其中的任意一个。

2.1 默认：strip.position = "top"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex) + # strip.position = "top"
  theme_bw() 

2.2 strip.position = "bottom"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "bottom") + 
  theme_bw() 

2.3 strip.position = "left"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "left") + 
  theme_bw() 

2.4 strip.position = "right"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "right") + 
  theme_bw() 

3、分面标签方向调整

通过控制facet_wrap() 函数内的dir参数可实现对分面标签的方向调整。dir参数可设置为h水平或v水平。

3.1 strip.position = "top",dir = "v"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, dir = "v") + # strip.position = "top"
  theme_bw() 

3.2 strip.position = "bottom",dir = "v"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "bottom", dir = "v") + 
  theme_bw() 

3.3 strip.position = "left", dir = "v"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "left", dir = "v") + 
  theme_bw() 

3.4 strip.position = "right", dir = "v"

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "right", dir = "v") + 
  theme_bw() 

分面标签字体、颜色调整

利用strip.text() 函数调整分面标签字体相关属性，利用strip.background() 函数调整分面标签背景相关属性。

ggplot(heightweight, aes(ageYear , heightIn )) + 
  geom_point() + 
  facet_wrap(~sex, strip.position = "left", dir = "v") + 
  theme_bw() + 
  theme(strip.text = element_text(size = 15),
    strip.background = element_rect(fill = "lightblue"))

其他

关于facet_wrap() 函数的更多内容可在RStudio控制台输入help(facet_wrap) 查看。

facet_wrap(
  facets,
  nrow = NULL,
  ncol = NULL,
  scales = "fixed",
  shrink = TRUE,
  labeller = "label_value",
  as.table = TRUE,
  switch = NULL,
  drop = TRUE,
  dir = "h",
  strip.position = "top"
)

如有帮助请多多点赞哦！