r - R Null 导致数据帧子集

Question

在 R 中，我有一个循环。我想通过循环中的变量对数据框进行子集化。我希望我的代码看起来像这样：

library(maptools)
for(theMonth in 600: 0)
{
  Inspections.mp <- readShapeLines("InspDates2")
  counties.mp <- readShapePoly("Boundary")
  plot(counties.mp, axes=FALSE, border="gray")
  data1 <-Inspections.mp[Inspections.mp$MonthInt == theMonth]
  lines(data1, col="blue", lwd=1)
}

不幸的是，这将返回 data1 中的所有记录，并使用该行

data1 <-Inspections.mp[Inspections.mp$MonthInt == theMonth,]

导致以下错误： bb[1, ] 中的错误：维数不正确

但是，我可以在仅使用常量整数时获得我想要的记录，但我需要一个变量

library(maptools)
for(theMonth in 600: 0)
{
  Inspections.mp <- readShapeLines("InspDates2")
  counties.mp <- readShapePoly("Boundary")
  plot(counties.mp, axes=FALSE, border="gray")
  data1 <-Inspections.mp[Inspections.mp$MonthInt == 60,]
  lines(data1, col="blue", lwd=1)
}

Answer 1

这里的问题似乎是一个空子集。这可以通过使用 try/catch 语句来避免。

library(maptools)

Inspections.mp <- readShapeLines("InspDates2")
counties.mp <- readShapePoly("Boundary")
for(theMonth in 600: 0)
{
  plot(counties.mp, axes=FALSE, border="gray")

  result <- tryCatch({
    data1 <-Inspections.mp[Inspections.mp$MonthInt == theMonth,]
    lines(data1, col="blue", lwd=1)
    },warning = function(war){
      print("WARNING")
    },error = function (err)
    {
      print("Error")
    }, finally = {
      print("Finally")
    })
}