R语言绘制共享时间索引分组柱状图：雅虎金融期权数据问题

核心错误原因 #

• xts对象转换为dataframe时未保留日期索引列，index(calls_df)无法被ggplot正确识别为分组维度
• Strike为数值型变量，ggplot默认将其识别为连续变量做渐变填充，不会按行权价做离散分组
• 日期转换逻辑存在bug：到期日编码210813被错误赋值为2021-07-30，导致数据分组混乱

修复步骤 #

第一步：优化数据清洗逻辑 #

替换原有多层if判断的日期转换和xts转换代码，直接保留适合ggplot绘图的dataframe结构：

library(ggplot2)
library(lubridate)

# 替换原有for循环、xts转换代码段
# 直接拼接字符串转日期，自动修复你之前的赋值错误
calls_df$maturity_date <- ymd(paste0("20", calls_df$maturity))
calls_df$ITM <- as.integer(calls_df$ITM)
# 移除不需要的列
calls_df <- calls_df[, setdiff(colnames(calls_df), c("maturity", "LastTradeTime"))]

第二步：修改绘图代码 #

将日期、行权价转为因子做离散分组，调整柱子样式避免重叠：

ggplot(calls_df, aes(
  x = as.factor(maturity_date),
  y = OI,
  fill = as.factor(Strike)
)) +
geom_col(position = position_dodge(0.9), width = 0.8) +
labs(x = "期权到期日", y = "未平仓合约量(OI)", fill = "行权价") +
theme(axis.text.x = element_text(angle = 45, hjust = 1))

可选优化 #

如果同一到期日下行权价数量过多导致柱子过窄、图例混乱，可以先筛选出行权价在当前股价±20%区间内的合约再绘图，可视化效果会更好。

内容的提问来源于stack exchange，提问作者Peter