时间戳

首页 > 解决方案 > 当一列的值大于r中的另一列时，如何将数据框中的行值转换为NA？

r - 当一列的值大于r中的另一列时，如何将数据框中的行值转换为NA？

问题描述

我的数据如下所示：

> dput(head(CORt, 5))
structure(list(rDate = structure(c(1438019100, 1438019400, 1438019700, 
1438020000, 1438020300), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    I630 = c(0.536, 0.506, 0.419, 0.456, 0.427), I800 = c(0.414, 
    0.388, 0.339, 0.351, 0.331), I532 = c(0.547, 0.534, 0.463, 
    0.488, 0.464), I570 = c(0.522, 0.508, 0.467, 0.468, 0.445
    ), WR630 = c(0.0127, 0.0573, 0.0083, 0.0057, 0.0053), WR800 = c(0.0144, 
    0.0506, 0.0249, 0.0163, 0.0159), WR532 = c(0.0139, 0.0394, 
    0.006, 0.005, 0.0049), WR570 = c(0.0176, 0.0379, 0.0094, 
    0.0054, 0.0049), NR630 = c(0.006, 0.034, 0.006, 0.004, 0.004
    ), NR800 = c(0.007, 0.04, 0.019, 0.02, 0.019), NR532 = c(0.007, 
    0.072, 0.01, 0.007, 0.007), NR570 = c(0.009, 0.077, 0.008, 
    0.007, 0.007), ER630 = c(0.0351, 0.0746, 0.0116, 0.0055, 
    0.0052), ER800 = c(0.0278, 0.0596, 0.03, 0.0324, 0.0303), 
    ER532 = c(0.04, 0.085, 0.013, 0.008, 0.008), ER570 = c(0.034, 
    0.083, 0.013, 0.009, 0.008)), row.names = c(NA, 5L), class = "data.frame")

在CORt数据框中，当WR630>I630我想将该行的所有值转换为 NA 但我想保留rDate列日期和该ER532行的值时。

我一直在使用此代码（示例）：

which(CORt$WR630>CORt$I630)
CORt[c(7632, 12530, 13684, 14260, 18295, 19735, 23770, 24634, 27529, 44055), setdiff(names(CORt), c("rDate", "ER532"))] <- NA

但是，例如，当我有 200 行时，这并不方便。我正在寻找一个代码，当 WR630>I630直接转换为 NA 时将行值。

任何帮助深表感谢。

标签： rdataframerowna

解决方案

这对你有什么作用？

nrow(data) %>% map(
        .f = function(i) {
                
                if (data[i,"WR630"] > data[i,"I630"] ) {
                        
                        data[i,-c(1,16)] <- NA
                        
                        
                }
                
                
                data
                
        }
)

请注意，它使用索引编号，而不是名称以避免设置rDate和ER532to NA。在你提供的数据中，我没有发现任何你条件持有的情况true，所以我反向测试它以确定它是否有效。

推荐阅读