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")