次の例のように、ラベルの文字ベクトルから正規表現サブグループの文字ベクトルへの機械変換用の関数をコーディングしようとしています。ここで、lab はラベルのベクトルであり、正規表現グループによってラボの内容を特徴付ける前述の明らかな結果のようにパットします。
adist機能を使って同じ長さの弦を比較することから始めましたが、車輪の再発明だと思います。
それを処理する既存のパッケージまたは関数はありますか? または、開始するのに十分近いものはありますか?
実際には、ラボ オブジェクトの長さは 1k ～ 5k で、特定のラベルには任意の説明を含めることができます。以下はショーケースとして作成されたものです。
lab <- c(
"Speed - unit 1",
"Speed - unit 2",
"Speed - unit 3",
"Speed - unit 4",
"Speed - unit 5",
"Layer A",
"Layer B",
"Layer Cx",
"Colour Left",
"Colour Right",
"Colour Up",
"Colour Down"
)
pat <- c(
"^Speed - unit .$",
"^Layer [ABCx]*$",
"^Colour .*"
)