将字符（温度范围）转换为数字（列表）

Question

我的数据框中有一个变量（名为 otemp - 类字符），其中包含以°C 为单位的温度范围，我想将范围（例如 -55°C ~ 105°C）转换为数字（范围有一个最小值和最大值，例如-55:105）我可以稍后比较（大于、等于等）。

这是包含这些值的列：

> head(otemp)  
[1] "-55°C ~ 105°C" "-55°C ~ 105°C" "-55°C ~ 105°C" "-55°C ~ 105°C" "-55°C ~ 125°C" "-55°C ~ 125°C"

首先，我删除了°C：

> otemp<- gsub('°C',"",otemp) head(otemp) [1] "-55 ~ 105" "-55 ~ 105"
> "-55 ~ 105" "-55 ~ 105" "-55 ~ 125" "-55 ~ 125"

然后我把“~”换成了“:”

> otemp <- gsub('~',":",otemp)
> head(otemp) [1] "-55 : 105" "-55 : 105" "-55 : 105" "-55 : 105" "-55 : 125" "-55 : 125"

如何将当前类（字符）转换为数字范围？ （例如，-55:105 作为范围将产生从 -55 到 105 的数字范围）

Answer 1

我们可以使用str_extract

library(stringr)
as.numeric(unlist( str_extract_all(otemp, "[0-9.]+")))
#[1]  55 105  55 105  55 105  55 105  55 125  55 125

---

或与gregexpr/regmatches 来自base R

as.numeric(unlist(regmatches(otemp, gregexpr("[0-9.]+", otemp))))

Answer 2

这是一种笨拙但非常透明的方法。删除摄氏度，用波浪号分割，强制转换为数字矩阵。快乐的舞蹈

x <- c("-55°C ~ 105°C", "-55°C ~ 105°C", "-55°C ~ 105°C", "-55°C ~ 105°C", "-55°C ~ 125°C", "-55°C ~ 125°C")
x <- gsub("°C", "", x)
x <- strsplit(x, "~")
x <- sapply(x, as.numeric)
t(x)

     [,1] [,2]
[1,]  -55  105
[2,]  -55  105
[3,]  -55  105
[4,]  -55  105
[5,]  -55  125
[6,]  -55  125