geom_text ggplot2 中的重叠文本和文本对齐

geom_text overlapping text and alignment of text in ggplot2

我必须像通过 geom_text() 一样绘制 table 我尝试使用 position_jitter /dodge 和 hjust 使它看起来像 table 并且更改重叠或倾斜排列的文本。

这是一个示例代码:

require(ggplot2)
require(reshape2)

dia3 <- melt(CO2, id = c(colnames(CO2)[1],colnames(CO2)[2]))
dia3

p <- ggplot(dia3, aes_string(x=colnames(dia3)[2],y=colnames(dia3)[1],color = colnames(dia3)[3]))+
  geom_text(aes_string(label = colnames(dia3)[4]),
           position=position_dodge(width = 0.5),
            hjust = 0.5,
            size = 2.5
  )+
  scale_x_discrete(drop = TRUE)+
  theme_bw()+
  theme(
    axis.ticks.x = element_blank(),
    axis.text.y= element_text(color="black", size=8),
    axis.title.y = element_blank(),
    axis.title.x = element_blank(),
    legend.key = element_rect(fill="white"), legend.background = element_rect(fill=NA),
    legend.position="bottom",
    legend.title = element_blank(),
    panel.grid  = element_blank(),
    panel.border = element_blank()
  )
p

它产生的情节如下:

我需要帮助来排列所有垂直直线对齐的文本。

谢谢

闪避由 group 完成,它会自动设置为您映射的任何因子变量,在本例中包括 x。覆盖默认值以解决问题:

ggplot(dia3, aes_string(x = colnames(dia3)[2], y = colnames(dia3)[1], 
                        color = colnames(dia3)[3], group = colnames(dia3)[3]))+
    geom_text(aes_string(label = colnames(dia3)[4]),
              hjust = 0.5,
              size = 2.5,
              position = position_dodge(0.5)) +
    scale_x_discrete(drop = TRUE)