For循环有条件地翻转数据框中的值的符号

Question

我正在尝试在R中创建一个for循环，它将1）标识一个负数为一列，2）将符号翻转为正，3）然后翻转同一行的选择列的符号（沿任一方向），以及然后创建一个因素来确定标志是否被翻转了。

下面是一个例子。我希望列“ z”中的所有负值都变为正值，然后对于发生这种情况的任何行（行4-8），我都希望翻转列“ y”中的值的符号。

Example <- data.frame(x = 4:-3, y = -4:3, z = 2:-5)

   x  y  z
1  4 -4  2
2  3 -3  1
3  2 -2  0
4  1 -1 -1
5  0  0 -2
6 -1  1 -3
7 -2  2 -4
8 -3  3 -5

for (i in Example$z){
 if(sign(i) == -1){
 Example$z[i] <- (Example$z[i]*-1)
 Example$y[i] <- (Example$y[i]*-1)
 Example$Flip[i] <- "True"
 }
 else{
  Example$Flip[i] <- "False"
   }
 }

但是，此for循环为我提供以下内容：

   x  y  z Flip
1  4 -4  2 True
2  3 -3  1 True
3  2 -2  0 True
4  1 -1 -1 True
5  0  0 -2 True
6 -1 -1  3 True
7 -2 -2  4 True
8 -3 -3  5 True

我想要它创建的是这样的：

   x  y  z Flip
1  4 -4  2 False
2  3 -3  1 False
3  2 -2  0 False
4  1  1  1 True
5  0  0  2 True
6 -1 -1  3 True
7 -2 -2  4 True
8 -3 -3  5 True

在构建此循环时我做错了什么？任何帮助是极大的赞赏！

Answer 1

在 R 中，大多数时候你可以不使用for循环

Example$Flip <- Example$z < 0 
Example$z[Example$Flip] <- -Example$z[Example$Flip]
Example$y[Example$Flip] <- -Example$y[Example$Flip]


Example
#   x  y z  Flip
#1  4 -4 2 FALSE
#2  3 -3 1 FALSE
#3  2 -2 0 FALSE
#4  1  1 1  TRUE
#5  0  0 2  TRUE
#6 -1 -1 3  TRUE
#7 -2 -2 4  TRUE
#8 -3 -3 5  TRUE

使用dplyr我们可以通过一个链操作来完成此操作

library(dplyr)

Example %>%
  mutate(Flip = z < 0, 
         z = ifelse(Flip, -z, z), 
         y = ifelse(Flip, -y, y))

就您的for循环而言，您正在循环遍历值，z而不是循环应该在z数据帧（）的索引或行上1:nrow(Example)。我对您的代码做了两处更改，下面的内容应该可以工作。

Example$Flip = NA

for (i in seq_along(Example$z)){ #Change1
   if(sign(Example$z[i]) == -1){ #Change2
     Example$z[i] <- (Example$z[i]*-1)
     Example$y[i] <- (Example$y[i]*-1)
     Example$Flip[i] <- "True"
    }
   else{
     Example$Flip[i] <- "False"
   }
 }

Example
#   x  y z  Flip
#1  4 -4 2 False
#2  3 -3 1 False
#3  2 -2 0 False
#4  1  1 1  True
#5  0  0 2  True
#6 -1 -1 3  True
#7 -2 -2 4  True
#8 -3 -3 5  True