Question

我正在尝试预测Power BI R脚本中每天发生的事件数。我的数据源是分析服务多维数据集。我已经执行了下面的脚本，但它抛出了一个错误：

Regressor = lm(formula = # Incident - Regular ~ Incident Date)
ggplot()+
geom_point(aes(x = dataset$Incident Date, y=dataset$# Incident - Regular), color ='red')+
geom_line(aes(x = dataset$Incident Date, y=predict(Regressor, new data = dataset)), color ='blue')+
ggtitle('Incident Count Prediction')+
xlab(' Incident Date')+
ylab('Number of Incident')

错误：

R脚本错误。错误：意外符号：＆＃34; ggplot（）+ geom_point（aes（x =数据集$事件日期＆＃34;执行暂停

Answer 1

使用反引号来包含字符串列名称。

Regressor = lm(formula = `# Incident - Regular` ~ `Incident Date`)

ggplot() +
  geom_point(aes(x = dataset$`Incident Date`, y = dataset$`# Incident - Regular`), color ='red') +
  geom_line(aes(x = dataset$`Incident Date`, y = predict(Regressor, new data = dataset)), color ='blue') +
  ggtitle('Incident Count Prediction') +
  xlab('Incident Date') +
  ylab('Number of Incident')

最好还是先整理你的数据。

library(dplyr)

df <- tibble(
  incident_date = dataset$`Incident Date`,
  incident_regular = dataset$`# Incident - Regular`
)

Regressor = lm(formula = incident_regular ~ incident_date, data = df)

ggplot(df) +
  geom_point(aes(x = incident_date, y = incident_regular), color ='red') +
  geom_line(aes(x = incident_date, y = predict(Regressor, new data = df)), color ='blue') +
  ggtitle('Incident Count Prediction') +
  xlab('Incident Date') +
  ylab('Number of Incident')

无法在Power BI上绘制ggplot图

1 个答案: