用ggplot2标记小面带

Question

这个问题可以是G-图线图中的多行x轴标签问题的延续。

我需要知道如何给这些条子贴上标签。例如，在给定的链接中，在每个地块的顶部都有提到的年份，例如2009年、2010年等等。如果我需要显示Year=2009、Year=2010等，而不是2009年、2010年等，我应该如何更改代码？

样本代码

set.seed(1)
df=data.frame(year=rep(2009:2013,each=4),
              quarter=rep(c("Q1","Q2","Q3","Q4"),5),
              sales=40:59+rnorm(20,sd=5))
library(ggplot2)
ggplot(df) +
  geom_line(aes(x=quarter,y=sales,group=year))+
  facet_wrap(.~year,strip.position = "top",scales="free")+
  theme(#panel.spacing = unit(0, "lines"),
    strip.placement = "outside",
    axis.title.x=element_blank(),
    legend.position="none") 

Answer 1

修改facet标签有多种方法。您可以在绘制之前修改faceting变量：

df$year <- paste0("Year=", df$Year)

ggplot(df) +
  ...

也可以在facet_wrap()中修改它。

  ... +
  facet_wrap(
    .~paste0("Year=", year),
    strip.position = "top",
    scales = "free"
  ) +
  ...

或者您可以指定一个标牌函数。对于您的情况来说，这无疑是过分的，但对于以更复杂的方式转换标签可能很有用。

  ... +
  facet_wrap(
    .~year,
    labeller = as_labeller(\(x) paste0("Year=", x)),
    strip.position = "top",
    scales = "free"
  ) +
  ...

所有这些方法的输出：

​

​