Воспроизведение визуализации

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

Предполагая, что ваши данные в data.frame имени dd, ваш образец график выглядит довольно близко к чему-то вроде этого

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")