은 for 루프로 벡터를 채울 수 없습니다.

Question

for 루프에서 값으로 빈 벡터를 채우려고합니다. 그러나 나는 문제가 있습니다. 내가 잘못하고있는 중이 야 어디 .... 내 코드는 아래를 참조

i <- c("AL", "AK", "AZ", "AR") 
file <- read.csv("outcome-of-care-measures.csv", colClasses = "character") 
mylist = list() 
for i in unique(file$State){ 
    count = 1 
    file <- file[grep(i[count], file$State),] 
    head(file$State) 
    file[,11] <- as.numeric(file[,11]) 
    head(file) 
    R <- file[order(file[,2], na.last = TRUE),] 
    head(R) 
    Rsub <- R[,c(2,11)] 
    head(Rsub) 
    Rsub2 <- Rsub[order(Rsub[,2], na.last = TRUE),] 
    head(Rsub2,20) 
    Rsub2$Rank <- rank(Rsub2[,2], na.last=TRUE, ties.method="first") 
    Rsub2 <- Rsub2[,-2] 
    head(Rsub2,40) 
    su <- subset(Rsub2, Rsub2$Rank==20) 
    mylist <- su 
    count = count + 1 
} 
} 

내 최종 출력은 나에게 하나 개의 변수

> mylist 
        Hospital.Name Rank 
59 D W MCMILLAN MEMORIAL HOSPITAL 20 

수 누군가 지점에서만 값이?

감사

Upendra

Answer 1

나는 .... 자신에 의해 그것을 알아 냈다

file <- read.csv("outcome-of-care-measures.csv", colClasses = "character") 
data <- data.frame() 
for (i in unique(file$State)){ 
    #count = 1 
    file1 <- file[grep(i, file$State),] 
    head(file1$State) 
    file1[,11] <- as.numeric(file1[,11]) 
    head(file1) 
    R <- file1[order(file1[,2], na.last = TRUE),] 
    head(R) 
    Rsub <- R[,c(2,11)] 
    head(Rsub) 
    Rsub2 <- Rsub[order(Rsub[,2], na.last = TRUE),] 
    head(Rsub2,20) 
    Rsub2$Rank <- rank(Rsub2[,2], na.last=TRUE, ties.method="first") 
    Rsub2 <- Rsub2[,-2] 
    head(Rsub2,40) 
    su <- subset(Rsub2, Rsub2$Rank==20) 
    data <- rbind(data,su) 
}