通过在geom_histogram上给出x和y轴来标记点

Question

如何在下面的直方图上显示旁边有文字标签的点（x = 0，y = 1500）？

ggplot(ds_visits, aes(x = patientsInService)) + 
    geom_histogram(stat = "count", col = "black", fill = "white") + 
    theme_bw() + 
    labs(x = "Patients in service", y = "Cases") + 
    scale_x_discrete(limits = seq(0, 5, 1))

Answer 1

您必须为点数据创建虚拟data.frame：

pointData <- data.frame(X = 0, Y = 1500)

使用另外两个宝石（geom_point和geom_text）进行绘图：

ggplot(ds_visits, aes(patientsInService)) + 
geom_histogram(stat = "count", col = "black", fill = "white") + 
geom_point(data = pointData, aes(X , Y)) +
geom_text(data = pointData, aes(X + 1 , Y + 10, label = "My Text"))

在geom_text我正在改变坐标，不要将文字与点重叠。