関係演算子を含む文字列ベクトルを間隔のベクトルに変換する方法は？

Question

私は1つの列が数値でなければならないデータセットを持っていますが、いくつかの行には '> ='や '< ='のような関係演算子を持つ値があります。これを簡単にするために、私はベクトルを持って考えてみます。

a <- c('>= 0.99', '0.66', '<= 0.01') 

私は間隔の数値ベクトルに変換する方法のように：

library(intervals) 
b <- Intervals(cbind(left = c(0.99, 0.66, -Inf), right = c(Inf, 0.66, 0.01))) 
b 
# Object of class Intervals 
# 3 intervals over R: 
# [0.99, Inf] 
# [0.66, 0.66] 
# [-Inf, 0.01] 

Answer 1

おそらくスイッチを使用して問題を解決できると思います。

a <- c('>= 0.99', '= 0.66', '<= 0.01') 
oper_num <- matrix(unlist(strsplit(a," "), recursive = T), ncol=2, byrow = T) 
limits <- function(vec){ 
    operation = vec[1] 
    number = vec[2] 
    switch(
    operation, 
    ">=" = paste0("[", number,", Inf]"), 
    ">" =paste0("(", number, ", Inf]"), 
    "=" = paste0("[", number, ", ", number, "]"), 
    "<" = paste0("[-Inf, ", number, ")"), 
    "<=" =paste0("[-Inf, ", number, "]") 
) 
} 
apply(oper_num, 1, limits) 
#> [1] "[0.99, Inf]" "[0.66, 0.66]" "[-Inf, 0.01]" 

Answer 2

我々がparse_number

library(readr) 
parse_number(a) 
#[1] 0.51 0.33 0.99 0.66 0.01 

Answer 3

を使用することができます正規表現と関数gsub（）：

a <- c('.51', '.33', '> .99', '.66', '<= .01') 
a.n <- gsub("<|>|=| ", "", a) 
n <- as.numeric(a.n) 
n 
[1] 0.51 0.33 0.99 0.66 0.01 

詳細については、？regexpまたはgsubを参照してください。