如何在 ggplot2 中围绕轴刻度标签创建一个框？

Question

出于多种原因，我试图复制下面显示的怪诞情节。它违反了许多良好数据可视化的规则，因此出于训练目的，我的目标是使用 ggplot2 并解构它——一次删除或修改一个选择不佳的特征。使用底部复制的数据和绘图下方的代码，我已经接近了，但一直无法弄清楚如何包含一个值得注意的功能。

问题：有没有办法重现三个刻度标签周围的黑色阴影矩形？（如果是这样，可以直接创建另一个因子变量来识别这三个标签并将它们的字体更改为白色。）

ggplot(plotpg19, aes(x = risks, y = scores, fill = colors)) +
  geom_bar(stat = "identity", width = 0.6) +
  scale_fill_manual(values = c("grey50", "deepskyblue2", "mediumorchid3", "gold")) +
  geom_text(aes(label = scores), hjust = -0.4, size = 8, face = "bold") +
  coord_flip() +
  theme_bw() + labs(x = NULL, y = NULL) +
  theme(panel.grid.major = element_blank()) +
  guides(fill = FALSE) +
  scale_y_continuous(breaks = seq(0, 100, 20), labels = seq(0, 100, 20), expand = c(0, 0)) +
  theme(
    panel.border = element_blank(),
    axis.line = element_line(colour = "black", size = 5, linetype = "solid", lineend = "square")
  ) +
  geom_hline(yintercept = seq(0, 80, 10), colour = "grey30", size = .5, linetype = "dotted") +
  theme(axis.line.x = element_blank()) # to get a single axis border, must format both and then blank one

顺便说一句，这个问题 uses symbols for tick labels 可能会提供一些使用 grImport 包的见解，但它的教义超出了我的范围，我正在寻找指定刻度标签周围的阴影框。

plotpg19 <- structure(list(risks.format = structure(c(2L, 3L, 1L, 4L, 5L, 
  7L, 8L, 6L), .Label = c("Geographic locations in which\n                                 the company operates", 
  "Inadequate resources for anti-bribery/\ncorruption compliance activities", 
  "Industries/sector(s) in which\n                                 the company operates", 
  "Lack of anti-bribery/corruption training\n                                 or awareness within the business", 
  "Lack of understanding\n                                 by top executives", 
  "Other", "Rogue employees", "Third parties/associates\n                                 acting on our behalf"
  ), class = "factor"), risks = structure(c(8L, 7L, 6L, 5L, 4L, 
  3L, 2L, 1L), .Label = c("Other", "Third parties/associates acting on our behalf", 
  "Rogue employees", "Lack of understanding by top executives", 
  "Lack of anti-bribery/corruption training or awareness within the business", 
  "Geographic locations in which the company operates", "Industries/sector(s) in which the company operates", 
  "Inadequate resources for anti-bribery/corruption compliance activities"
  ), class = "factor"), scores = c(15, 28, 71, 16, 5, 48, 55, 2
  ), colors = c("A", "A", "B", "A", "A", "C", "D", "A")), .Names = c("risks.format", 
  "risks", "scores", "colors"), row.names = c(NA, -8L), class = "data.frame")

Answer 1

稍微偏离主题，但这是一个建议的快速解决方法：将图形导出为 PNG（位图）或 SVG（基于矢量）并手动添加带有白色文本的黑色块。

Answer 2

我认为最好的办法是在刻度标签的位置创建视口，并在那里绘制一个黑色矩形和白色文本。例如：

vp1 <- viewport(x = 0.225, y = 0.55, width = 0.45, height = 0.07)
grid.rect(gp = gpar(fill="black"), vp = vp1)
grid.text("Lack of anti-bribery corruption training or awareness within the business", gp=gpar(col="white", cex = 0.6), vp = vp1)

会给你下图：

如何在 ggplot2 中围绕轴刻度标签创建一个框？

How can you create a box around an axis tick label in ggplot2?

r

ggplot2

axis-labels