如何基于gapminder用R计算新变量并绘制多国分色折线图

可直接运行的R代码 #

# 首次运行请先安装依赖包，已安装可注释掉下一行
install.packages(c("tidyverse", "gapminder"))

# 加载工具包
library(tidyverse)
library(gapminder)

# 1. 新增XY变量，同时2. 筛选目标国家和年份
processed_df <- gapminder %>%
  mutate(XY = gdpPercap * 1000 / pop) %>%
  filter(
    country %in% c("Turkey", "France", "Germany"),
    year >= 1996
  )

# 3. 绘制不同国家区分颜色的趋势图
ggplot(processed_df, aes(x = year, y = XY, color = country)) +
  geom_line(linewidth = 1.2) +
  geom_point(size = 3) +
  labs(
    title = "1996年后土法德三国资本收入变化",
    x = "年份",
    y = "资本收入（XY）",
    color = "国家"
  ) +
  theme_bw()

说明 #

• 代码默认使用gapminder包自带的公开数据集，字段完全匹配你的需求，复制后直接运行即可得到结果
• 如果你使用自己的本地数据集，只需把代码中的gapminder替换为你的数据集名称，把gdpPercap、pop、country、year对应替换为你数据里的字段名即可
• 你原有代码的错误已经全部修正：原有select是选择列的函数，筛选行需要用filter，你之前混淆了人口和年份字段，同时筛选国家时包含了不需要的意大利、漏了土耳其，这些问题在上述代码中都已经调整

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