R 代码循环错误

Question

我在运行我的 R 脚本时遇到了一点问题：

sensoren <- read.csv("C:/..../sensors.csv") 
messung <- read.table("C:/.../os.log")

s1 <- messung$V2
s2 <- messung$V4
s3 <- messung$V6
s4 <- messung$V8

i <- 1; j <- 1
while (i <= nrow(messung)){
+   while (j <= nrow(sensoren)){
+       if (s2[i] == sensoren[j,1] && s3[i] == sensoren[j,2] && s4[i] == sensoren[j,3]){ 
+           print(sensoren[j,5][drop=TRUE]); i <- i + 1; j <- 1;} else {j <- j + 1;}}}  

运行脚本时，我总是收到错误消息：+while (j

希望有人能帮助我，谢谢！！

编辑：

我更改了我的代码，现在看起来像这样：

while (i <= nrow(messung)){
+   while (j <= nrow(sensoren)){
+       if (c(s2[i],s3[i],s4[i]) == c(sensoren[j,1], sensoren[j,2], sensoren[j,3])){ 
+           print(sensoren[j,5][drop=TRUE]); i <- i + 1; j <- 1;} else {j <- j + 1;}}}  

但还是一样的错误信息...

Answer 1

看起来 nrow(sensoren) 返回 NULL，当它的参数不是矩阵或数据框时，nrow() 会这样做。检查文件是否按预期读入。

另外，我很感激你没有问这个问题，但是使用嵌套循环并不是一种非常“R”的做事方式，因为 R 在这些操作上非常缓慢。您可能想阅读 R 中的 merge()、apply() 和矢量化。