So wählen Sie das erste Zeichen nach Leerzeichen

Question

Ich möchte das erste Zeichen nach dem schwarzen Leerzeichen auswählen. My MWE wird durch

Eingang gegeben

a <- c("United States", "South America") 
a 

Output gewünschten

"S" "A" 

Answer 1

Beispiel von der Basis-R:

gsub(".* (\\C).*", "\\1", a, perl = TRUE) 
[1] "S" "A" 

Answer 2

Split im Raum und dann substr verwenden, um die ersten Zeichen zu extrahieren

sapply(strsplit(a, " "), function(y) substr(x = y[2], start = 1, stop = 1)) 
#[1] "S" "A" 

OR

sapply(a, function(x) substr(unlist(strsplit(x, " "))[2], 1, 1)) 
#United States South America 
#   "S"   "A" 

Or Verwendung word Funktion stringr

library(stringr) 
substr(x = word(string = a, start = 2, sep = " "), start = 1, stop = 1) 
#[1] "S" "A" 

oder unter Verwendung von str_extractstringr

library(stringr) 
str_extract(string = a, pattern = "(?<=\\s).") 
#[1] "S" "A"