文章中の各単語の最初の2文字と数値変数を結合する

Question

私は8つの変数を持つデータフレームを持っており、各観測のIDとして使用する2つの列の組み合わせを表す新しい列を作成する必要がある。私はこのように見える結合する必要がある2つの列：

Aut <- c("Robert Lucas", "Finn Kydland & Edward Prescott", "Alan Blinder & Ben Bernanke", 
     "Lars Svensson & Lawrence Christiano & Robert Lucas", "Ben Bernanke") 
Year <- c(1976, 1989, 1983, 1985, 1983) 
df <- data.frame(Aut, Year) 

私は期待していたIDの変数は次のとおりです。

Aut         Year      ID 
Robert Lucas       1976     RoLu1976 
Finn Kydland & Edward Prescott  1989     FiKyEdPr1989 
Lars Svensson & Lawrence Christiano 1983    LaSvLaChRoLu1983 
& Robert Lucas 
Alan Blinder & Ben Bernanke   1985     AlBlBeBe1985 
Ben Bernanke       1983     BeBe1983 

Answer 1

あなたが試すことができます：1で

library(stringr) 
# first split the individual names using "&" as pattern. 
a <- str_split(df$Aut, "&") 
# Then use lapply, split and sub to split first and last name. Then paste the 
# first two letters of each name together. 
a1 <- lapply(a, function(x){ 
    x1 <- str_split(str_trim(x), " ") 
    paste0(unlist(lapply(x1, str_sub,1,2)), collapse="") 
}) 
# Finally add the years. Resulting vector can be saved in df. 
df$ID <- paste0(unlist(a1), df$Year) 

と一緒にすべてを機能：

foo <- function(a, b){ 
    a <- str_split(a, "&") 
    a1 <- lapply(a, function(x){ 
      x1 <- str_split(str_trim(x), " ") 
      paste0(unlist(lapply(x1, str_sub, 1, 2)), collapse="") 
      }) 
    paste0(unlist(a1), b) 
} 

foo(df$Aut, df$Year) 
[1] "RoLu1976"   "FiKyEdPr1989"  "AlBlBeBe1983"  "LaSvLaChRoLu1985" "BeBe1983" 

Answer 2

他のアイデア：

library(stringi) 
lst <- sapply(stri_extract_all_words(df$Aut), function(x) substr(x, 0, 2)) 
df$ID <- paste0(sapply(lst, function(x) paste(x, collapse = '')), df$Year) 

います：

#             Aut Year    ID 
#1          Robert Lucas 1976   RoLu1976 
#2      Finn Kydland & Edward Prescott 1989  FiKyEdPr1989 
#3      Alan Blinder & Ben Bernanke 1983  AlBlBeBe1983 
#4 Lars Svensson & Lawrence Christiano & Robert Lucas 1985 LaSvLaChRoLu1985 
#5          Ben Bernanke 1983   BeBe1983 

Answer 3

をここではgsubとpaste

df$ID <- with(df, paste0(gsub("(([A-Za-z]{2})[a-z& ]*)", "\\2", Aut), Year)) 
df$ID 
#[1] "RoLu1976"   "FiKyEdPr1989"  "AlBlBeBe1983" 
#[4] "LaSvLaChRoLu1985" "BeBe1983"  

と base Rオプションです