は、比類のないregmatchesと文字列（R）

Question

背景問題保持：

を現在我々は彼らに製品コードを持っているそのうちのいくつかの項目の記述（1278台のOBS）、のリストを持っています。たとえば、（「REF VLOC0004 V LOC 3/0 15CM SUTURE DEVICE」）、コードはVLOC0004になります。

私はこれをExcelファイルとして保存しています。説明欄の横に、各説明の横に項目コードを記入しておきます。

行わ現在の仕事：私はRにデータをロードするために管理し、（私はの仕事までないです感じれば、私はこれをrevistも正規表現のために自分のパターンを書き込むことができる午前いる

コードのいくつかの文字列をピックアップする）。例：Rコード。

# Pattern 
p=("([A-Z]*[0-9]{4,}[A-Z]*)|([0-9]+[:punct:][0-9]+)|([0-9]+[:punct:][0-9]+[:punct:][0-9]+)") 
# Match data from regexpr() 
m<-regexpr(p,EGIA$LGY_DHB_ITEM_DESCRIPTION) 

問題：私は上記のパターンを抽出するためにregmatchesを実行すると

、それだけ抽出はマッチを発見し、その中の無いコードで記述を無視します。その結果、長さ608のベクトルが作成されます。商品説明の横にこの列を使用すると、コードは説明と一致しません。私が必要とするのは、このベクトルが何らかの理由でアイテムコードが見つからない空白の場所を与えて、この抽出ベクトルがアイテムの説明と同じ長さになるようにすることです。

私は逆のコマンドで周りを回ったが、うまくいかなかった。これについての助けに感謝します、私は正規表現とこのサイトで多数のチュートリアルを見てきましたが、情報には圧倒されていません。

Answer 1

str_detect + ifelseの簡単な組み合わせが可能です。確かにこれを行うには他にも多くの方法があります。

library(stringr) 
str <- c("ab", "bc", "cd") 
yes <- str_detect(str, "c") 
ifelse(yes==T, "c", NA) 
#NA "c" "c"