R XTS 对象的逐月增长百分比

Question

我如何绘制以下数据的逐月增长：（

             A
2008-07-01   0
2008-08-01  87
2008-09-01 257
2008-10-01 294
2008-11-01 325
2008-12-01 299

以 dput 格式，在约书亚追捕我并在睡梦中谋杀我之前）：

structure(c(0L, 87L, 257L, 294L, 325L, 299L), .indexCLASS = c("POSIXt", 
"POSIXct"), .indexTZ = "", index = structure(c(1214884800, 1217563200, 
1220241600, 1222833600, 1225512000, 1228107600), tzone = "", tclass = c("POSIXt", 
"POSIXct")), .Dim = c(6L, 1L), .Dimnames = list(NULL, "A"), class = c("xts", 
"zoo"))

Answer 1

定义增长：第一个区别？百分比？无论哪种情况，只需计算然后绘图：

R> index(KB) <- as.Date(index(KB))    ## what you have are dates, not datetimes
R> barplot(diff(KB), ylab="Change in value", main="Growth")

您还可以使用标准线图：

R> plot(diff(KB), type='b', ylab="Change in value", main="Growth")

并更改此图的 type= 参数以显示条形图等页。通常 将绘制百分比变化，但考虑到您的第一个数据点在这里是不可接受的（正如 Gavin 所指出的），因此它对于这个插图来说是不同的。

Answer 2

使用对象 dat 中的 dput() 数据，并假设您的意思是与上个月相比的月份百分比变化，那么：（

R> (diff(dat) / lag(dat)) * 100
                            A
2008-07-01 05:00:00        NA
2008-08-01 05:00:00       Inf
2008-09-01 05:00:00 195.40230
2008-10-01 05:00:00  14.39689
2008-11-01 04:00:00  10.54422
2008-12-01 05:00:00  -8.00000

忘记了绘图）

plot((diff(dat) / lag(dat)) * 100, main = "",
     ylab = "% growth (for some definition of % growth)")

不确定如何最好地处理第二个月 - 增长百分比是无限的...