r - 如何在 plot.likert 中编辑值标签的位置？

Question

我有一个分数数据框 scores <- data.frame(var1=c(1,3,5,6,1,4,10,2,5,3,7), var2=c(10,9,1,4,3,3,4,7,8,10,10))

我将其转换为具有三个级别的因子：

library(likert)
library(dplyr)

scores_factor <- scores %>% sapply(., cut, c(0, 6, 8, 10), include.lowest = TRUE, labels = c("Negative", "Okay", "Positive")) %>% data.frame

然后将其转换为 likert 项目并使用“likert”包中的 likert.plot 对其进行绘图：

likert_scores <- likert(scores_factor)
p <- plot(likert_scores, 
          low.color="#ED5949", 
          neutral.color="#F3CA71", 
          high.color="#7CB166") +
     labs(title= "Hello world!") +
     theme(plot.title=element_text(size=16, 
           face="bold", color="black"), 
           plot.subtitle=element_text(size=11, 
           face="italic", color="black"), 
           text = element_text(color = "#333333", 
           axis.text.x=element_blank(), 
           legend.position="right") +
     theme_hc()
plot(p)

现在，问题是 likert.plot 显示不在条内的边缘值标签。我希望找到一种方法来打印条内的标签，而不必求助于使用 ggplot2 从头开始​​构建堆叠的条形图？这可能吗？如果不是，还有什么替代方案？

提前致谢。

Answer 1

经过一天自己尝试解决此问题后，找到了一个解决方法，我将其发布在下面，以防其他人想从中受益。

对于历史，likert 项存储因素水平在位置中的比例：

likert_scores[["results"]][["Negative"]][1] 
likert_scores[["results"]][["Okay"]][1]
likert_scores[["results"]][["Positive"]][1]  

（对于第 1 列，如果您有像当前帖子中那样的三级因素）

因此，我们添加以下代码行来打印 var1 和 var2 到 var1 列的百分比标签geom_text：

geom_text(label=paste0(c(round(likert_scores[["results"]][["Negative"]][1]), round(likert_scores[["results"]][["Okay"]][1]), 
                         round(likert_scores[["results"]],[["Positive"]][1]),round(likert_scores[["results"]][["Negative"]][2]), round(likert_scores[["results"]][["Okay"]][2]), 
                         round(likert_scores[["results"]][["Positive"]][2])), "%"), position = position_stack(vjust= .5))

但我们还需要更改参数以不允许likert.plot()打印原始标签，以免与新标签重叠。总而言之，这是我目前的解决方案：

p <- plot(likert_scores, 
          low.color="#ED5949", 
          neutral.color="#F3CA71", 
          high.color="#7CB166", 
          centered= FALSE, 
          plot.percents=FALSE, 
          plot.percent.low=FALSE, 
          plot.percent.high=FALSE, 
          plot.percent.neutral = FALSE) +
     geom_text(position = position_stack(vjust= .5),
               label=paste0(
                            c(round(likert_scores[["results"]][["Negative"]][1]), 
                              round(likert_scores[["results"]][["Okay"]][1]), 
                              round(likert_scores[["results"]][["Positive"]][1]),
                              round(likert_scores[["results"]][["Negative"]][2]), 
                              round(likert_scores[["results"]][["Okay"]][2]),
                              round(likert_scores[["results"]][["Positive"]][2])), 
                            "%"))

并且新标签已经到位！