R 使用循环的多个绘图

我有一个数据框，其中第一列是年份，连续列是国家名称，每个国家都有时间序列数据（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))
    }

然而，该图显示了每个图表的所有国家名称。我该怎么办

---

您可以尝试先将国家名称放在列表中，然后在列表中循环

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))
}

---

country\u list您可以尝试先将国家名称放入一个列表，然后在其中循环

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))
}

country\u list谢谢，但xy.coords（x，y，xlabel，ylabel，log）中仍然没有工作错误：'x'和'y'长度不同于Joran，这是我最初的代码par（mfrow=c（4,7））（i in DP[，2:29]）{plot（DP$Year，i，ylim=range（c（0400）），type=“p”，col=“red”，xaxt=“n”，yaxt=“n”，ylab=“死亡率”，xlab=“Year”，pch=16）axis（side=1）axis（side=2，seq（from=0，to=400，by=25））}这给了我想要的绘图，但没有标题。谢谢，但在xy中仍然没有工作错误。coords（x，y，xlabel，ylabel，log）：'x'和'y'长度不同于Joran，这是我的原始代码par（mfrow=c（4,7））（I in DP[，2:29]）{plot（DP$Year，i，ylim=range（c（0400）），type=“p”，col=“red”，xaxt=“n”，yaxt=“n”，ylab=“死亡率”，xlab=“Year”，pch=16）轴（side=1）轴（side=2，seq（from=0，to=400，by=25））这给了我想要的绘图，但没有标题。如果答案与您的数据不符，建议：在数据很少的情况下，将您的问题减少到2x2，然后使用
dput（x）
发布数据（我猜，使用2列/行得到的答案与7x7或700x700同样有效。）更具重复性问题的参考资料：，和。如果答案与您的数据不符，建议：在数据很少的情况下，将您的问题减少到2x2，然后使用
dput（x）
发布数据（我猜，使用2列/行得到的答案与7x7或700x700同样有效。）更具再现性问题的参考文献：，和。