本节分享一个ggplot2绘制折线图的小例子，后台回复2021-6-25获取本文数据及代码，喜欢的小伙伴欢迎扫描文末二维码加入我的交流群，更多精彩内容为您而准备
加载R包
library(tidyverse)
library(lubridate)
library(ggthemes)
library(scales)
加载数据
stocked <- readr::read_csv('stocked.csv')
options(scipen = 999)
数据清洗&可视化
stocked %>%
filter(SPECIES %in% c("BKT", "BNT", "LAT", "RBT"),
LAKE %in% c("HU", "ER", "MI", "ON", "SU")) %>%
group_by(SPECIES, YEAR, LAKE) %>%
summarize(year_total=sum(NO_STOCKED, na.rm = TRUE)) %>%
mutate(year_total=round(year_total/1000000, 1),
LAKE=recode(LAKE,"ER"="Erie","HU"="Huron","MI"="Michigan",
"ON"="Ontario","SU"="Superior"),
SPECIES=recode(SPECIES,"BKT"="Brook Trout","BNT"= "Brown Trout",
"LAT"="Lake Trout","RBT"="Rainbow Trout")) %>%
rename(`Species`=`SPECIES`) %>%
ggplot(aes(x=YEAR,y=year_total,color=Species)) +
geom_line() +
labs(x =NULL,y=NULL) +
scale_y_continuous(labels=comma_format(big.mark = ",",
decimal.mark = ".")) +
facet_wrap(~LAKE, ncol =3, scale = "free_y")+
theme_minimal() +
scale_color_colorblind()+
theme(legend.position = c(1, 0),
legend.justification = c(1, 0),
plot.title = element_text(size = 15))
往期精彩:
配置R与Rstudio
ggplot2中的一些关键概念
tidyverse的基础使用
ggplot2绘制终极版热图
ggtree绘制进化树
初探相关性热图
再探相关性热图
ggplot2绘制相关性热图
初探柱状图
绘制具有显著性的条形图
ggplo2绘制经典条形图
ggplo2绘制双误差线条行图
揭开ggplot2中stat图层的神秘面纱
R中的图片注释神包aplot
ggplot2使用patchwork高质量拼图
ggplot2绘制基础散点图
ggplot2绘制经典散点图-1
ggplot2绘制经典散点图-2
ggplot2绘制云雨图
ggplot2绘制经典云雨图
ggplot2绘制哑铃图
ggplot2绘制经典哑铃图
ggplot2添加gif