前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >[会员专享] ggplot2可视化全球气候变化

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

作者头像
R语言数据分析指南
发布2023-08-18 13:45:51
1380
发布2023-08-18 13:45:51
举报

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

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

代码语言:javascript
复制
library(tidyverse)  
library(ggtext) 

设置时间格式

代码语言:javascript
复制
lct <- Sys.getlocale("LC_TIME")  # 获取当前系统的时间格式
Sys.setlocale("LC_TIME", "C")  # 设置系统的时间格式为"C"

导入数据

代码语言:javascript
复制
global_temps <- readr::read_csv('data.csv')

数据清洗

代码语言:javascript
复制
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年一个日期
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2023-07-12,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 R语言数据分析指南 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 欢迎关注R语言数据分析指南
  • 设置时间格式
  • 导入数据
  • 数据清洗
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档