按R中的间隔过滤列并使用ggplot

如何解决按R中的间隔过滤列并使用ggplot

我有以下数据集:

 dat<- structure(list(Year = c(1979L,1979L,1979L),Month = c(1L,1L,2L,3L,4L,5L,6L,7L,8L,9L,10L,11L,12L,12L),Day = c(1L,13L,14L,15L,16L,17L,18L,19L,20L,21L,22L,23L,24L,25L,26L,27L,28L,29L,30L,31L,31L),Rainfall = c(1,35.5,20.3,2.5,32,66.8,1.8,5.3,11.7,40.4,45.7,15.3,21.6,10.5,26.2,54.1,1.5,26.9,39.4,1.3,95.6,10.2,5.1,4.1,2.9,0.5,2.1,15.7,14.2,28.7,134.2,26.3,2.3,2.8,0.3,0.8,3.3,13.6,32.9,47.7,78.8,27.1,45.5,2,1.4,19.8,11.4,8.7,4.8,24.7,10.4,6.9,13,3.1,23.9,7.4,29.8,27,16.5,6.6,0.6,9.7,6.4,11.1,16.8,3.6,95.5,3.4,35.3,36.3,6.1,5.9,52.1,3.8,7.9,8.9,5.6,9.1,22.6,17.5,68.1,105.9,30.7,31.2,18.8,6.3,43.3,49.3,1,4.3,5.4,64.8,38.1,8.4,4.4,1.6,36.6,45.2,13.9,25.7,19.1,22.1,24.2,11.5,21.3,28.2,67.8,55.7,25.3,27.5,12.7,14.7,14.5,10.6,14.3,15.2,37.1,18.3,4.9,68.6,20.1,50.8,15,1.1,44.2,24.4,39.1,151.7,26.4,7.1,7.6,84.7,0)),row.names = c(NA,365L),class = "data.frame")

此数据有四列:年,月,日,降雨量。

(1)我想按照降雨等级/类别将这些数据分开:

1-20 mm/day
20-50 mm/day
50-100 mm/day
>100 mm/day

(2)计算每个降雨每月等级的天数,并将结果计数绘制为以R为单位的堆叠条形图(月数与计数)。

到目前为止我所拥有的:

现在,我使用dplyr软件包过滤值。这是一月的示例。

library(dplyr)
a<-filter(dat2,Rainfall>=1 &Rainfall <=20)
count(a[which(a$Month==1),])

我每个月都会针对四个类别进行此操作。 然后手动存储计数。

我想问一下是否有一种更有效,更快捷的方法。 也许是一个简单的脚本,最后使用ggplot进行绘图?

在此方面,我将不胜感激。

解决方法

您可以使用cutRainfall划分为存储桶,并为每个count和图绘制Month

library(dplyr)
library(ggplot2)

dat %>%
  count(Month = factor(Month),Rainfall = cut(Rainfall,c(-Inf,20,50,100,Inf)),name = 'count') %>%
  ggplot() + aes(Month,count,fill = Rainfall) + geom_col()

enter image description here

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-