R ggplot中的垂直条形图

我想要这个情节

我从这个情节开始

但是当我试着限制反轴时，图变了

---

请帮忙

我想你可能需要这样的东西。我使用

iris

创建了一个样本数据，因为您没有提供可复制的最小数据。我们的想法是使用

SciencePo

包中的

geom_dumbbell（）

来创建线和点。然后，调整x比例以为标签留出空间

geom\u text\u repel（）

帮助您很好地添加标签。如果你很感兴趣，你就要检查一下

---

如果您仅限于使用ggplot，那么实现这一点的一种方法是将其绘制为折线图并添加geom_段。我只是使用了一些虚拟数据来演示以下内容

data <- data.frame(tech=c('R','Java','Python'), articles=c(1000,2000,1500))

ggplot(data=data, aes(x=tech, y=articles)) + 
    geom_line() +
    geom_segment(aes(xend=tech, yend=0), color="black") + 
    geom_text(aes(label = articles), hjust = -.5) +
    geom_point(size=3) +
    scale_y_continuous(limits = c(0, 8000)) +
    ylab("Number of Scholarly Articles in 2015") +
    xlab("Analytics Software") +
    ggtitle("2015 Scholarly Articles by Analytics Software") +
    coord_flip()

---

数据谢谢！当我改变极限=c（0，3000）时，直线消失，
data <- data.frame(tech=c('R','Java','Python'), articles=c(1000,2000,1500))

ggplot(data=data, aes(x=tech, y=articles)) + 
    geom_line() +
    geom_segment(aes(xend=tech, yend=0), color="black") + 
    geom_text(aes(label = articles), hjust = -.5) +
    geom_point(size=3) +
    scale_y_continuous(limits = c(0, 8000)) +
    ylab("Number of Scholarly Articles in 2015") +
    xlab("Analytics Software") +
    ggtitle("2015 Scholarly Articles by Analytics Software") +
    coord_flip()