使用ggplot2，您如何在刻度标签周围创建一个框？

出于以下几个原因，我试图复制下面显示的怪诞阴谋。它违反了良好数据可视化的许多规则，所以出于培训目的，我的目标是使用ggplot2并解构它 - 逐个删除或修改选择不好的功能。使用底部复制的数据和剧情下方的代码，我越来越接近，但一直无法弄清楚如何包含一个显着特征。使用ggplot2，您如何在刻度标签周围创建一个框？

问题：有没有办法在三个刻度标签周围重现黑色阴影的矩形？（如果是这样，它直接创建另一个因素变量来确定这三个标签，并改变其字体为白色。）

enter image description here

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

enter image description here 顺便说一句，这个问题uses symbols for tick labels可以使用提供一些见解grImport包，但它的教导超出了我的想法，我正在寻找围绕指定刻度标签的阴影框。

dput(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")

来源

2015-07-12 lawyeR

我能想到的唯一方法是创建的情节，并呼吁'ggplot_build'和'手动ggplot_gtable'得到的网格版本剧情，然后手动编辑适当的grobs。 –

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

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)

会给你下图： enter image description here

来源

2015-07-21 20:51:14 RHA

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

来源

2015-07-21 19:42:53 hackR

你可能会把它打印出来并“涂黑”？ ;-) – RHA

也许吧。但是，您还必须扫描它:-) – hackR

正确。我必须想到别的东西！ @hackR – RHA

使用ggplot2，您如何在刻度标签周围创建一个框？

回答

相关问题