Rで正規表現:文字列から実数を抽出

text <- "商品の価格は 123.45 ドル、在庫は -678 個、クーポンは +.9E-2 円引きです。また、製品Aのロットは 1.2e+3、製品Bは .5 です。テストとして 0. や 0.0 も試します。"

real_number_pattern <- "[+-]?(?:\\d+(?:\\.\\d*)?|\\.\\d+)(?:[eE][+-]?\\d+)?"

# gregexpr() でマッチした位置情報を取得
# perl=TRUE を指定してPCRE (Perl Compatible Regular Expressions) エンジンを利用します
match_positions <- gregexpr(real_number_pattern, text, perl = TRUE)

# regmatches() でマッチした文字列を抽出
# gregexpr() の結果はリストですので、[[1]] で最初の要素（文字列）にアクセス
extracted_numbers_baseR <- regmatches(text, match_positions)[[1]]

# 結果の表示
print("--- Base R での抽出 ---")
print(extracted_numbers_baseR)

numeric_numbers_baseR <- as.numeric(extracted_numbers_baseR)
print("--- Base R (数値型に変換後) ---")
print(numeric_numbers_baseR)

library(stringr)
# str_extract_all() でマッチするすべての文字列を抽出
# 結果はリストですので、[[1]] で最初の要素（文字列）にアクセス
extracted_numbers_stringr <- str_extract_all(text, real_number_pattern)[[1]]

# 結果の表示
print("--- stringr での抽出 ---")
print(extracted_numbers_stringr)

numeric_numbers_stringr <- as.numeric(extracted_numbers_stringr)
print("--- stringr (数値型に変換後) ---")
print(numeric_numbers_stringr)