主页 / coding / 问题 / 76919854
Accepted
Usman YousafZai
Asked: 2023-08-17 16:45:32 +0800 CST

根据列值创建单独的 DF 的函数

  • 772

我有一个人口统计表，其中包含不同患者的人口统计记录。在人口统计中，每个患者都有患者在哪个医院登记的记录(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 牙科牙科 中号

1 个回答

  1. Best Answer
    left_join(Demography, Patient_Prescription, by = "Pat_ID") |> 
group_split(Hospital_ID)

    或者，你可以这样做：

    library(magrittr)

left_join(Demography, Patient_Prescription, by = "Pat_ID") %>%
{split(., .$Hospital_ID)}
    • 1

相关问题