r - 将函数应用于数据框中的所有偶数值

Question

df <- as.data.frame(matrix(1:5, rep(10), ncol = 10))

这是我的示例数据框。我想将以下内容应用于所有偶数:取 -6，然后计算绝对值。

结果应该是这样的:

   V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1   1  1  1  1  1  1  1  1  1   1
2   4  4  4  4  4  4  4  4  4   4
3   3  3  3  3  3  3  3  3  3   3
4   2  2  2  2  2  2  2  2  2   2
5   5  5  5  5  5  5  5  5  5   5
6   1  1  1  1  1  1  1  1  1   1
7   4  4  4  4  4  4  4  4  4   4
8   3  3  3  3  3  3  3  3  3   3
9   2  2  2  2  2  2  2  2  2   2
10  5  5  5  5  5  5  5  5  5   5

你也可以说用 4 替换所有的 2，反之亦然....

我尝试过滤掉所有的偶数，然后执行 -6 和 abs()，还尝试了一个 for 循环和一个 if else 函数……它没有按照我想要的方式工作，并且取得了很大进展太复杂了

Answer 1

我们可以直接应用该函数，因为它们是矢量化的

df[!df %%2] <- abs(df[!df %%2]-6)

-输出

> df
   V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1   1  1  1  1  1  1  1  1  1   1
2   4  4  4  4  4  4  4  4  4   4
3   3  3  3  3  3  3  3  3  3   3
4   2  2  2  2  2  2  2  2  2   2
5   5  5  5  5  5  5  5  5  5   5
6   1  1  1  1  1  1  1  1  1   1
7   4  4  4  4  4  4  4  4  4   4
8   3  3  3  3  3  3  3  3  3   3
9   2  2  2  2  2  2  2  2  2   2
10  5  5  5  5  5  5  5  5  5   5