r - 转换为负数

Question

在这样的数据中:

data.frame (com = c("col1","em"), stock1 = c(2.6, 0), aim = c(0,3.10))

如何为带有 com“em”的行的所有行添加减号

预期结果示例:

data.frame (com = c("col1","em"), stock1 = c(2.6, 0), aim = c(0,-3.10))
   com stock1  aim
1 col1    2.6  0.0
2   em    0.0 -3.1

Answer 1

使用ifelse:

df1 <- data.frame (com = c("col1","em"), stock1 = c(2.6, 0), aim = c(0,3.10))

df1$aim <- ifelse(df1$com == "em", -df1$aim, df1$aim)

df1
   com stock1  aim
1 col1    2.6  0.0
2   em    0.0 -3.1