将R中的两个数据集与条件覆盖相结合&；编码动量交易

我浏览了网站，但找不到任何回答我问题的帖子

q<-ifelse(c$Action_PX != z & c$Above == 1,log(z/c$Action_PX, base = exp(1)),NA)
w<-ifelse(c$Action_PX != z & c$Below == 1,log(c$Action_PX/z, base = exp(1)),NA)

有没有办法把这两个（q和w）结合起来，只覆盖数字，使它看起来像z？非常感谢您的帮助

---

供您参考，上面是一个二元变量，当现货价格高于移动平均值时变为1，下面则相反。当动量从下到上变化时，我做多，当动量从上到下变化时，我做空。z只是另一组数据，通过在动作系列开始时添加0来获得动量。我尝试使用for循环，但我无法让它工作，所以我决定坚持使用更手动的方式。任何改进我的模型的建议也非常感谢

使用

apply

和

min

 apply(df1, 1, function(x) if(all(is.na(x))) NA else min(x, na.rm=TRUE))
 #[1]    NA    NA    NA 0.012    NA 0.005

---

使用

apply

和

min

 apply(df1, 1, function(x) if(all(is.na(x))) NA else min(x, na.rm=TRUE))
 #[1]    NA    NA    NA 0.012    NA 0.005

---

怎么样

pmin（q，w，na.rm=TRUE）

它可以工作！！！这是一种非常好的方式。非常感谢您。如何

pmin（q，w，na.rm=TRUE）

它可以工作！！！这是一种非常好的方式。非常感谢，非常感谢！祝你一天愉快，非常感谢！祝你有美好的一天