r - 带垂直线的散点图 - Lollipop 图

Question

我想建立一个这样的散点图:http://www.cbioportal.org/public-portal/images/previews/tp53_mutations.png ，其中每个点都有一个圆+垂直线。



我在下面找到的最接近的东西，来自 library(scatterplot3d) 的 3D 散点图，但我只有 x,y。



您对库/函数/选项有什么建议吗？

Answer 1

在基础图形中也相当容易(y 轴下方的彩色框有点棘手):

op <- par(ps=10)

par(mar=c(2, 3.5, 2, 1))
plot(x, y, ylim=c(-10, max(y)), t="n", axes=FALSE, ann=FALSE)
axis(1)
axis(2, at=pretty(c(0, max(y))))
mtext("# Mutations", side=2, line=2.5)
mtext("P53_Human", side=3, line=0.5, adj=0, font=2)
segments(x0=x, y0=y, y1=0, col=8)
points(x, y, pch=21, col=1, bg=2)

usr <- par()$usr
rect(usr[1], -8, usr[2], -1, col=8, border=NA)
rect(10, -10, 30, 1, col=rgb(0,1,0), border=rgb(0,0.8,0))
text(20, -5, label="P53", col="white")
rect(90, -10, 280, 1, col=rgb(1,0,0), border=rgb(0.8,0,0))
text(180, -5, label="P53", col="white")
rect(320, -10, 360, 1, col=rgb(0,0,1), border=rgb(0,0,0.8))
text(340, -5, label="P53", col="white")

par(op)