несколько участков с использованием цикла

Question

У меня есть фрейм данных, где первый столбец - это годы, а последовательные столбцы - это названия стран с данными временных рядов для каждой страны (28).Я хотел бы построить их все за один раз.Вот мой код:

 par(mfrow=c(4,7))
    for (i in DP[,2:29]) {
      plot(DP$Year,i,
           ylim=range(c(0, 400)),
           type="p",col="red", xaxt="n", yaxt="n",
           ylab="mortality rate",
           xlab="year",
           pch=16, main=c(colnames(DP[,2:29])))
      axis(side = 1)
      axis(side = 2, seq(from=0, to=400, by=25))
    }

Однако на графике показаны все названия стран для каждого графика.Что мне делать?

Answer 1

Вы можете попытаться сначала поместить названия стран в список, а затем просмотреть их.

country_list<-unique(dataset$country)
for (i in seq_along(country_list)){
  plot(DP$Year,i,
       ylim=range(c(0, 400)),
       type="p",col="red", xaxt="n", yaxt="n",
       ylab="mortality rate",
       xlab="year",
       pch=16, main=country_list[i])
  axis(side = 1)
  axis(side = 2, seq(from=0, to=400, by=25))
}

Или вы можете использовать ggplot2 и facet_wrap для фасетирования по стране.