上篇文章提到用python的baostock库获得墨汁股票历史数据方法,利用获得outputfile.csv,用R语言绘制图形,具体代码如下:
1. R语言源代码:
r
# 加载readr包,用于高效读取CSV文件
library(readr)
# install.packages("quantmod")
# 加载quantmod包,用于金融数据的量化分析和可视化
library(quantmod)
# 使用read_csv函数从CSV文件读取股票数据
# 假设CSV文件包含日期、股票代码、开盘价、收盘价等信息
stock <- read_csv("stock_data_000937.csv")
# 创建xts时间序列对象,xts是金融时间序列分析常用的数据格式
# xts(数据部分, 时间索引) - 第一个参数是数值数据,第二个参数是对应的时间
stock_xts <- xts(
stock[,-c(1,2)], # 数据部分:排除第1列和第2列(可能是股票代码和其他非数值信息)
order.by = as.Date(stock$date) # 时间索引:将date列转换为日期格式作为索引
)
# 使用quantmod包的chartSeries函数绘制股票价格图表
chartSeries(
stock_xts, # 数据源:使用前面创建的xts时间序列对象
theme = "white", # 图表主题:白色背景,使图表更清晰易读
name = "冀中能源股价及布林线", # 图表标题:显示股票名称和技术指标信息
TA = c( # 技术分析附加项:在主图下方添加额外图表
addVo(), # 添加成交量(Volume)图表
addBBands() # 添加布林带(Bollinger Bands)指标
)
)
2.冀中能源股价及布林线图
