елять

z<- as.character(c("1_xx xx xxx_xxxx_12_sep.xls","2_xx xx xxx_xxxx_15_aug.xls"))

такой, что

> z
[1] "1_xx xx xxx_xxxx_12_sep.xls" "2_xx xx xxx_xxxx_15_aug.xls"

Я хочу создать векторw такой, что

> w
[1] "1_12_sep" "2_15_aug"

То есть разделить каждый элементz по_ а затем соединить элементы 1,4,5, с.xls снято с последнего.

Я могу управлять разделенной частью, но не уверен, какую функцию предоставить, например что-то вроде "

w <- as.character(lapply(strsplit(z,"_"), function(x) ???))