R语言绘制股票K线图及布林线

上篇文章提到用python的baostock库获得墨汁股票历史数据方法，利用获得outputfile.csv，用R语言绘制图形，具体代码如下：

1. 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.冀中能源股价及布林线图