上面代码报错Error in which(test) : argument to 'which' is not logical

这个错误提示意味着在你的代码中使用了`which()`函数，但是`which()`函数的参数不是逻辑型向量。

根据你提供的代码，我无法确定哪一行出现了错误。请检查你的代码，找到使用`which()`函数的地方，确保其参数是逻辑型向量。如果不是，需要先进行逻辑判断，将其转换为逻辑型向量后再传入`which()`函数。

如果你无法解决问题，请提供更多的代码及错误信息。这样我才能更好地帮助你解决问题。

相关问题

Error in which(test) : argument to 'which' is not logical上面代码报错了

这个错误提示意味着在`which()`函数中传入了一个非逻辑型的参数。`which()`函数的作用是找到向量中符合某个条件的元素的位置索引。常见的使用方式是`which(logical_vector)`，其中`logical_vector`是一个逻辑型向量。

检查一下你的代码，看看在`which()`函数中传入的参数是否为逻辑型向量。如果不是，需要先进行逻辑判断，将其转换为逻辑型向量后再传入`which()`函数。

上面代码出现了这个报错 Error in which(test) : argument to 'which' is not logical

这个错误通常出现在对非逻辑型变量使用which()函数时，which()函数只能用于逻辑向量或条件表达式的求值。因此，可能是ifelse()函数中的条件表达式不是逻辑型向量，导致which()函数无法处理。建议检查ifelse()函数中的条件表达式是否正确，确保其返回的是逻辑型向量。

以下是修改后的代码：

library(raster)

path1 <- dir('G:/ERA5hr/SVWL1/2/', pattern = '*.tif', full.names = TRUE)

file2_data <- raster("G:/ERA5hr/Fw/a/a.tif")
file3_data <- raster("G:/ERA5hr/Fw/b/b.tif")
flie4_data <- raster("G:/ERA5hr/Fw/wr/wr.tif")
file5_data <- raster("G:/ERA5hr/Fw/one/one.tif")

for (i in 1:length(path1)) {
  print(path1[i])
  file1_data <- stack(path1[i])
  file_data <- ifelse(file1_data[] < flie4_data[],
                      file5_data[],
                      sqrt(1 + file2_data[] * (file1_data[] - flie4_data[]) ^ file3_data[]))
  output_path <- paste('G:/ERA5hr/Fw/2/', substr(path1[i], 20, 33), '.tif', sep = '')
  writeRaster(file_data, output_path, overwrite = TRUE, format = "GTiff")
}

修改说明：

1. 在ifelse()函数中，使用[]对栅格数据进行索引，确保条件表达式返回的是逻辑型向量。
2. 将"file4_data"改为"flie4_data"，校正拼写错误。
3. 修改导出的文件名路径，使其符合导出路径的格式，同时避免硬编码。