在R中绘制52周范围

我试图使用tq_get in tidyquant提取股票价格数据，然后根据52周的范围绘制当前价格。下面是我希望创建的一个示例

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

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

X%tk_xts（）
图表系列（TSLA）

TSLAlow问题1:
tq_get（c（“^GSPC”，“TSLA”），get=“stock.prices”，from=Sys.Date（）-365，to=Sys.Date（））
对于问题2，ggplot2或模板中没有类似的内容。我知道这在tableau之类的工具中是可用的。但是也许有人可以帮你解决这个问题。问题1：
tq_get（c（“^GSPC”，“TSLA”），get=“stock.prices”，from=Sys.Date（）-365，to=Sys.Date（））
对于问题2，在ggplot2或模板中没有类似的内容。我知道这在tableau之类的工具中是可用的。但也许有人能帮你。
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)