替换 dplyr 中的值

Question

我有一个具有一些较低检测限值的数据集（值不一致），我想用一半的检测值替换它们。我尝试使用以下 r 代码，但它不起作用。 有人能帮忙吗？

dat %>% mutate(value=sub("<0.02500","0.0125",value))

Site    value
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  0.01
NR  0.01
NR  0.01
NR  0.02
NR  0.01
NR  0.01
NR  0.01
NR  0.01
NR  0.01
NR  <0.05100
NR  <0.05100
NR  <0.05100
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  0.02
NR  0.017
NR  0.031
NR  0.025
NR  0.023
NR  0.024
NR  0.023

Answer 1

假设value列是字符（如最后的注释中或如果不先转换它们）删除<字符，转换为数字并将每个值乘以 0.5 或 1。

library(dplyr)

dat %>% 
  mutate(value = as.numeric(sub("<", "", value)) * if_else(grepl("<", value), .5, 1))

或仅使用基础 R：

transform(dat, value = as.numeric(sub("<", "", value)) * ifelse(grepl("<", value), .5, 1))

笔记

Lines <- "Site    value
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  <0.02500
NR  0.01
NR  0.01
NR  0.01
NR  0.02
NR  0.01
NR  0.01
NR  0.01
NR  0.01
NR  0.01
NR  <0.05100
NR  <0.05100
NR  <0.05100
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  <0.05000
NR  0.02
NR  0.017
NR  0.031
NR  0.025
NR  0.023
NR  0.024
NR  0.023"
dat <- read.table(text = Lines, header = TRUE, as.is = TRUE)

Answer 2

我们可以使用data.table ：

library (data.table)

setDT(df1)[, value := ifelse(as.character(value)=="<0.02500", 
                             "0.0125", as.character(value)), ][]

#     Site    value
# 1:    NR   0.0125
# 2:    NR   0.0125
# 3:    NR   0.0125
# 4:    NR   0.0125
# 5:    NR   0.0125
# 6:    NR   0.0125
# 7:    NR     0.01
# ...
# 24:   NR <0.05000
# 25:   NR     0.02
# 26:   NR    0.017
# 27:   NR    0.031
# 28:   NR    0.025
# 29:   NR    0.023
# 30:   NR    0.024
# 31:   NR    0.023
#     Site    value