1

我正在尝试使用 tidyquant 中的 tq_get 提取股票价格数据，然后想根据 52 周的范围绘制当前价格。这是我要创建的示例。

在此处输入图像描述

基本上只是股票当前交易位置相对于其 52 周范围的直观表示。下面是我已经开始为 TSLA 加载适当值的代码。首先，我想知道是否可以设置“从”和“到”日期，以便它们不断更新，分别是一年前和当前日期？其次，是否有 ggplot 或其他包可以生成类似的图？我探索了箱线图，但实际上我需要比这更简单的东西，因为我真的只需要一个轴。提前致谢！

X <- tq_get(c("^GSPC","TSLA"),get="stock.prices",from="2019-05-04", to="2020-05-04")

TSLA <- X %>% filter(symbol == "TSLA") %>% tk_xts()
chartSeries(TSLA)

TSLAlow <- min(TSLA$close)
TSLAlow

TSLAhigh <- max(TSLA$close)
TSLAhigh

TSLAclose <- tail(X$close, n=1)
TSLAclose

TSLArange <- tibble(TSLAlow, TSLAhigh, TSLAclose)
4

0 回答 0