重新创建可视化

Question

我是R的新手（1周）。我想为附加的数据集重新创建以下图形。

Date        Rev
1/31/2013   536209
4/30/2013   559175
7/31/2013   535081
10/31/2013  529595
1/31/2014   530919
4/30/2014   518588
7/31/2014   382156
10/31/2014  336705
1/31/2015   326286

我找到了一个代码，我试图修改我的情况，但没有成功。非常感谢任何帮助。

rowseq <- seq(nrow(fp),1)
    par(mai=c(1,0,0,0))
    plot(fp$Rev, rowseq, pch=15,
        xlim=c(-10,12), ylim=c(0,7),
        xlab='', ylab='', yaxt='n', xaxt='n',
        bty='n')
    axis(1, seq(??,??,by=50000), cex.axis=.5)

    segments(1,-1,1,6.25, lty=3)
    segments(fp$Date, rowseq)

    text(-5,6.5, "Date", cex=.75, font=2, pos=4)
    t2 <- ifelse(!is.na(fp$Date), format(fp$Date,big.mark=","), '')
    text(-3, rowseq, t2, cex=.75, pos=2)

text(-1,6.5, "Rev", cex=.75, font=2, pos=4)
t3 <- ifelse(!is.na(fp$Rev), with(fp, paste(Rev)
text(3,rowseq, t3, cex=.75, pos=4)

Answer 1

假设您的数据位于名为dd的data.frame中，您的示例图看起来非常接近这样的

library(ggplot2)
ggplot(dd) + 
   geom_segment(aes(x=0, xend=Rev, y=Date, yend=Date)) + 
   geom_point(aes(x=Rev, y=Date), size=4) +
   xlab("Rev")