根据另一列值在一列中拆分字符串

问：

我有第 KIRJED1 列，其中是人的所有状态。 列 VER1 表示记录的日期。
在列KIRJED2中，有列KIRJED1的值，如果一行中有几个相同的值，则只写入第一个值。 在列中，KIRJED3为KIRJED2，其中“K”和“O”的值为“R”，“A”和“V”的值为“A”。 在专栏中，KIRJED4使用了与KIRJED2在KIRJED1中相同的专栏KIRJED3的想法。

kirjed1<- c("K,K,K,K,K,K,K,A,A,K,K,K,K,A,K,O,A,A,K", "
K,K,A,K,K", "K,O,A,V,K")
kirjed2 <- c("K,A,K,A,K,0,A,K","K,A,K", "K,O,A,V,K")
ver1 <- c("1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19", "49,106,130,150,167", "1,6,39,103,135")
kirjed3 <- c("R,A,R,A,R,R,A,R","R,A,R", "R,R,A,A,R")
kirjed4<- c("R,A,R,A,R,A","R,A,R", "R,A,R" )


dt <- data.frame(KIRJED1 = kirjed1, VER1 = ver1, KIRJED2= kirjed2, KIRJED3=kirjed3, KIRJED4= kirjed4)

# KIRJED1, VER1, KIRJED4
# 2 K,K,A,K,K    49,106,130,150,167  R,A,R  
# 3 K,O,A,V,K   1,6,39,103,135 R,A,R      

但是我现在怎样才能获得与KIRJED4中的这些值相对应的 VER2 列？

old column value "1,6,39,103,135"
new column value "1,39,135" 

ver2 <- c("1,8,10,14,15,17,19", "49,130,150", "1,39,135")

# KIRJED1, VER1, KIRJED4, VER2
# 2 K,K,A,K,K    49,106,130, 150,167  R,A,R 49,130, 150
# 3 K,O,A,V,K   1,6,39,103,135 R,A,R  1,39,135      

我尝试过多种方法。