通过ggh4x调整ggplot2图形刻度

ggh4x软件包是ggplot2扩展软件包。它提供了一些不完全符合“图形语法”概念的实用程序功能但在调整ggplots时仍然有用

下面通过几个小例子来展示一下ggh4x的功能

devtools::install_github("teunbrand/ggh4x")

library(ggh4x)
library(tidyverse)
g <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  theme(axis.line = element_line(colour = "black"))

g

g + guides(x = "axis_truncated")

image.png

可以通过设置引导功能中的trunc_lower和trunc_upper来控制截断轴线的距离

g + guides(x = guide_axis_truncated(trunc_lower = unit(0.1, "npc"),
                                    trunc_upper = unit(0.9, "npc")))

g + guides(x = guide_axis_truncated(trunc_lower = 2.5,
                                    trunc_upper = 4.5))

在下面的示例中，使用interaction()函数将项目名称及其所属的组注释在一起。该guide_axis_nested()`以逗号将标签分开

df <- data.frame(
  item = c("Coffee", "Tea", "Apple", "Pear", "Car"),
  type = c("Drink", "Drink", "Fruit", "Fruit", ""),
  amount = c(5, 1, 2, 3, 1))
df

> df
    item  type amount
1 Coffee Drink      5
2    Tea Drink      1
3  Apple Fruit      2
4   Pear Fruit      3
5    Car            1

ggplot(df, aes(interaction(item, type), amount)) +
  geom_col() +
  guides(x = "axis_nested")

可以使用paste0()功能将名称与分组组合在一起。在以下情况下，名称会自动按字母顺序排序，可以使用delim参数来定义分割标签

ggplot(df, aes(paste0(item, "~nonsense~", type), amount)) +
  geom_col() +
  guides(x = guide_axis_nested(delim = "nonsense"))

ggplot(df, aes(weave_factors(item, type), amount)) +
  geom_col() +
  guides(x = "axis_nested")

ggh4x具有weave_factors()功能，该功保持输入数据的自然顺序

ggplot(df, aes(weave_factors(item, type), amount)) +
  geom_col() +
  guides(x = "axis_nested")

还可以修改刻度条颜色与注释条信息

ggplot(df, aes(weave_factors(item, type), amount)) +
  geom_col() +
  guides(x = "axis_nested") +
  theme(
    axis.ticks = element_line(colour = "red"),
    ggh4x.axis.nestline.x = element_line(size = 2),
    ggh4x.axis.nesttext.x = element_text(colour = "blue"))

会可以堆砌注释信息

df$type2 <- c(rep("Consumables", 4), "Vehicle")
df$appletea <- c("", rep("Ingredient of apple tea", 2), rep(NA, 2))

ggplot(df, aes(weave_factors(item, type, appletea, type2), amount)) +
  geom_col() +
  guides(x = "axis_nested")