Данные об ошибках должны иметь тип вектор был нулевой R - PullRequest
0 голосов
/ 13 февраля 2020

Я не знаю, что я делаю не так. В Rstudio cloud все работает, но в rstudio deskop появляется ошибка.

myData <- read.csv('C:/Users/iwona/Desktop/myData.csv', header = TRUE)
print('wpisz numer województwa, dla którego zostanie przygotowana anliza')
h1 <- readline(prompt="0-Dolnoslaskie, 1-Kujawsko-Pomorskie, 2-Lubelskie, 3-Lubuskie, 4-Lodzkie,
               5-Malopolskie, 6-Mazowieckie, 7-Opolskie, 8-Podkarpackie, 9-Podlaskie, 10-Pomorskie,
               11-Slaskie, 12-Swietokrzyskie, 13-Warminsko-Mazurskie, 14-Wielkopolskie, 15-Zachodniopomorskie")
h <- as.numeric(h1)


months_prices <- vector()
prices <- vector()
dataSummary <- vector()
regions <- as.character(myData$Nazwa[5:20])
years <- 2006:2019
services <- vector()
#regions <- dataframe
serviceNames <- c('Ryz','Mieso wolowe bez kosci','Kurczeta patroszone','Kielbasa suszona','Ser dojrzewajacy','Herbata czarna, lisciasta','Podkoszulek meski bawelniany, bez rekawa','Oczyszczanie chemiczne garnituru meskiego 2-czesciowego','Wegiel kamienny','Olej napedowy')

#for(h in 0:15) # h for regions

#h <- 5
par(mfrow=c(5,2))
cumulative <- data.frame(years=integer(), prices=logical(), services=logical())
for(i in 0:9) # i for services
{
  for (j in 0:13) # j for years 2006-2019
  {
    for(k in 0:11) #k for months
    {
      months_prices[k+1] <- as.numeric(as.matrix(myData[5+h,4+j+(i*14)+(k*140)])[1,])
    }
    prices[j+1] <- mean(months_prices)
    services[j+1] <- serviceNames[i+1]
    months_prices <- vector() # empty
  }
  pricesForService.data <- data.frame(years, prices, services)
  cumulative <- rbind(cumulative, pricesForService.data)
  tmp <- cumulative[cumulative$services == serviceNames[i+1], ]
  plot(tmp$years, tmp$prices,
       main = serviceNames[i+1],
       xlab="Lata", ylab="Ceny",
       type = "l",
       col = "blue")
  mtext(regions[h+1], side = 3, line = -1.5, outer = TRUE)
}

Я получаю следующую ошибку:

Error in array(x, c(length(x), 1L), if (!is.null(names(x)))
list(names(x), : 'data' must be of a vector type, was 'NULL'

Спасибо за вашу помощь

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...