为什么break在if-else中不起作用？_R

为什么break在if-else中不起作用？

为什么break在if-else中不起作用？,r,R,接纳数据帧 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) { patientDiagnos

接纳数据帧

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

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

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

我得到一个数据帧接纳数据帧

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

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

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

但我真正想要的是程序在国防部之后的位置我的输出应该如下。因为我想得到程序日期和国防部之间的日期，以确定重复性

接纳数据帧

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

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

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

您好，您能编辑您的代码使其可复制吗？这样，帮助你就容易多了！请参阅：您确定您的

else

已触发吗？或者换一种说法，你确定

proc\u date>=diag\u date

是假的吗？是的，在某些情况下是假的。我想出了一个解决办法。当它为false时，我指定了一个值，就像下面的mostRecentDiagID一样