在 ggplot2 中使用多个 geom_text 语句重叠标签

Question

我正在制作一个带有错误栏的 ggplot，其中一个有重叠的文本，即使我在 geom_text 函数中使用 check_overlap = T

主要是上家医院的问题

ggplot(scores, aes(x=hospital, y=mean), xlab = "score") + 
  geom_point(shape = 19, size = 3) + 
  #geom_line(color="blue") + 
  geom_errorbar(aes(x=hospital, ymin=lower, ymax=upper), color="blue", width=.5) + 
  coord_flip() + 
  theme(axis.text=element_text(size=20), axis.title=element_text(size=25,face="bold"), 
        plot.title = element_text(face = "bold", size = 30)) + 
  ggtitle("Linear Regression Predictions for Scores") + ylab("Score")+ xlab("Hospital") + 
  labs(subtitle = "Data used for Prediction: 2014-2019") + 
  geom_text(aes(label = round(mean, 1)),vjust = -1, size = 8, check_overlap = T)+ 
  geom_text(aes(y = lower, label = round(lower, 1)),vjust= -1, size = 8, check_overlap = T) + 
  geom_text(aes(y = upper, label = round(upper, 1)),vjust = -1, size = 8, check_overlap = T) 

Dataframe:      
        hospital      mean    lower     upper
1       A             50      40        60
2       B             60      55        65
3       C             80      78        82
4       D             70      65        75
5       E             99      98        100

Answer 1

我建议为文本使用数据的长版本，这样您可以在一次调用 geom_text:

中获得它

library(dplyr); library(tidyr); library(ggplot2)
scores_long <- hospital %>%
  gather(stat, value, -hospital) %>%
  mutate(value = round(value, 1))

ggplot(data = scores, aes(x=hospital, y=mean), xlab = "score") + 
  geom_errorbar(aes(x=hospital, ymin=lower, ymax=upper), color="blue", width=.5) + 
  geom_point(shape = 19, size = 3) + 
  coord_flip() + 
  theme(axis.text=element_text(size=20), axis.title=element_text(size=25,face="bold"), 
        plot.title = element_text(face = "bold", size = 30)) + 
  ggtitle("Linear Regression Predictions for Scores") + ylab("Score")+ xlab("Hospital") + 
  labs(subtitle = "Data used for Prediction: 2014-2019") +
  geom_text(data = scores_long, 
            aes(label = value, y = value), vjust = -1, size = 8, check_overlap = T)

在 ggplot2 中使用多个 geom_text 语句重叠标签

Overlapping labels with multiple geom_text statements in ggplot2

r

ggplot2

geom-text