不是消费趋势图，是散点和拟合图，看两者的关系

了解了，您想要绘制的是湖北省2012-2019年GDP与工业总能源消费之间的散点图和拟合线，以观察两者之间的关系。以下是使用ggplot2包来完成这个任务的完整R代码：

# 安装并加载ggplot2包
if (!require(ggplot2)) install.packages("ggplot2")
library(ggplot2)

# 提供的数据
GDP <- c(22250.45, 24791.83, 27379.22, 29550.19, 32665.38, 35478.09, 42021.95, 45828.31)
EnergyConsumption <- c(12083.97, 13310.45, 13766.37, 13827.77, 13954.63, 14159.66, 14074.61, 15019.74)
Years <- 2012:2019

# 创建数据框
df <- data.frame(
  Year = Years,
  GDP = GDP,
  Energy = EnergyConsumption
)

# 绘制GDP与能源消费的散点图和拟合线图
ggplot(df, aes(x = GDP, y = Energy, color = as.factor(Year))) +
  geom_point(size = 4) +  # 绘制散点图
  geom_smooth(method = "lm", formula = y ~ x, se = FALSE, color = "black") +  # 添加拟合线，不显示置信区间
  scale_color_viridis_d() +  # 使用viridis色彩方案为年份上色
  labs(title = "湖北省2012-2019年GDP与工业总能源消费关系图",
       x = "GDP (亿元)",
       y = "工业总能源消费 (标煤万吨)") +
  theme_minimal() +  # 应用简洁主题
  theme(legend.position = "none")  # 隐藏图例

这段代码绘制了一个散点图，其中每个数据点代表一年的数据，颜色根据年份变化。使用geom_smooth()添加了线性拟合线，公式y ~ x指定了因变量和自变量之间的关系。se = FALSE参数用于隐藏拟合线的置信区间。scale_color_viridis_d()使用Viridis色彩方案为不同的年份着色，而theme(legend.position = "none")则隐藏了图例，因为我们这里的颜色只表示年份，并不区分变量。

运行这段代码后，你将得到一个反映湖北省GDP与工业总能源消费之间关系的图表。通过观察拟合线和散点的分布，你可以对两者之间的关系有一个直观的理解。