如何添加标签到ggplot片段？

Question

我试图使用ggplot

dat <- data.frame(start <- c(-1.05113647, -0.63911585, -0.62791554), 
        end <- c(0.37491159, -0.13911585, -0.12791554), 
        order <- c("Sei whale", "Probeagle", "Northern fur seal"), 
        pos <- c(1, 2, 3)) 

ggplot(dat) + 
    geom_segment(aes(x=start, y=start, xend=end, yend=start), colour = "blue", size = 2) + 
    scale_y_reverse() + 
    xlab("PC1")+ 
    ylab(" ")+ 
    theme_linedraw() + 
    theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank()) + 
    theme(aspect.ratio = 0.3) + 
    theme(legend.position="none") + 
    theme(axis.ticks = element_blank(), axis.text.y = element_blank()) 

我想知道如何将名字从“命令”，以各自细分市场增添标签添加到段我创建了一个曲线图。

Answer 1

你可以从directlabels尝试软件包geom_dl()和扩大x轴位：

library(ggplot2) 
library(directlabels) 

ggplot(dat) + 
    geom_segment(aes(x = start, y = start, xend = end, yend = start), 
       colour = "blue", size = 2) + 
    scale_y_reverse() + 
    geom_dl(aes(end, start, label = order), 
      method = list(dl.trans(x = x + 0.2), "last.bumpup", cex = 0.60)) + 
    scale_x_continuous(expand = c(0, 0.2)) + 
    labs(x = "PC1", y = " ") + 
    theme_linedraw() + 
    theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank()) + 
    theme(aspect.ratio = 0.7) + 
    theme(legend.position = "none") + 
    theme(axis.ticks = element_blank(), axis.text.y = element_blank()) 

其中给出：

注意：我改变aspect.ratio到0.7以使其更具可读性。

Answer 2

您可以使用geom_text()：

library(ggplot2) 

ggplot(dat) + 
    geom_segment(aes(start, start, xend = end, yend = start), 
       colour = "blue", 
       size=4) + 
    geom_text(aes((end + start)/2, 
        y = start, 
        label = order), 
       color = 'grey75', 
       size = 3, 
       nudge_y = .005) + 
    scale_y_reverse() + 
    xlab("PC1")+ 
    ylab(" ")+ 
    theme_linedraw() + 
    theme(panel.grid.minor = element_blank(), 
      panel.grid.major = element_blank(), 
      aspect.ratio = 0.3, 
      legend.position="none", 
      axis.ticks = element_blank(), 
      axis.text.y = element_blank()) 

结果不是特别漂亮海事组织，我增加了segmentsize，让文本可见。