Определить
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) ???))