,可以通过以下步骤实现:
tidyquant
库中的tq_get()
函数来获取股票数据。library(tidyquant)
# 获取股票数据
stock_data <- tq_get("AAPL", from = "2010-01-01", to = "2022-01-01")
TTR
库中的SMA()
函数来计算简单移动平均线。library(TTR)
# 计算20日简单移动平均线
stock_data$SMA_20 <- SMA(stock_data$close, n = 20)
ggplot2
库来绘制股票的走势图,并在图表中添加支持趋势线。可以使用geom_line()
函数来绘制股票的收盘价走势线,使用geom_line()
函数来绘制支持趋势线。library(ggplot2)
# 绘制股票走势图
ggplot(stock_data, aes(x = date)) +
geom_line(aes(y = close), color = "blue") +
geom_line(aes(y = SMA_20), color = "red") +
labs(title = "Stock Price Trend", x = "Date", y = "Price") +
theme_minimal()
请注意,以上推荐的腾讯云产品和产品介绍链接仅供参考,具体选择和使用需根据实际需求进行评估和决策。
领取专属 10元无门槛券
手把手带您无忧上云