[会员专享] ggplot2可视化全球气候变化

R语言数据分析指南

发布于 2023-08-18 13:45:51

1400

发布于 2023-08-18 13:45:51

欢迎关注R语言数据分析指南

❝本节来介绍如何使用「ggplot2」来展示全球气温变化情况，通过绘制连续型线段的形式来进行数据的展示，数据无实际意义仅作图形展示用，希望各位观众老爷能够喜欢。 ❞加载R包

library(tidyverse)  
library(ggtext)

设置时间格式

lct <- Sys.getlocale("LC_TIME")  # 获取当前系统的时间格式
Sys.setlocale("LC_TIME", "C")  # 设置系统的时间格式为"C"

导入数据

global_temps <- readr::read_csv('data.csv')

数据清洗

temps <- global_temps |>  # 使用管道操作符对数据进行处理
  select(!c("J-D", "D-N", "DJF", "MAM", "JJA", "SON")) |>  # 选择需要的列，去除不需要的列
  pivot_longer(cols = !"Year", names_to = "Month", values_to = "Temp") |>  # 将数据从宽格式转换为长格式
  mutate(Month = factor(Month, levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))) |>  # 将月份列转换为因子，并指定自定义的顺序
  mutate(date = as.Date(paste("01", Month, Year), format = "%d %b %Y")) |>  # 创建一个新的日期列，将日期格式化为"%d %b %Y"格式
  arrange(date)  # 按日期排序数据

break_vec <- c(seq(from = as.Date("01-01-1880"), to = as.Date("01-01-2024"), by = "20 years"))  # 创建一个包含日期间隔的向量，每隔20年一个日期