R

Question

我正在尝试围绕轴标签创建框。 我使用以下代码绘制条形图

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                 len=c(4.2, 10, 29.5))

library(ggplot2)
# Basic barplot
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p
# Horizontal bar plot
p + coord_flip()

给出以下条形图

https://imgur.com/a/pkrqisM

我可以轻松地从x轴上删除刻度线。 我想要做的是在x轴标签周围添加单元格。

https://imgur.com/94vvTdJ

请你帮我在标签周围画这些细胞/矩形框。

另外，我可以删除y轴上的刻度线，我试图在y轴标签之间添加刻度，例如这张图片

https://imgur.com/a/huoAflP

请有人建议我如何在不创建单独视口的情况下实现此目的。