使用R?的facet_wrap功能对观测数据和模拟数据进行年复一年的比较
使用R?的facet_wrap功能对观测数据和模拟数据进行年复一年的比较
提问于 2021-07-29 01:37:44
我有以下data.frame
library(lubridate)
library(tidyverse)
set.seed(123)
DF <- data.frame(Date = seq(as.Date("2001-01-01"), to = as.Date("2005-12-31"), by = "day"),
Sim = runif(1826,1,5), Obs = runif(1826,3,7)) %>%
separate(Date, into = c("Year", "Month","Day")) %>%
mutate(Sim_Vol = Sim*86400, Obs_Vol = Obs*86400 ) %>%
filter(between(Month, 3,5))我想首先找到每个Year的Sim_Vol和Obs_Vol的total sum，然后使用bar plot的Yearly total data功能使用ggplot的facet_wrap功能进行逐年比较。附上一个示例图，以便进一步澄清
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-07-29 01:52:04
像这样的东西？
DF %>%
group_by(Year) %>%
summarise(across(c(Sim_Vol, Obs_Vol), sum)) %>%
pivot_longer(cols = ends_with("Vol")) %>%
ggplot(aes(x = name)) +
geom_bar(aes(weight = value)) +
facet_wrap(~Year)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/68565025
复制相关文章
相似问题
腾讯云开发者
