使用 ggplot2::geom_smooth() 时如何显示整数

Question

在下面的示例中，如何将 x label 舍入为偶数？ 我不能先将它们转换为因子，因为那样geom_smooth就不起作用

library(ggplot2)

set.seed(32)


df <- data.frame(a = as.integer(rnorm(250, 2, 0.1)))
df$b <- df$a + rnorm(250)
df$id = 1

df_2 <- df
df_2$id <- 2

df_tot <- rbind(df, df_2)

ggplot(df_tot, aes(x = a, y = b)) +
  geom_smooth() +
  facet_wrap(~id)

Answer 1

如果我们想要偶数，一个选项是在 scale_x_continuous 中将labels添加为scale_x_continuous

library(ggplot2)
ggplot(df_tot, aes(x = a, y = b)) +
  geom_smooth() +
  facet_wrap(~id) + 
  scale_x_continuous(labels = function(x) seq(2, length.out = length(x)))