R Data Matrix: значение данных во время транспонирования неверно

Question

Я пытаюсь создать матрицу данных из файла, который транспонирует две переменные из остальных в новую таблицу (матрицу). Но когда таблица (матрица) создана, она не отражает исходное значение из источника, а имеет случайные числа и 1 вместо пропущенных значений. Значения на исходном листе состоят из текста, числовых значений. Ниже приведен сценарий, любая поддержка будет высоко ценится - спасибо:

library(xlsx)

data<-read.csv("F:/Projects/MoHUA/QC_QA_TEMP/CUReport.csv",na.strings=c(""))

str(data)
summary(data)
city<-unique(data$Location)

question<-unique(data$Question)
data$Response<-as.numeric(data$Response)

result<-matrix(,nrow = length(city), ncol =length(question))

for (i in 1:length(city)){
  for (j in 1:length(question)){
    a <- subset(data ,Location==city[i] & Question==question[j])
    result[i,j]<-a$Response[1]

  }
} 

rownames(result)<-city
colnames(result)<-question


write.xlsx(result, "F:/Projects/MoHUA/QC_QA_TEMP/xlsout.xlsx")

# Write CSV in R
write.csv(result, file = "F:/Projects/MoHUA/QC_QA_TEMP/M_Data.csv")