R中具有连续标签和中断的堆叠条形图

Question

有没有办法制作带有连续中断和标签的堆叠条形图？ 将我的数据框从“更宽版本”转换为“更长版本”允许我制作堆叠条形图，但现在我的标签未对齐（CYR 2009 应直接高于 WYR 2010 等），我已修复，但由于这一变化，空的条形图出现在 2022 年的最右上方。

我试图只显示年份 <= 2021 并简单地将第二个 x 轴向左移动以排列两个标签，但这似乎对“空”条形图空间没有任何作用。

我的原始数据表：

>dput(prop)
structure(list(WYR = c(2010, 2011, 2012, 2013, 2014, 2015, 2016, 
2017, 2018, 2019, 2020, 2021, 2022), CYR = c(2009, 2010, 2011, 
2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021), 
    prop_zero = c(0.745762711864407, 0.888888888888889, 0.739130434782609, 
    0.842857142857143, 0.958333333333333, 0.915492957746479, 
    0.929577464788732, 0.75, 0.76056338028169, 0.720588235294118, 
    0.785714285714286, 0.6875, 0.833333333333333), prop_nonzero = c(0.254237288135593, 
    0.111111111111111, 0.260869565217391, 0.157142857142857, 
    0.0416666666666667, 0.0845070422535211, 0.0704225352112676, 
    0.25, 0.23943661971831, 0.279411764705882, 0.214285714285714, 
    0.3125, 0.166666666666667)), class = "data.frame", row.names = c(NA, 
-13L))

“更长”版本：

    >dput(prop)
    structure(list(WYR = c(2010, 2010, 2011, 2011, 2012, 2012, 2013, 
    2013, 2014, 2014, 2015, 2015, 2016, 2016, 2017, 2017, 2018, 2018, 
    2019, 2019, 2020, 2020, 2021, 2021, 2022, 2022), CYR = c(2009, 
    2009, 2010, 2010, 2011, 2011, 2012, 2012, 2013, 2013, 2014, 2014, 
    2015, 2015, 2016, 2016, 2017, 2017, 2018, 2018, 2019, 2019, 2020, 
    2020, 2021, 2021), class = c("prop_zero", "prop_nonzero", "prop_zero", 
    "prop_nonzero", "prop_zero", "prop_nonzero", "prop_zero", "prop_nonzero", 
    "prop_zero", "prop_nonzero", "prop_zero", "prop_nonzero", "prop_zero", 
    "prop_nonzero", "prop_zero", "prop_nonzero", "prop_zero", "prop_nonzero", 
    "prop_zero", "prop_nonzero", "prop_zero", "prop_nonzero", "prop_zero", 
    "prop_nonzero", "prop_zero", "prop_nonzero"), proportions = c(0.745762711864407, 
    0.254237288135593, 0.888888888888889, 0.111111111111111, 0.739130434782609, 
    0.260869565217391, 0.842857142857143, 0.157142857142857, 0.958333333333333, 
    0.0416666666666667, 0.915492957746479, 0.0845070422535211, 0.929577464788732, 
    0.0704225352112676, 0.75, 0.25, 0.76056338028169, 0.23943661971831, 
    0.720588235294118, 0.279411764705882, 0.785714285714286, 0.214285714285714, 
    0.6875, 0.3125, 0.833333333333333, 0.166666666666667)), row.names = c(NA, 
    -26L), class = c("tbl_df", "tbl", "data.frame"))

中断和标签：

   years <- seq(2009,2021,1)
   labs <- seq(2009,2021,by=1)

阴谋：

ggplot(prop[which(prop$CYR<=2021),], aes(x=CYR, y=proportions, fill=class)) + 
  geom_bar(position="fill", stat="identity") + 
  scale_y_continuous(limits = c(0, 1.0), expand = expansion(mult = c(0, 0.05))) +
  scale_x_continuous(breaks= years, labels = ~ rep("", length(.x))) +
  # CYR labels
  annotate(geom = "text",
           x = prop$CYR,
           y = -Inf,
           label = labs, 
           size = 8.8 / .pt,
           vjust = 2.5) +
  # WYR labels
  annotate(geom = "text",
           x = prop$WYR,
           y = -Inf,
           label = prop$WYR, 
           size = 8.8 / .pt,
           vjust = 4,
           hjust = 3.4,
           color = "grey") +
  # CYR title
  annotate(geom = "text",
           x = -Inf,
           y = -Inf,
           label = c("CYR"),
           vjust = 2.5, hjust = 1,
           size = 8.8 / .pt) +
  # WYR title
  annotate(geom = "text",
           x = -Inf,
           y = -Inf,
           label = c("WYR"),
           vjust = 4, hjust = 1,
           size = 8.8 / .pt,
           color = "grey") +
  coord_cartesian(clip = "off") +
  theme(axis.title.x = element_blank()) + 
  # Make extra space between axis ticks and axis title
  theme(axis.text.x.bottom = element_text(margin = margin(t = 8.8, b = 8.8)), 
        axis.text.x = element_text(size = 10, color = "grey"),
        axis.title.x = element_blank(),
        axis.text.y = element_text(size = 10),
        axis.title.y = element_text(margin = margin(t = 0, r = 10, b = 0, l = 0), size = 14),
        axis.ticks = element_line(colour = "black", size = 1), 
        panel.border = element_rect(fill = NA, color = "black", size = 1), 
        legend.position = "none") +
  labs(y = "Proportion")

Answer 1

问题是您使用x = prop$WYR作为 WYR 标签的 x 坐标，这会为 2022 年添加一个空条。而是使用x = prop$CYR并删除 - 恕我直言 - 不必要的hjust以对齐两行标签。

library(ggplot2)

years <- seq(2009, 2021)

ggplot(prop[which(prop$CYR <= 2021), ], aes(x = CYR, y = proportions, fill = class)) +
  geom_bar(position = "fill", stat = "identity") +
  scale_y_continuous(limits = c(0, 1.0), expand = expansion(mult = c(0, 0.05))) +
  scale_x_continuous(breaks = years, labels = ~ rep("", length(.x))) +
  # CYR labels
  annotate(
    geom = "text",
    x = prop$CYR,
    y = -Inf,
    label = prop$CYR,
    size = 8.8 / .pt,
    vjust = 2.5
  ) +
  # WYR labels
  annotate(
    geom = "text",
    x = prop$CYR,
    y = -Inf,
    label = prop$WYR,
    size = 8.8 / .pt,
    vjust = 4,
    color = "grey"
  ) +
  # CYR title
  annotate(
    geom = "text",
    x = -Inf,
    y = -Inf,
    label = c("CYR"),
    vjust = 2.5, hjust = 1,
    size = 8.8 / .pt
  ) +
  # WYR title
  annotate(
    geom = "text",
    x = -Inf,
    y = -Inf,
    label = c("WYR"),
    vjust = 4, hjust = 1,
    size = 8.8 / .pt,
    color = "grey"
  ) +
  coord_cartesian(clip = "off") +
  theme(axis.title.x = element_blank()) +
  # Make extra space between axis ticks and axis title
  theme(
    axis.text.x.bottom = element_text(margin = margin(t = 8.8, b = 8.8)),
    axis.text.x = element_text(size = 10, color = "grey"),
    axis.title.x = element_blank(),
    axis.text.y = element_text(size = 10),
    axis.title.y = element_text(margin = margin(t = 0, r = 10, b = 0, l = 0), size = 14),
    axis.ticks = element_line(colour = "black", size = 1),
    panel.border = element_rect(fill = NA, color = "black", size = 1),
    legend.position = "none"
  ) +
  labs(y = "Proportion")