for循环中的跳过错误

Question

我正在执行一个 for 循环，为我的 6000 X 180 矩阵（每列 1 个图）生成 180 个图，一些数据不符合我的标准，我收到错误：

"Error in cut.default(x, breaks = bigbreak, include.lowest = T) 
'breaks' are not unique". 

我对这个错误很好，我希望程序继续运行 for 循环，并给我一个导致此错误的列的列表（可能作为包含列名的变量？）。

这是我的命令：

for (v in 2:180){
    mypath=file.path("C:", "file1", (paste("graph",names(mydata[columnname]), ".pdf", sep="-")))
    pdf(file=mypath)
    mytitle = paste("anything")
    myplotfunction(mydata[,columnnumber]) ## this function is defined previously in the program
    dev.off()
}

注意：我发现了很多关于 tryCatch 的帖子，但没有一个对我有用（或者至少我无法正确应用该功能）。帮助文件也不是很有帮助。

我们将不胜感激。谢谢。

Answer 1

一种（肮脏的）方法是使用带有空函数的tryCatch 进行错误处理。例如，以下代码引发错误并中断循环：

for (i in 1:10) {
    print(i)
    if (i==7) stop("Urgh, the iphone is in the blender !")
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
Erreur : Urgh, the iphone is in the blender !

但是您可以将您的指令包装到 tryCatch 中，并使用一个不执行任何操作的错误处理函数，例如：

for (i in 1:10) {
  tryCatch({
    print(i)
    if (i==7) stop("Urgh, the iphone is in the blender !")
  }, error=function(e){})
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

但我认为您至少应该打印错误消息以了解在让您的代码继续运行时是否发生了坏事：

for (i in 1:10) {
  tryCatch({
    print(i)
    if (i==7) stop("Urgh, the iphone is in the blender !")
  }, error=function(e){cat("ERROR :",conditionMessage(e), "\n")})
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
ERROR : Urgh, the iphone is in the blender ! 
[1] 8
[1] 9
[1] 10

编辑：因此，在您的情况下应用 tryCatch 类似于：

for (v in 2:180){
    tryCatch({
        mypath=file.path("C:", "file1", (paste("graph",names(mydata[columnname]), ".pdf", sep="-")))
        pdf(file=mypath)
        mytitle = paste("anything")
        myplotfunction(mydata[,columnnumber]) ## this function is defined previously in the program
        dev.off()
    }, error=function(e){cat("ERROR :",conditionMessage(e), "\n")})
}

Answer 2

这是一个简单的方法

for (i in 1:10) {
  
  skip_to_next <- FALSE
  
  # Note that print(b) fails since b doesn't exist
  
  tryCatch(print(b), error = function(e) { skip_to_next <<- TRUE})
  
  if(skip_to_next) { next }     
}

请注意，循环完成了所有 10 次迭代，尽管有错误。您显然可以用您想要的任何代码替换print(b)。如果tryCatch 中包含多行代码，您还可以在{ 和} 中包含多行代码

Answer 3

如果会发生错误（即如果中断是唯一的），是否可以先在 myplotfunction() 函数中或之前进行测试，而不是捕获错误，并且只在那些不会发生错误的情况下绘制它'没出现？！