我有一个人口统计表,其中包含不同患者的人口统计记录。在人口统计中,每个患者都有患者在哪个医院登记的记录(Hospital_ID)。
我按Hospital_ID == A434过滤人口统计表,然后将每家医院的人口统计 df 与Pat_ID的Patient_prescription合并。最后,我将合并每个医院 ID 的患者记录。在真实数据中,我有大约 2000 名患者和 270 个不同的 Hospital_ID。为每个 Hospital_id 手动执行此操作并不是一个好主意。
我想要的是如何为此创建一个函数,以便它运行一次并为每个Hospital_ID提供 270 个 DF 作为输出。以下是 dfs 的示例和输出。
library(dplyr)
Demography <- read.table(text="
Pat_ID Gender Hospital_ID
P1 M A434
P2 F A232
P3 F A331
P4 M A434
P5 F A21
P6 M A232", header=TRUE)
Patient_Prescription <- read.table(text="
Pat_ID Prescription_ID Prescription
P1 221 Hydrolin
P2 332 ospamox
P3 331 Paxix
P4 334 Danitol
P5 441 Soapsomede
P6 3311 'Dentol hydro'", header = TRUE)
帕特ID | 性别 | 医院_ID |
---|---|---|
P1 | 中号 | A434 |
P2 | F | A232 |
P3 | F | A331 |
P4 | 中号 | A434 |
P5 | F | A21 |
P6 | 中号 | A232 |
帕特ID | 处方_ID | 处方 |
---|---|---|
P1 | 221 | 海德林 |
P2 | 第332章 | 奥帕莫克斯 |
P3 | 第331章 | 帕克西克斯 |
P4 | 第334章 | 丹尼醇 |
P5 | 第441章 | 皂素 |
P6 | 3311 | 牙科牙科 |
两个输出 DF
帕特ID | 医院_ID | 处方 | 性别 |
---|---|---|---|
P1 | A434 | 海德林 | 中号 |
P4 | A434 | 丹尼醇 | 中号 |
帕特ID | 医院_ID | 处方 | 性别 |
---|---|---|---|
P2 | A232 | 奥帕莫克斯 | F |
P6 | A232 | 牙科牙科 | 中号 |