내 R 프로그램에 버그를 찾을 수 없습니다

Question

나는 3 열 (병원 이름 - 문자, 주 문자, 사망률 숫자)이있는 CSV 파일에서 데이터를 읽고 있습니다 :

datafile <- read.csv("outcome-of-care-measures.csv", 
    na.strings = "Not Available", 
    colClasses = c("character","character","numeric")) 

이제

내가 분할을 상태에 따라 데이터 :

## split data based on state name 
data_split <- split(datafile,datafile$State) 

내 문제는 각 상태에서 "최악"병원 (가장 높은 사망률을) 찾아 결과를 표시하는 것입니다. 이를 위해 먼저 데이터를 정렬했습니다. "(속도는 목록 임)

for (i in 1:length(data_split)){ 
    ## remove all rows with NA 
    rate[[i]] <- data_split[[i]][complete.cases(data_split[[i]][ ,3]), ] 
    ##sort by mortality and remove 
    ## conflict by hospital name 
    rate[[i]] <- rate[[i]][order(rate[[i]][, 3],rate[[i]][ ,1]), ] 

} 

프로그램이 작동하지만 많은 주에서 잘못된 병원 이름을 얻고 있습니다. 프로그램에서 오류를 찾을 수 없습니다.

Answer 1

왜 data.frame을 분할합니까?

이와 비슷한 것이 있습니까?

df <- data.frame('hospital' = LETTERS[1:6], 
       'state' = rep(c('state1', 'state2', 'state3'),2), 
       'mr' = c(1:6)) 
df 
    hospital state mr 
1  A state1 1 
2  B state2 2 
3  C state3 3 
4  D state1 4 
5  E state2 5 
6  F state3 6 

df2 <- df[with(df, order(-mr, state)), ] 

df2[!duplicated(df2$state), ] 
    hospital state mr 
6  F state3 6 
5  E state2 5 
4  D state1 4 

귀하의 접근 방식을 사용하면 모든 초기 항목을 포함하여 목록을 유지 관리 할 수 ​​있습니다. 하지만 왜?

ds <- split(df, df$state) 
rate <- list() 
for (i in 1:length(ds)){ 
    ## remove all rows with NA 
    rate[[i]] <- ds[[i]][complete.cases(ds[[i]][ ,3]), ] 
    ##sort by mortality and remove 
    ## conflict by hospital name 
    rate[[i]] <- rate[[i]][order(- rate[[i]][, 3], rate[[i]][ ,1]), ] 

} 
rate 

[[1]] 
    hospital state mr 
4  D state1 4 
1  A state1 1 

[[2]] 
    hospital state mr 
5  E state2 5 
2  B state2 2 

[[3]] 
    hospital state mr 
6  F state3 6 
3  C state3 3