Question

我是R的新手，我试图获得最高收盘价的日期。我在period.max包中使用了函数quantmod。这是我的代码。

library(quantmod)
getSymbols("GE")
period.max(Cl(GE),endpoints(GE,on='weeks'))

但结果返回了最高的收盘价，但不是相关日期，而是几周的最后一天。

2007-01-05 37.97
2007-01-12 37.92
2007-01-19 38.11
2007-01-26 36.75
2007-01-26 36.75
2007-02-09 36.37
2007-02-16 36.47

你能给我一些建议吗？

Answer 1

您可以使用split，lapply，do.call方法执行此操作：

# helper function to return the maximum row
get.max <- function(x) x[which.max(x),]
# split on weeks, loop over each week and get max, rbind back together
week.max <- do.call(rbind, lapply(split(Cl(GE), "weeks"), get.max))

我怎样才能获得每周收盘价最高的确切日期？我在r中使用quantmod包

1 个答案: