Я пытаюсь выяснить процент доверия к местному правительству из набора данных опроса.Этот набор данных представляет собой данные временного ряда с 2001 по 2018 год и отражает ответ переменной Target как «Достойное количество», «Отличное предложение», «Совсем нет» и «Не очень много».Анализ временных рядов года был выполнен с использованием цикла для определения процентной достоверности, но я сталкиваюсь с проблемой разделения этого состояния с помощью вложенного цикла, и появляется ошибка «индекс за пределами границ».
Я использовалтот же код работает только год с 2001 по 2018 год и работает нормально.Может ли кто-нибудь также помочь мне, как использовать статистическую функцию для решения этой проблемы?
data<-read.csv("maindata.csv")
state<-unique(data$Respondent.state.of.residence)
Year<-seq(2001,2018,1)
output<-matrix(ncol=18,nrow = 51)
for(i in state[1]:state[51]){
A<-subset(data,data$Respondent.state.of.residence==state[i])
for(j in Year[1]:Year[18]){
B<-subset(A,A$Year.of.Interview==j)
C<-subset(B,B$Trust.and.Confidence.in.Local.Government=="A fair amount")
D<-subset(B,B$Trust.and.Confidence.in.Local.Government=="A great deal")
output[j,]<-(nrow(D)*mean(D$Weight)+nrow(C)*mean(C$Weight))/nrow(B)*100
}
}
Выходные данные должны иметь матрицу из 18 столбцов, указывающих год и 51 строку состояния.