"अंतिम नाम, प्रथम नाम" -> "पहला नाम अंतिम नाम" धारावाहिक तार

Question

मैं तार कि अंतिम नाम में नामों की सूचियाँ शामिल हैं का एक समूह है, प्रथम नाम प्रारूप, इसलिए जैसे अल्पविराम के द्वारा अलग में:

names <- c('Beaufoy, Simon, Boyle, Danny','Nolan, Christopher','Blumberg, Stuart, Cholodenko, Lisa','Seidler, David','Sorkin, Aaron') 

सबसे आसान तरीका है प्रथम नाम अंतिम नाम प्रारूप करने के लिए तार के भीतर इन सभी के नाम परिवर्तित करने के लिए क्या है?

Answer 1

आपको विश्वास है कि एक अल्पविराम एक व्यक्ति के नाम पर होने के लिए नहीं जा रहा है हो सकता है, तो यह काम हो सकता है:

mynames <- c('Beaufoy, Simon, Boyle, Danny', 
      'Nolan, Christopher', 
      'Blumberg, Stuart, Cholodenko, Lisa', 
      'Seidler, David', 
      'Sorkin, Aaron', 
      'Hoover, J. Edgar') 
mynames2 <- strsplit(mynames, ", ") 

unlist(lapply(mynames2, 
       function(x) paste(x[1:length(x) %% 2 == 0], 
           x[1:length(x) %% 2 != 0]))) 
# [1] "Simon Beaufoy"  "Danny Boyle"  "Christopher Nolan" 
# [4] "Stuart Blumberg" "Lisa Cholodenko" "David Seidler"  
# [7] "Aaron Sorkin"  "J. Edgar Hoover"   

मैं अच्छा उपाय के लिए वहाँ में जे एडगर हूवर जोड़ दिया है।

आप ऐसे नाम हैं जो एक साथ उद्धृत किया गया, एक साथ रहने के लिए अपने paste() कार्य करने के लिए collapse = ", " जोड़ने चाहते हैं:

unlist(lapply(mynames2, 
       function(x) paste(x[1:length(x) %% 2 == 0], 
           x[1:length(x) %% 2 != 0], 
           collapse = ", "))) 
# [1] "Simon Beaufoy, Danny Boyle"  "Christopher Nolan"    
# [3] "Stuart Blumberg, Lisa Cholodenko" "David Seidler"     
# [5] "Aaron Sorkin"      "J. Edgar Hoover"  

Answer 2

मैं @ AnandaMahto के उत्तर के पक्ष में हूँ, लेकिन सिर्फ मनोरंजन के लिए, यह एक और तरीका दिखाता है scan, split, और rapply का उपयोग कर।

names <- c(names, 'Chambers, John, Ihaka, Ross, Gentleman, Robert') 

# extract names 
snames <- 
lapply(names, function(x) scan(text=x, what='', sep=',', strip.white=TRUE, quiet=TRUE)) 

# break up names 
snames<-lapply(snames, function(x) split(x, rep(seq(length(x) %/% 2), each=2))) 

# collapse together, reversed 
rapply(snames, function(x) paste(x[2:1], collapse=' ')) 

Answer 3

(1) प्रत्येक तत्व यह एक एकल gsub साथ किया जा सकता (यह मानते हुए नामों के भीतर कोई अल्पविराम के देखते हैं) में एक ही नाम बनाए रखें:

> gsub("([^, ][^,]*), ([^,]+)", "\\2 \\1", names) 
[1] "Simon Beaufoy, Danny Boyle"  "Christopher Nolan"    
[3] "Stuart Blumberg, Lisa Cholodenko" "David Seidler"     
[5] "Aaron Sorkin"  

> gsub("([^, ][^,]*), ([^,]+)", "\\2 \\1", "Hoover, J. Edgar") 
[1] "J. Edgar Hoover" 

(2) एक में अलग तत्व प्रति नाम तो आपको एक अलग तत्व में प्रत्येक प्रथम नाम अंतिम नाम चाहता था तो का उपयोग (क) स्कैन

scan(text = out, sep = ",", what = "") 

जहां out ऊपर gsub का परिणाम है या उसे सीधे कोशिश (ख) प्राप्त करने के लिए strapply:

> library(gsubfn) 
> strapply(names, "([^, ][^,]*), ([^,]+)", x + y ~ paste(y, x), simplify = c) 
[1] "Simon Beaufoy"  "Danny Boyle"  "Christopher Nolan" 
[4] "Stuart Blumberg" "Lisa Cholodenko" "David Seidler"  
[7] "Aaron Sorkin"  

> strapply("Hoover, Edgar J.", "([^, ][^,]*), ([^,]+)", x + y ~ paste(y, x), 
+ simplify = c) 
[1] "Edgar J. Hoover" 

ध्यान दें कि मिलान के लिए प्रयोग किया जाता है उसी रेगुलर एक्सप्रेशन उपरोक्त सभी उदाहरण हैं।

अद्यतन: हटाया अल्पविराम प्रथम और अंतिम नाम को अलग।

अद्यतन: जोड़ा कोड बाहर प्रत्येक पहला नाम मामले में एक अलग तत्व वरीय उत्पादन प्रारूप है कि में अंतिम नाम के अलग करने के लिए।