使用R?的facet_wrap功能对观测数据和模拟数据进行年复一年的比较
提问于 2021-07-28 17: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-28 17: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
复制相关文章
![pycharm python解释器找不到,pycharm找不到解释器怎么办[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/fff501b6e32d21b0594292f469c4f28e.jpg)
![[754]ImportError: DLL load failed: 找不到指定的模块](https://ask.qcloudimg.com/http-save/yehe-4908043/wfbvwa8fo5.jpeg)
![模块已加载,但找不到入口点DLLRegisterServer[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-1011815/6f61102a6e48b89084e8fd77fe248277.png)
腾讯云开发者
