ggplot：使用分类值添加geom_rect作为最小值和最大值

Question

我有一个非常基础的ggplot：

library(ggplot)

ggplot(mpg, aes(x=displ, y=manufacturer)) +
  geom_point() +
  geom_rect(aes(xmin=1.8, xmax=3.0, ymin='audi', ymax='audi', fill='red')) 

我想在y轴上的audi行上，从x轴值1.8到3.0之间添加一条条形图。在ggplot中是否有实现这一效果的方法？如果有任何其他帮助，请不吝赐教！

- duhaime

---

你能模拟一下你期望的输出吗？可以用画图软件或预览功能，或者手动指定坐标来展示吗？ - Ian Campbell

Answer 1

建立在 @Greg 的回答基础上，我认为在 geom_rect 的 aes 调用中重新创建因子水平更加安全。这是因为被强制转换为整数的是因子的 水平 而不是字符字符串。

ggplot(mpg, aes(x=displ, y=manufacturer)) +
  geom_point() +
  geom_rect(aes(ymin = which(levels(as.factor(manufacturer))=="audi") -0.5,
                ymax = which(levels(as.factor(manufacturer))=="audi") +0.5,
                xmin=1.8,
                xmax=3,
                fill="red"))

即使因素水平已从默认值更改，此方法仍然有效：

my.mpg <- mpg
my.mpg$manufacturer <-as.factor(my.mpg$manufacturer)
my.mpg$manufacturer <-factor(my.mpg$manufacturer,
                             levels = rev(levels(my.mpg$manufacturer)))
ggplot(my.mpg, aes(x=displ, y=manufacturer)) +
  geom_point() +
  geom_rect(aes(ymin = which(levels(as.factor(manufacturer))=="audi") -0.5,
                ymax = which(levels(as.factor(manufacturer))=="audi") +0.5,
                xmin=1.8,
                xmax=3,
                fill="red"))

相比之下，which(unique(...)) 方法失败：

man_list <- unique(my.mpg$manufacturer)

ggplot(my.mpg, aes(x=displ, y=manufacturer)) +
  geom_point() +
  # geom_rect(aes(xmin=1.8, xmax=3.0, ymin= "audi", ymax=lead("audi"), fill='red')) 
  geom_rect(aes(ymin = which(man_list=="audi")-0.5,
                ymax = which(man_list=="audi")+0.5,
                xmin=1.8,
                xmax=3,
                fill="red"))

- Ian Campbell

Answer 2

可以做到。分类值会被转换成整数用于绘图，因此您可以将它们指定为整数（例如，audi 是第一个类别，所以整数是 1），或者像我下面所做的那样，制作一个类别名称列表并进行指定。

library(ggplot)
data("mpg")
man_list <- unique(mpg$manufacturer)

ggplot(mpg, aes(x=displ, y=manufacturer)) +
  geom_point() +
  # geom_rect(aes(xmin=1.8, xmax=3.0, ymin= "audi", ymax=lead("audi"), fill='red')) 
  geom_rect(aes(ymin = which(man_list=="audi")-0.5,
                ymax = which(man_list=="audi")+0.5,
                xmin=1.8,
                xmax=3,
                fill="red"))

- Greg