形式R出力をそれぞれの結果を別々の行に、アルファベットを行識別子として取得

Question

ユニークな値を取得しようとすると、次の結果が得られます。私はこのようなアルファベットの代わりに、行番号を持つ別の行にそれぞれの結果を取得できますか

unique(big1.csv[grepl("c1", tolower(big1.csv$Remarks)) &grepl("arm", tolower(big1.csv$Remarks)) 
          &grepl("back", tolower(big1.csv$Remarks)) 
          , ]$New_Remarks) 

[1] "c1 noted to back and arms, dose repeated"    "c1 noted to back of arms and flanks, dose repeated"  
[3] "c1 noted to arms and back, dose repeated"    "c1 noted to back and upper arms, dose repeated"   
[5] "c1 noted to back of arms, dose repeated"    "c1 noted to back and chest, dose repeated"    

？またはローマ数字？

[a] "c1 noted to back and arms, dose repeated" 
[b] "c1 noted to back of arms and flanks, dose repeated"  
[c] "c1 noted to arms and back, dose repeated" 
[d] "c1 noted to back and upper arms, dose repeated"   
[e] "c1 noted to back of arms, dose repeated" 
[f] "c1 noted to back and chest, dose repeated" 

Answer 1

おそらくあなたは、データフレームにIDをカスタムメイドであなたのunique.stringsを組み合わせることができます。

unique.strings <- unique(big1.csv[grepl("e1", tolower(big1.csv$Remarks)) &grepl("arm", tolower(big1.csv$Remarks)) 
         &grepl("back", tolower(big1.csv$Remarks)) 
         , ]$New_Remarks) 
df <- data.frame(ID = paste0("[", letters[1:length(unique.strings)], "]"), unique.strings) 

Answer 2

私はこの例を参照してください、あなたはrownamesが必要だと思う：

unique.strings <- c("xxx", "yyy", "zzz") 

df <- data.frame(unique.strings) 
rownames(df) <- make.unique(letters[1:nrow(df)]) 

df 
# unique.strings 
# a   xxx 
# b   yyy 
# c   zzz