文字列に含まれるUnicodeエスケープシーケンスを削除できない件について(削除文字列例：\U0001f970)

Question

前提・実現したいこと

str_remove_all()を利用し、以下の文字列から「\U0001f970」の部分を取り除きたいです。

処理のテストです\U0001f970。

よって、期待する結果は以下になります。

処理のテストです。

また、解決するのであれば、str_remove_all()を利用することにはこだわりません。

発生している問題・エラーメッセージ

エラーは発生しておりません。期待通りの結果になりません。

該当のソースコード

data <- "処理のテストです\U0001f970。"

# 正規表現を使ったパターン(うまくいかない)
data <- str_remove_all(data, regex(pattern="\U[0-9a-zA-Z]{4}f[0-9a-zA-Z]{3}"))
data

# 妥協して文字列で…(うまくいかない)
data <- str_remove_all(data, "\U0001")
data

# せめて数字だけなら…(うまくいかない)
data <- str_remove_all(data, "0001")
data

結果としては上記の変換パターン3つはどれも以下の結果となり、期待通りいきません。

[1] "処理のテストです\U0001f970。"

試したこと

文字列の文字コードを変換する、などのキーワードで検索を書けておりましたが、
めぼしい情報がなく変換できませんでした。

Answer 1

勘違いされていると思いますが、\U0001f970で一つの文字です。

⭐️Rで絵文字の正規表現パターン - cucumber flesh