**编辑，这里有两个很好的解决方案，一个被标记为答案，但是@hrbrmstr提供了一个很好的解决方案，结合了两个ggplots，它非常适合这个简单的图。*
这是代码
breaks.major <- c(0,15,37.5,52.5,67.5,82.5,95,100) #defines the midpoints of the categories (label locations)
breaks.minor <- c(30,45,60,75,90) #defines the edges of the categories (second label set I need)
labels.minor <- c("","Extremely \nDissatisfied","Dissatisfied","Uncertain","Satisfied","Very \nSatisfied","Extremely \nSatisfied","")
lims =c(0,100)
g <- ggplot(mpg, aes(class))+
geom_bar()+
coord_flip()+
scale_y_continuous(limit = lims, minor_breaks = breaks.minor, breaks = breaks.major, labels = labels.minor) +
theme(panel.grid.major.x = element_blank()) +
theme(panel.grid.major.y = element_blank()) +
theme(axis.ticks.x=element_blank()) +
theme(axis.title= element_blank())
它产生这个情节：
我需要有两组 X 轴标签，一组显示类别名称（即“满意”等，这些标签已经通过labels.minor），以及一个显示值的breaks.minor位置（对应于类别限制，即垂直面板网格线）。我需要当前的labels.minor标签应位于所需附加标签下方。
我目前使用换行符来做到这一点，以便数字和类别都在一个长字符串中，但是随着绘图大小的调整，间距变得很有趣。我可以用文本框来做到这一点（我假设），ggplot 中有没有办法？
如果您将我当前的标签放在其部分的中心，则可加分（例如“非常满意”偏离中心）
这是我想要的输出（请原谅我的“mspaint”）
我认为这符合您的要求：
library(ggplot2)
library(grid)
library(gtable)
library(gridExtra)
breaks.major <- c(0, 15, 37.5, 52.5, 67.5, 82.5, 95, 100)
breaks.minor <- c(30, 45, 60, 75, 90)
labels.minor <- c("", "Extremely\nDissatisfied", "Dissatisfied", "Uncertain",
"Satisfied", "Very\nSatisfied", "Extremely\nSatisfied", "")
lims <- c(0, 100)
# build the main plot with the text axis
gg1 <- ggplot(mpg, aes(class))
gg1 <- gg1 + geom_bar()
gg1 <- gg1 + scale_y_continuous(expand=c(0,0), limit=lims,
minor_breaks=breaks.minor,
breaks=breaks.major,
labels=labels.minor)
gg1 <- gg1 + coord_flip()
gg1 <- gg1 + theme(panel.grid.major.x=element_blank())
gg1 <- gg1 + theme(panel.grid.major.y=element_blank())
gg1 <- gg1 + theme(axis.ticks.x=element_blank())
gg1 <- gg1 + theme(axis.title=element_blank())
# let ggplot2 do the work of building the second axis
gg2 <- ggplot(mpg, aes(class))
gg2 <- gg2 + scale_y_continuous(expand=c(0,0), limit=lims,
breaks=c(0, breaks.minor, 100))
gg2 <- gg2 + coord_flip()
gg2 <- gg2 + theme(axis.ticks.x=element_blank())
gg2 <- gg2 + theme(axis.text.x=element_text(hjust=c(0, 0.5, 0.5, 0.5, 0.5, 0.5, 1)))
gt1 <- ggplot_gtable(ggplot_build(gg1))
gt2 <- ggplot_gtable(ggplot_build(gg2))
axis2 <- grid.arrange(gt2$grobs[[5]])
gt <- gtable_add_rows(gt1, unit(0.1, "null"), 4)
grid.arrange(gtable_add_grob(gt, axis2, t=5, l=4, b=5, r=4))
