RowMean具有条件的缺失值

Question

如果Revenue_2017为NA，并且我们在Revenue_2015和Revenue_2016中都有值，我想将它们的平均值分配给Revenue_2017。

Index   Revenue_2015    Revenue_2016    Revenue_2017
1       NA              6355698         10107023
2       13000000        NA              NA
4       NA              NA              NA
5       NA              NA              8000000
6       331000000       659000000       1040000000
7       NA              NA              32032920
8       NA              NA              20000000
9       2521880         5061370         7044288
...

我的编码如下，但更改了现有的Revenue_2017值。所以我需要添加一个条件。

sample$Revenue_2017 <- rowMeans(sample[,2:3], na.rm=TRUE)

类似地，如果我们在Revenue_2015和Revenue_2017列中都有值，而Revenue_2016为NA，我想将它们的平均值分配给Revenue_2016。你能帮我吗？