ggplot中几何矩形的roundrectGrob等价物

我正在尝试将图形附加到背景蛋白质主干上（使用geom_rect（）函数绘制）。有没有办法创建圆边矩形而不是基本矩形（特别是红色矩形）。 这是我使用的代码

我在

grid

中尝试了roundrectGrob（）函数，但得到了错误

error:不知道如何将roundrectGrob（x=28，y=-2.3，width=22，height=0.45）添加到绘图中

library(ggplot2)
p <- ggplot() +
ylim(-4, 4) +
xlim(0, 100)
## First rect
p <- p + geom_rect(mapping=aes(xmin=10,
xmax=90,
ymin=-2.15,
ymax=-2.00),
colour = "black",
fill = "grey")
## Second rect
p <- p + geom_rect(mapping=aes(xmin=28,
xmax=50,
ymin=-2.30,
ymax=-1.85),
colour = "black",
fill = "red")
# print
p
dev.off()

库（ggplot2）
p按照@hrbrmstr的建议，在安装了带有

devtools::install_github("hrbrmstr/statebins")

试试这个

library(ggplot2)
p <- ggplot() + ylim(-4, 4) + xlim(0, 100)
## First rect
p <- p + geom_rect(mapping=aes(xmin=10,
         xmax=90, ymin=-2.15,  ymax=-2.00),
         colour = "black", fill = "grey")
## Second rect
p <- p + statebins:::geom_rrect(mapping=aes(xmin=28, 
         xmax=50, ymin=-2.30, ymax=-1.85),  
         colour = "black", fill = "red")
# Print
p

库（ggplot2）
p已经试过了。但我犯了这个错误。p+geom_-rect（mapping=aes（xmin=28，+xmax=50，+ymin=-2.30，+ymax=-1.85），+color=“black”，“+fill=“red”）geom_-rect中的错误（mapping=aes（xmin=28，xmax=50，ymin=-2.3，ymax=-1.85），：找不到函数“geom_-rect”。我（懒洋洋地）这意味着您可以将源代码复制到会话中，如果这有助于正确导出它，我可以进行更改并将其推送到CRAN。这只是意味着我必须记录函数，而我以前太懒了