Power BI运行R脚本报unexpected symbol错误如何解决？

报错根因 #

你看到的setwd相关报错属于表面现象，实际原因是你提交的R代码存在语法错误，导致R解释器无法正确识别你写的代码的边界，把Power BI自动追加的尾部辅助代码（标注为# Epilog - Auto Generated #的自动生成逻辑）判定为你代码的一部分进行解析，才触发了语法异常。

代码存在的问题 #

• ggplot调用行括号未闭合：ggplot(dataset,aes(x=datetime_start, y=dataset$Room, color=(Person) + 这一行中，aes参数的括号未闭合，color参数多了冗余左括号，且直接在未闭合的参数后拼接+号，不符合R语法规范
• aes内部不需要加dataset$前缀：ggplot会自动从传入的数据集（dataset）中读取映射变量，加dataset$前缀会导致变量映射逻辑异常
• 坐标轴参数逻辑矛盾：ggplot全局aes中定义的x轴变量是datetime_start，但后续geom_segment图层用的x轴参数是From和To，参数不统一

修正后可直接运行的代码 #

library(ggplot2)

dataset$`From` <- as.POSIXct(dataset$`From`, format = "%Y-%m-%dT%H:%M:%OS")
dataset$`To` <- as.POSIXct(dataset$`To`, format = "%Y-%m-%dT%H:%M:%OS")

ggplot(dataset, aes(y = `Room`)) +
  geom_segment(aes(x = From, xend = To, yend = `Room`, color = Person), size = 15) +
  scale_colour_discrete(guide = guide_legend(override.aes = list(size = 10))) +
  ggtitle("X号楼会议室预约情况") + 
  xlab("") + 
  ylab("") + 
  theme_bw()

操作说明 #

直接用上述代码替换原有代码后重新运行即可，无需修改Power BI的R运行环境配置。

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