怎么做GDP和能源消费的散点和拟合线图

在R语言中，绘制GDP和能源消费的散点图和拟合线图可以通过基础图形函数或ggplot2包来完成。先使用基础R语言的plot()函数绘制散点图，并添加线性拟合线。然后，利用lm()函数进行线性回归分析，再使用abline()函数添加回归线到图中。以下是具体步骤：

基础R语言绘制：

1. 准备数据：

# 假设的数据，代表从2012年到2021年的GDP和能源消费量
Years <- 2012:2021
GDP <- c(22250, 24791, 27379, 29550, 32665, 35478, 42021, 45828, 43443, 50012)
Energy <- c(12083, 13310, 13766, 13827, 13954, 14159, 14074, 15019, 13468, 15739)

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

2. 绘制散点图并添加拟合线：

# 用散点图显示GDP和能源消费的关系
plot(data$GDP, data$Energy, xlab = "GDP (Billion Yuan)", ylab = "Energy Consumption (Million Tons of Coal)",
     main = "Scatter Plot with Fitted Line")

# 进行线性回归
model <- lm(Energy ~ GDP, data = data)

# 添加回归线到图中
abline(model, col = "red")

3. 使用summary()函数查看回归模型的详细统计结果：

summary(model)

使用ggplot2包绘制：

1. 准备数据和加载ggplot2包：

# 安装ggplot2包（如果尚未安装）
# install.packages("ggplot2")
library(ggplot2)

2. 绘制散点图和拟合线：

# 使用ggplot2绘制散点图
ggplot(data, aes(x = GDP, y = Energy)) +
  geom_point() + # 散点图
  geom_smooth(method = "lm", color = "red") + # 添加拟合线
  labs(x = "GDP (Billion Yuan)", y = "Energy Consumption (Million Tons of Coal)", 
       title = "Scatter Plot with Fitted Line") +
  theme_minimal()

geom_smooth(method = "lm")函数在ggplot2中自动执行线性回归并绘制拟合线。颜色color参数定义了回归线的颜色。

这样，您就可以得到一个带有线性拟合线的GDP和能源消费的散点图，可视化它们之间的关系。