7 从字符串里提取数字并做后续运算
题目:我的数据中某些列含有2L,3ND这种数字和字母的组合:
需要把字母去掉,然后剩下的数字除以2(2L变为2,然后除以2,3ND变为3,然后除以2,不含L或者ND的数字保持不变)。
N 版
dd_n <- as.numeric(gsub('[a-zA-Z]+',
'',
dd[, 1]))
dd_m <- ifelse(grepl('[a-zA-Z]+',
dd[, 1]),
5,
1)
dd_n/dd_m
## [1] 0.4 0.6 66.0