r - 将文本背景设置为 ggplot 轴文本

Question

我有一个 ggplot 图形，它有一个长文本作为 Y 轴。

我正在尝试找到一种方法来设置 Y 轴的背景颜色，并使用两种不同颜色的“斑马主题”，如下所示

但 element_text() 中似乎没有 ggplot 功能。

有人可以帮助我吗？

谢谢

特洛帕夏

Answer 1

如果你破解了主题系统，这可能是可能的，但这可能不是一个好主意。

library(grid)

element_custom <- function(...) {
  structure(list(...), class = c("element_custom", "element_blank"))
}

element_grob.element_custom <- function(element, label, x, y, ...)  {
  tg <- textGrob(label, y=y, gp=gpar(col=element$colour))
  padding <- unit(1,"line")
  rg <- rectGrob(y=y,width=grobWidth(tg)+padding, height=unit(1,"line")+padding, 
                 gp=gpar(fill = element$fill, col=NA, alpha=0.1))
  gTree(children=gList(rg, tg), width=grobWidth(tg) + padding, cl="custom_axis")
}

widthDetails.custom_axis <- function(x) x$width + unit(2,"mm") # fudge


qplot(1:3,1:3) +
  theme(axis.text.y = element_custom(colour = 1:2, fill=1:2))