R 在if语句中运行循环

我有一份数据

x$buy_indicator <- c("HOLD","BUY","BUY","HOLD","HOLD","BUY","BUY","HOLD")
x$sell_indicator <- c("HOLD","HOLD","SELL","SELL","HOLD","SELL","SELL","HOLD")

---

我们可以创建一个逻辑向量来查找需要更改值的行

x[x$buy_indicator == "BUY" & x$sell_indicator == "SELL", ] <- "HOLD"


x
#  buy_indicator sell_indicator
#1          HOLD           HOLD
#2           BUY           HOLD
#3          HOLD           HOLD
#4          HOLD           SELL
#5          HOLD           HOLD
#6          HOLD           HOLD
#7          HOLD           HOLD
#8          HOLD           HOLD

数据

x <- data.frame(
      buy_indicator = c("HOLD","BUY","BUY","HOLD","HOLD","BUY","BUY","HOLD"), 
      sell_indicator = c("HOLD","HOLD","SELL","SELL","HOLD","SELL","SELL","HOLD"))

x
x[x$buy_indicator == "BUY" & x$sell_indicator == "SELL", 
            c("buy_indicator", "sell_indicator")] <- "HOLD"

x <- data.frame(
      buy_indicator = c("HOLD","BUY","BUY","HOLD","HOLD","BUY","BUY","HOLD"), 
      sell_indicator = c("HOLD","HOLD","SELL","SELL","HOLD","SELL","SELL","HOLD"))