r - 绘制日期与累积字符值

Question

我有以下称为someDat显示用户注册日期的数据集：

     dates  users
11/06/2013  alfred
12/06/2013  andrew
12/06/2013  john
15/06/2013  jojo
15/06/2013  jeff
15/06/2013  samson
18/06/2013  dave
18/06/2013  hamsa
19/06/2013  kambua

现在我想绘制日期与累计用户数的关系，如图所示。我尝试将其转换users为因子，然后使用该函数cumsum，但它只是没有给我正确的图表。

usersSum <- cumsum(as.numeric(factor(someDat$users))); usersSum
plot(someDat$date,someDat$users, type= "b")

我无法弄清楚我哪里出错了，或者它是否正确使用功能。任何帮助将不胜感激。

Answer 1

someDat <- read.table(text='     dates  users
11/06/2013  alfred
12/06/2013  andrew
12/06/2013  john
15/06/2013  jojo
15/06/2013  jeff
15/06/2013  samson
18/06/2013  dave
18/06/2013  hamsa
19/06/2013  kambua',header=TRUE)
someDat$cumsum <- 1:nrow(someDat)
someDat$date2 <- as.POSIXct(as.character(someDat$dates),format='%d/%m/%Y')
# as lines (left plot)
plot(someDat[!duplicated(someDat$dates, fromLast=TRUE),c('date2','cumsum')],type='l')
# as steps (right plot, following DWin)
plot(someDat[!duplicated(someDat$dates, fromLast=TRUE),c('date2','cumsum')],type='l')