有條件strsplit

Question

我有一個數據幀，其中一列包含一組名稱。我想stringsplit列名的一部分，並已經這樣做了如下：

DF$newname <- sapply(strsplit(as.character(DF$oldname), "_"), '[', 5) 

在這個例子中分裂的第五部分包含字符串的名稱部分。問題是這個數據集包含$oldname不同格式的名稱。在第一種格式的名稱如下：其中XXX爲數字：

xxx_xxx_xxx_xxx_name_xx (name is in fifth position) 

和第二格式的$oldname看起來像這樣

xxx_xxx_xxx_xxx_xxx_name_xx (name is in sixth position) 

我在想，我可以從內使用ifelse命令函數，但我遇到了麻煩與下面的代碼一點點：

namesplit = function(df){ 
    x <- strsplit(as.character(df$oldname), "_"), '[', 5) 
    y <- strsplit(as.character(df$oldname), "_"), '[', 6) 
    ifelse(is.character(x),x,y) } 
DF$newname <- sapply(DF,namesplit) 

這個代碼不工作，我知道我可以的使用[這種方式，但我不知道最好的方法。雖然我認爲我可以在for循環內工作，但我更願意找到一種方法來提取名稱，以便我可以使用apply。

謝謝。

Answer 1

您可以輕鬆地做到這一點使用gsub

names <- c('xxx_xxx_xxx_xxx_xxx_name1_xx', 'xxx_xxx_xxx_xxx_name2_xx') 
gsub("^.*_([[:alnum:]]+)_.*$", "\\1", names) 


[1] "name1" "name2" 

Answer 2

如果名字是倒數第二個片段這個怎麼樣：

x <- c("xxx_xxx_xxx_xxx_name_xx", "xxx_xxx_xxx_xxx_xxx_name_xx") 


namesplit = function(x){ 
x <- strsplit(as.character(x), "_") 
sapply(x, function(x) x[length(x)-1]) 
} 

HTH