"cognome, nome" -> "nome cognome" in stringhe serializzate

Question

Ho un gruppo di stringhe che contengono elenchi di nomi nel formato , nome, separati da virgole, in questo modo:

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

Qual è il modo più semplice per convertire tutti questi nomi all'interno delle stringhe per nome cognome formato?

Answer 1

Se si può essere certi che una virgola non sta per essere in nome di una persona, questo potrebbe funzionare:

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"   

Ho aggiunto J. Edgar Hoover in là per buona misura.

Se si desidera che i nomi che sono stati citati insieme per stare insieme, aggiungere collapse = ", " al vostro paste() funzione:

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

Sono a favore della @ di AnandaMahto risposta, ma solo per divertimento, questo illustra un altro metodo utilizzando scan, split e 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) Mantenere stessi nomi in ciascun elemento Questo può essere fatto con un singolo gsub (assumendo non ci sono virgole all'interno dei nomi):

> 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) separati in un unico nome per elemento Se si desidera il cognome di ciascun nome in un elemento separato, utilizzare (a) scansione

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

dove out è il risultato della gsub sopra o per farlo provare direttamente (b) 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" 

noti che tutti gli esempi sopra usato la stessa espressione regolare per la corrispondenza.

AGGIORNAMENTO: rimossa la virgola che separa il nome e il cognome.

AGGIORNAMENTO: codice aggiunto per separare il cognome di ciascun nome in un elemento separato nel caso in cui si tratti del formato di output preferito.