将文本添加到李克特图的右侧答案

【问题标题】：Add text to the right side of a Likert plot将文本添加到李克特图的右侧
【发布时间】：2019-07-23 15:06:06
【问题描述】：

我想在李克特图的右侧添加文本。

我尝试使用 geom_text()，但我不知道如何将正确的字符串加载到 geom_text() 函数中。

这是一个示例数据集：

library(likert)

data <- data.frame("bad carpet" = factor(sample(1:5, 50, replace=T)),
                   "bad shower" = factor(sample(1:5, 50, replace=T)),
                   "bad bath" = factor(sample(1:5, 50, replace=T)))

plot(likert(data))

这会产生：problem

我想要的（当然要使用正确的字体和大小）： solution

我已经添加了：

 plot(likert(data)) + scale_y_continuous(limits=c(-100,150)) +
  coord_flip(ylim=c(-110,110)) +
  theme(plot.margin=unit(c(0.2,2,0.2,0.2),"cm"))

这为文本产生了额外的空间。 Geom_text() 应该在两者之间添加，但这就是我卡住的地方。

【问题讨论】：

标签： r ggplot2 plot likert

【解决方案1】：

如其他答案中所述（例如，here 和 here），您可以使用任何 coord_ 函数和 clip="off" 在绘图区域外添加任何几何图形的注释。

对绘图代码的这一添加可以让您接近，但您必须调整大小和颜色才能使它们完全匹配。

p <- plot(likert(data)) + 
  scale_y_continuous(limits=c(-100,150)) +
  coord_flip(ylim=c(-110,110), clip = "off") +
  theme(plot.margin=unit(c(0.2,2.25,0.2,0.2),"cm"))

p + annotate("text", label=labs, x=c(1:3), y=c(125), hjust=0, size=3, colour="grey30")

【讨论】：

这正是我想要的。非常感谢。