PowerBI中R脚本读取内置数据表报错，请求协助修正

问题背景 #

在PowerBI中导入R脚本读取内置数据表（字段：Update_Date（日期类型）、Series（字符串类型）、Milestone_Finish_Date（日期类型）），原脚本运行异常，无法生成目标带三角区域的折线图。

原脚本核心问题分析 #

1. 日期转换冗余且格式错误：PowerBI传入的日期字段已经是标准Date类型，无需用as.Date二次转换；原脚本使用的%d-%b-%y格式（如"01-Dec-23"）和示例数据的dd/mm/yyyy格式不匹配，会导致日期解析失败。
2. 三角区域多边形构造错误：原多边形的点顺序无法形成有效三角形，且冗余的Series字段会干扰绘图分组逻辑。
3. 部分代码冗余：保留了本地文件读取的注释代码，可能造成混淆。

修正后的完整R脚本 #

# PowerBI内置数据表预处理
dataset <- unique(dataset) # 可选：去重，根据需求启用

# 加载依赖包
library(ggplot2)

# 构造三角区域数据（对应延迟预警的三角区域：Update Date >= Milestone Finish Date的区域）
triangle_data <- data.frame(
  x = c(min(dataset$Update_Date), max(dataset$Update_Date), min(dataset$Update_Date)),
  y = c(min(dataset$Milestone_Finish_Date), max(dataset$Update_Date), max(dataset$Milestone_Finish_Date))
)

# 生成折线图+三角区域
ggplot(dataset, aes(x = Update_Date, y = Milestone_Finish_Date, group = Series)) +
  # 绘制三角区域（放在底层）
  geom_polygon(data = triangle_data, aes(x = x, y = y), fill = "#f8d7da", alpha = 0.3, color = "#dc3545", lwd = 0.8, show.legend = FALSE) +
  # 绘制折线和数据点
  geom_line(aes(color = Series), lwd = 1) +
  geom_point(size = 2, show.legend = FALSE) +
  # 图表标签与主题设置
  labs(title = "里程碑趋势分析图",
       x = "更新日期",
       y = "里程碑完成日期") +
  theme_minimal() +
  theme(legend.position = "top") +
  guides(color = guide_legend(title = "数据系列"))

关键修改说明 #

• 移除无效日期转换：直接使用PowerBI传入的dataset中的日期字段，避免格式不匹配导致的解析错误。
• 修正三角区域构造：调整点的顺序，生成覆盖Update Date >= Milestone Finish Date的预警三角区域（可根据需求修改点坐标调整区域范围），移除冗余的Series字段，避免分组干扰。
• 优化视觉效果：调整三角区域的填充色、透明度和边框样式，让预警区域更醒目；优化点的大小提升可读性。
• 清理冗余代码：移除本地文件读取的注释代码，保留必要的去重逻辑（可选启用）。

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