R绘图时间序列数据：非常短的时间间隔

Question

我有以下数据框。时隙之间的差距是不同的，有时很小，有时很大：

history <- structure(list(timestamp = structure(1:13, .Label = c("2006-06-11 04:43:56",
"2006-06-11 04:47:24", "2006-06-11 04:47:54", "2006-06-11 04:49:37",
"2006-06-11 04:52:12", "2006-06-11 04:58:22", "2006-06-11 05:01:11",
"2006-06-11 05:06:56", "2006-06-11 05:14:35", "2006-06-11 05:21:44",
"2006-08-21 19:55:50", "2006-08-21 19:56:31", "2007-11-22 22:09:17"
), class = "factor"), page_length = c(1753, 146, 2401, 461, 113,
1248, 1268, 720, 1290, 436, 531, 502, 746)), .Names = c("timestamp",
"page_length"), row.names = c(NA, -13L), class = "data.frame")

history
#             timestamp page_length
#1  2006-06-11 04:43:56        1753
#2  2006-06-11 04:47:24         146
#3  2006-06-11 04:47:54        2401
#4  2006-06-11 04:49:37         461
#5  2006-06-11 04:52:12         113
#6  2006-06-11 04:58:22        1248
#7  2006-06-11 05:01:11        1268
#8  2006-06-11 05:06:56         720
#9  2006-06-11 05:14:35        1290
#10 2006-06-11 05:21:44         436
#11 2006-08-21 19:55:50         531
#12 2006-08-21 19:56:31         502
#13 2007-11-22 22:09:17         746

但我遇到的问题是，当我使用以下方法绘制时，我没有在时间之间得到明确的分离。

plot(as.POSIXlt(history$timestamp,format='%Y-%m-%d %H:%M:%S'), 
     log(history$page_length), xlab= "Months", ylab= "log page Length", type='l', col='red') 

正如你在情节中看到的那样，我希望在短时间间隔之间实现良好的分离

Answer 1

我使用 xts 作为时间序列，并使用 quantmod 来生成您想要的图表类型（我认为）。 （我也尽可能避免使用POSIXlt，因为它比POSIXct更慢并且使用的内存更多。

library(quantmod)
x <- xts(history[, 2], as.POSIXct(history[, 1]))
chartSeries(log(x), theme="white")

还有chart_Series，但目前它没有记录，也没有chartSeries那么发达。

或者，您可以直接使用xts的axTicksByTime函数，但x轴的格式不会很好。

plot(head(axTicksByTime(x), -1), log(x), type="l", col="red")

Answer 2

type='l'表示情节的类型是直线。所以它向你展示了一条线......你可能想要type = 'p'，这就是积分。

查看更多信息here并查看一些R绘图教程，其中有很多内容。