R语言_数据筛选高血压患者

最新推荐文章于 2024-02-06 15:11:59 发布

玄武灌汤包

最新推荐文章于 2024-02-06 15:11:59 发布

阅读量1.3k

点赞数

分类专栏： R Project 文章标签： R语言数据筛选学习笔记

本文链接：https://blog.csdn.net/weixin_43452592/article/details/83834110

版权

R Project 专栏收录该内容

13 篇文章 2 订阅

订阅专栏

R语言筛选高血压前期的患者

// #工作目标:读取csv文件，并筛选出平均收缩压120~139或舒张压80~89的患者（根据2010年中国高血压指南）
> //#查看R语言的工作环境（文件保存位置）
> getwd()
> non_hypertension_04 <- read.csv(file.choose())
> nrow(non_hypertension_04)
[1] 22
> ncol(non_hypertension_04)
> [1] 15
> library(dplyr)
> //#计算平均舒张压
> non_hypertension_04_tbl$mean_dia_blood_pressure <- round((as.integer(non_hypertension_04_tbl$B12)+as.integer(non_hypertension_04_tbl$B22))/2)
> //#计算平均收缩压
> non_hypertension_04_tbl$mean_sys_blood_pressure <- round((as.integer(non_hypertension_04_tbl$B11)+as.integer(non_hypertension_04_tbl$B21))/2)
> //#筛选要求：平均收缩压120~139或舒张压80~89（根据2010年中国高血压指南）
> > pre_hypertension_04 <- filter(non_hypertension_04_tbl, (non_hypertension_04_tbl$mean_sys_blood_pressure >= 120 & non_hypertension_04_tbl$mean_sys_blood_pressure <= 139) | (non_hypertension_04_tbl$mean_dia_blood_pressure >= 80 & non_hypertension_04_tbl$mean_dia_blood_pressure <= 89))
> //#转换为data.frame格式
> pre_hypertension_04_frame <- as.data.frame(pre_hypertension_04)
> //#以csv的格式写出
> write.csv(pre_hypertension_04_frame,file = "pre_hypertension_frame_04.csv")