cannot populate a vector with for loop - populate

Question

I am trying to populate the empty vector with value from a for loop. However i am having trouble with. See below for my code....
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
}
}
My final output has only values from one variable
> mylist
Hospital.Name Rank
59 D W MCMILLAN MEMORIAL HOSPITAL 20
Can somebody point to me where i am doing wrong?
Thanks
Upendra

Answer 1

I figured it out by myself....
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)
}