Extract string between spaces

Question

I have this data frame:

df <-c("AA AAAA 1B","A BBB 1", "CC RR 1W3", "SS RGTYC 0")
[1] "AA AAAA 1B" "A BBB 1" "CC RR 1W3" "SS RGTYC 0"

and I want to extract what is between spaces.

Desired result:

[1] "AAAA" "BBB" "RR" "RGTYC"

Answer 1

df <- c("AA AAAA 1B","A BBB 1", "CC RR 1W3", "SS RGTYC 0")

lst <- strsplit(df," ")
sapply(lst, '[[', 2) 
#  [1] "AAAA"  "BBB"   "RR"    "RGTYC"