แยกข้อความในคอลัมน์ของกรอบข้อมูลตามส่วนของรูปแบบ

การใช้ R ฉันกำลังพยายามแยกข้อความในคอลัมน์โดยมีตัวคั่นที่ระบุเป็นสองคอลัมน์ใหม่เสมอ กรอบข้อมูลตัวอย่างจะเป็นด้านล่าง:

repdf <- data.frame(a=c("abc(100)","def(95)","ghi(100)","j_(klm)(100)"),b=c("abc(100)","def(95)","ghi(100)","j_(klm)(100)"))

พูดง่ายๆ ฉันต้องการแยกที่ทุกวงเล็บเปิด "(" แต่เฉพาะในกรณีที่ตามด้วยตัวเลข แต่ไม่สูญเสียตัวเลข นั่นคือ ผลลัพธ์ที่ต้องการควรมีลักษณะดังนี้:

a1      a2    b1      b2
abc     100)  abc     100)
def     95)   def     95)
ghi     100)  ghi     100)
j_(klm) 100)  j_(klm) 100)

ฉันได้ลองทำงานกับsplitstackshape::cSplit และ stringr::str_split_fixed แล้ว แต่ก็ไม่มีประโยชน์ cSplit(repdf,c("a","b"),"(") แยกที่ทุกๆ '('

   a_1  a_2  a_3 b_1  b_2  b_3
1: abc 100)   NA abc 100)   NA
2: def  95)   NA def  95)   NA
3: ghi 100)   NA ghi 100)   NA
4:  j_ klm) 100)  j_ klm) 100)

cSplit(repdf,c("a","b"),"\\(([0-9])",fixed=FALSE) ลบหมายเลขแรกออก หากเป็นไปได้ที่จะใช้ \1 เพื่อเพิ่มการจับภาพไปยังกลุ่มที่สองก็คงจะดี แต่น่าเสียดายที่ไม่ใช่

       a_1 a_2     b_1 b_2
1:     abc 00)     abc 00)
2:     def  5)     def  5)
3:     ghi 00)     ghi 00)
4: j_(klm) 00) j_(klm) 00)

as.data.frame(lapply(repdf,function(x)str_split_fixed(x,"\\(",n=2))) อนุญาตให้ฉันแบ่งได้เป็น 2 คอลัมน์เท่านั้น แต่แน่นอนว่าจะใช้เวลาเฉพาะรายการแรกเท่านั้น:

  a.1       a.2 b.1       b.2
1 abc      100) abc      100)
2 def       95) def       95)
3 ghi      100) ghi      100)
4  j_ klm)(100)  j_ klm)(100)