在R

Question

我有一个数据框，用于实验室分析几个参数。许多值低于检测限并且报告为（＆lt;检测限;例如<0.005）

数据框如下所示

  varA     varB    varC     varD    varE    varF    varG
 0.024     0.69     .        .        .       .    <0.01 
 0.012     0.23                                     0.26  
<0.005     0.54                                     0.28                                   
 0.017     0.62                                     0.30
 0.016    <0.10                                     0.31
 0.018     0.34                                     0.24
 0.020     0.44                                    <0.01 
<0.005     0.52                                     0.24
 0.080    <0.10                                     0.25

我想使用此公式将所有值转换为检测限以下

<detection limit  ====> detection limit/sqare root (2)

我为varA做了这个，如下所示

df$varA1<-as.character(df$varA)
df$varA1<-ifelse(df$varA1=="<0.005", 0.005/sqrt(2), df$varA1)
df$varA2<-as.numeric(df$varA1)

我可以对检测限以下的其他列和其他值执行相同操作。但是，考虑到我的数据很大，我需要时间。

有关如何快速更改不同列中检测限以下所有值的任何建议吗？

Answer 1

dLimit <- function(v){
  v <- as.character(v)
  isLimit <- grepl("<", v)
  v[isLimit] <- as.numeric(gsub("<(.*)", "\\1", v[isLimit]))/sqrt(2)
  as.numeric(v)
}

apply(df, 2, dLimit)