r - 在(R，ggplot2)中围绕条形图和类别绘制一个矩形

Question

我想围绕类别的单个级别创建一个框/矩形，并包括轴类别文本和栏本身:

正如您在照片中看到的那样，矩形延伸到网格之外并进入绘图区域以包含轴文本。我希望有一些可定制的东西，这样我就可以画圆角或不画圆角，改变颜色，并指定它的位置。

这是我用来制作情节的一些通用代码:

ggplot(mtcars, aes(x=factor(cyl)))+
  geom_bar(stat="count", width=0.7, fill="steelblue")+
  theme_minimal()

希望这个问题没有在某处得到解答!

Answer 1

1. 对于矩形使用 annotate 和 "rect"
2. 要越过 x 轴，您可以将 x 轴设置为空白
3. 然后添加新的准轴，geom_text 将 y 设置为 0 或 -1。玩以适应:

p <- ggplot(mtcars, aes(x=factor(cyl)))+
    geom_bar(stat="count", width=0.7, fill="steelblue")+
    theme_minimal() 
    

p + annotate("rect", xmin = 0.5, xmax = 1.5, ymin = -1, ymax = 12,
             alpha = 0, color= "green") +
    theme(axis.text.x = element_blank(),
            axis.line.x = element_blank(),
            axis.ticks.x = element_blank()) +
    geom_text(aes(y = -0.5, x = factor(cyl), 
                  label = cyl)) +
    labs(title="Rectangle over x axis!",
          x ="cyl", y = "count")