尝试使用ggplot创建gapminder的闪亮时间序列图

# 安装并加载必要的包
if (!require(ggplot2)) install.packages('ggplot2')
library(ggplot2)

# 假设你已经有了 Gapminder 数据集，它通常包含国家、年份、人口、GDP 和预期寿命等列
# 这里我们创建一个模拟的 Gapminder 数据集
gapminder <- data.frame(
  country = rep(c("A", "B", "C"), each = 10),
  year = rep(1950:1959, times = 3),
  population = runif(30, min = 1e6, max = 1e8),
  gdpPercap = runif(30, min = 1000, max = 50000),
  lifeExp = runif(30, min = 40, max = 90)
)

# 使用 ggplot 创建时间序列图
p <- ggplot(gapminder, aes(x = year, y = lifeExp, color = country)) +
  geom_line() + geom_point() +
  labs(title = "Life Expectancy Over Time",
       x = "Year",
       y = "Life Expectancy") +
  theme_minimal()

# 显示图表
print(p)

# 手动设置颜色
p + scale_color_manual(values = c("red", "blue", "green"))

# 或者分面展示
p + facet_wrap(~country)