如何將數據從括號

Question

合併成一個專欄中，我有這樣的

a<-c("ABC","CDE(b123)","EFG") 
b<-c("a123","","c123") 
df<-data.frame(A=a,B=b) 
df 
      A B 
1  ABC a123 
2 CDE(b123)  
3  EFG c123 

數據幀我希望有這樣

C 
a123 
b123 
c123 

新列從A列合併內的信息括號B列 謝謝！

Answer 1

可行的解決方案使用正則表達式：

df$B <- as.character(df$B) 
df$A <- as.character(df$A) 
df$C <- df$B 

df$C[df$B==""] <- sub(".*\\((.*)\\)", "\\1", df$A[df$B==""]) 

      A B C 
1  ABC a123 a123 
2 CDE(b123)  b123 
3  EFG c123 c123