Question

install.packages("dplyr") 
library(dplyr)
install.packages("magrittr")
library(magrittr)

patientsID<-unique(PATIENT$PatientID)
PATIENT$DOD<-as.Date(PATIENT$DOD)
patient_diag_dict<-list()
for (patient_id in patientsID) {
patientDiagnosisDF <- PATIENT %>%
filter(PatientID==patient_id)

chron_date <- patientDiagnosisDF$DOD
chron_ID <- patientDiagnosisDF$DID
patient_data <- data.frame('date' = chron_date,'id' = chron_ID)
patient_data <- patient_data[order(patient_data$date),]

patient_diag_dict[[toString(patient_id)]] <- patient_data

print(patient_diag_dict)
}

diagID<-c()

for(row in 1:nrow(ADMISSION)) {
print(row)
admis_row<-ADMISSION[row,]

patient<-admis_row$PatientID

proc_date<-as.Date(admis_row$PROCEDUREDATE)

if(!(toString(patient) %in% patient_diag_dict)) {
diagID <- c(diagID, NULL)
}

all_diag_date<-patient_diag_dict[[toString(patient)]]$date
all_diag_ids<-patient_diag_dict[[toString(patient)]]$id

mostRecentDiagID<-all_diag_ids[1]
for(i in 1:length(all_diag_date)) {
diag_date<-all_diag_date[i]
diag_id<-all_diag_ids[i]

if(proc_date >= diag_date) {
   mostRecentDiagID<-diag_id
} else {
  break
}
}

diagID <- c(diagID, mostRecentDiagID)

}

ADMISSION$DID<-diagID

我正试图从第一个数据帧中获取诊断日期，并从第二个数据帧中获取proc_date，并尝试进行比较。如果程序日期> =程序日期，请保留该记录。如果不休息。但是此中断在for循环内不起作用。下面列出了这两个数据帧。

患者数据框

PatientID   DOD PRIMARYSITE
27  23-10-08    TRUNK
350 12-10-09    TRUNK
350 05-07-10    NECK
663 31-07-09    UPPERLIMB
663 25-02-09    TRUNK
663 24-06-09    TRUNK
585 03-10-11    HIP
736 30-01-13    OTHER

ADMISSION数据框

PatientID   PROCEDUREDATE   ICD
27          25-09-13    SEDATION
27          25-09-13    LARGE BURSA
27          25-09-13    GENERAL ANESTHIA
27          18-06-04    SEDATION
27          16-07-04    LYMPHGROIN
27          31-08-04    GROIN
27          28-09-04    SEDATION
27          18-06-04    BIOPSY
663         20-04-10    DIETICS
663         10-02-09    SEDATION
663         15-03-11    EYELID
663         09-04-10    PHYSIOTHERAPY
663         20-08-09    BIOPSY
663         09-07-12    SEDATION
585         10-03-10    ANAESESIA
585         10-11-11    BIOPSY
585         08-09-13    SEDATION
585         12-04-08    DIETICS
736         02-05-09    CHEMO
736         09-07-14    BIOPSY
736         10-08-13    SEDATION

我正在获取一个数据框准入数据帧

PatientID   PROCEDUREDATE   ICD             DID
27          25-09-13    SEDATION             2
27          25-09-13    LARGE BURSA          2
27          25-09-13    GENERAL ANESTHIA     2
27          18-06-04    SEDATION             2
27          16-07-04    LYMPHGROIN           2
27          31-08-04    GROIN                2
27          28-09-04    SEDATION             2
27          18-06-04    BIOPSY               2
663         20-04-10    DIETICS              5
663         10-02-09    SEDATION             6
663         15-03-11    EYELID               5
663         09-04-10    PHYSIOTHERAPY        5
663         20-08-09    BIOPSY               5
663         09-07-12    SEDATION             5
585         10-03-10    ANAESESIA            8
585         10-11-11    BIOPSY               8
585         08-09-13    SEDATION             8
585         12-04-08    DIETICS              8
736         02-05-09    CHEMO                9
736         09-07-14    BIOPSY               9
736         10-08-13    SEDATION             9

但是我真正想要的是DOD之后的PROCEDUREDATE 我的输出应如下所示。因为我想获取PROCEDUREDATE和DOD之间的日期以确定重复发生

ADMISSION数据框

PatientID   PROCEDUREDATE   ICD             DID
27          25-09-13    SEDATION             2
27          25-09-13    LARGE BURSA          2
27          25-09-13    GENERAL ANESTHIA     2
663         20-04-10    DIETICS              5
663         15-03-11    EYELID               5
663         09-04-10    PHYSIOTHERAPY        5
663         20-08-09    BIOPSY               5
663         09-07-12    SEDATION             5
585         10-11-11    BIOPSY               8
585         08-09-13    SEDATION             8
585         12-04-08    DIETICS              8
736         09-07-14    BIOPSY               9
736         10-08-13    SEDATION             9

为什么在其他情况下中断不起作用？

0 个答案: