strsplit / grep из средней строки в R
У меня есть имена переменных в форме:
PP_Sample_12.GT
или же
PP_Sample-17.GT
Я пытаюсь использовать разделение строк, чтобы вытянуть среднюю часть: т.е.Sample_12 или жеSample-17, Тем не менее, когда я делаю:
IDtmp <- sapply(strsplit(names(df[c(1:13)]),'_'),function(x) x[2])
IDs <- data.frame(sapply(strsplit(IDtmp,'.GT',fixed=T),function(x) x[1]))
Я заканчиваю сSample заPP_Sample_12.GT.
Есть ли другой способ сделать это? Может быть, использовать шаблон / заменить вид функции? Хотя, не уверен, что это существует в R (но я думаю, что это может работать сgsub)