如何将多条件重新编码为-1/0/+ 1？

Question

我的数据如下:

Name A B C
apple 1 -1 0
banana 2 -2 1
pear -3 0 1

我想将所有正值替换为-1,将所有负值替换为+1,但保持0为0,我该如何实现？

Answer 1

我们可以使用sign获取数据帧的所有元素的符号,然后通过将其乘以-1来反转它.

df[-1] <- sign(df[-1]) * -1

df
#    Name  A B  C
#1  apple -1 1  0
#2 banana -1 1 -1
#3   pear  1 0 -1

从 ?sign

符号返回带有x的相应元素符号的向量(如果数字分别为正数,零或负数,则实数的符号为1,0或-1).

数据

df <- structure(list(Name = structure(1:3, .Label = c("apple", "banana", 
"pear"), class = "factor"), A = c(-1, -1, 1), B = c(1, 1, 0), 
C = c(0, -1, -1)), .Names = c("Name", "A", "B", "C"), row.names = c(NA, 
-3L), class = "data.frame")