如何解决将字符集落形成单位转换为 R 中的数字科学记数法
假设我有以下特征向量,其中包含特定细菌物种的菌落形成单位的数据
head(data$bacteria)
[1] "3*10^5" "2*10^6" "10^4" "7*10^7" "3*10^6" "2*10^7"
我希望带有theese arythmetics 的chr 向量是一个带有科学记数法中该算术表达式的数值结果的向量,以便我可以运行一些统计测试
我尝试使用 as.numeric
但它将数据强制转换为 NA
as.numeric(data$bacteria)
NAs introduced by coercion [1] NA NA NA NA NA NA...
如何将带有数学表达式的字符向量转换为这些表达式的科学记数法的数值结果而不会丢失信息?
解决方法
您可以使用 stringr 包来迭代替换导致数字转换失败的组件。
请看下面的代码。
library(stringr)
a <- c("3*10^5","2*10^6","10^4","7*10^7","3*10^6","2*10^7")
# this replaces the string "*10^"
b <- str_replace( a,"\\*10\\^","e")
# now we still miss those occurrences which do not start with a digit and "*"
c <- str_replace( b,"10\\^","1e")
d <- as.numeric(c)
d
#> [1] 3e+05 2e+06 1e+04 7e+07 3e+06 2e+07
class(d)
#> [1] "numeric"
由 reprex package (v1.0.0) 于 2021 年 3 月 3 日创建
,您可以使用:
sapply(data$bacteria,function(x) eval(parse(text = x)),USE.NAMES = FALSE)
例如 -
x1 <- c("3*10^5","2*10^7")
sapply(x1,USE.NAMES = FALSE)
#[1] 3e+05 2e+06 1e+04 7e+07 3e+06 2e+07
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。