我有一些这样的数据:
vtab = read.table(textConnection("uid=123455,ou=usuarios,ou=gm,dc=intra,dc=planej,dc=gov,dc=de
uid=123456,ou=bsa,dc=plant,dc=gov,dc=de
uid=123457,ou=reg,ou=regfns,dc=sero,dc=gov,dc=de
uid=123458,ou=reg,ou=regbhe,dc=sero,dc=gov,dc=de
uid=123459,ou=sede,ou=regbsa,dc=sero,dc=gov,dc=de
uid=123450,ou=reg,ou=regbhe,dc=sero,dc=gov,dc=de"))
我想拆分这些数据。首先将数据分为两组,仅包括uid =数字和dc =中的最后三个描述。像这样:
[,1] [,2]
[1,] "123455" "plant"
[2,] "123456" "planej"
[3,] "123457" "sero"
[4,] "123458" "sero"
[5,] "123459" "sero"
任何帮助都享受:-)
尝试
Col1 <- gsub('uid=(\\d+).*', '\\1', vtab$V1)
Col2 <- gsub('.*dc=(.*)(,dc=.*){2}', '\\1', vtab$V1)
data.frame(Col1, Col2)
# Col1 Col2
#1 123455 planej
#2 123456 plant
#3 123457 sero
#4 123458 sero
#5 123459 sero
#6 123450 sero
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句