x <- read.table(text="
a 1;xxx c
b 2;yyy d
",stringsAsFactors = F)
V2 <-strsplit(x$V2,split=";")
VV2 <- unlist(V2)
newv2 <- matrix(VV2,ncol=2,byrow=T)
newv2 <- as.data.frame(newv2)
new <- data.frame(x$V1,newv2,x$V3)
names(new) <- paste("V",1:4,sep="")
new

V1 V2  V3 V4
1  a  1 xxx  c
2  b  2 yyy  d

你看看  这样能否行？
qoiqpwqr 之前解决过 类似的问题
可以请教下他

..........

你的数据 应该是30列吧

x <- read.table(text="
a 1;xxx c 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
b 2;yyy d 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
c 3;zzz d 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
d 4;www r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
",stringsAsFactors = F)
V2 <-strsplit(x$V2,split=";")
VV2 <- unlist(V2)
newv2 <- matrix(VV2,ncol=2,byrow=T) #由向量 变为2列的矩阵
newv2 <- as.data.frame(newv2)
new <- data.frame(x$V1,newv2,x[3:30])
names(new) <- paste("V",1:31,sep="")
new

  V1 V2  V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18
1  a  1 xxx  c  1  1  1  1  1   1   1   1   1   1   1   1   1   1
2  b  2 yyy  d  1  1  1  1  1   1   1   1   1   1   1   1   1   1
3  c  3 zzz  d  1  1  1  1  1   1   1   1   1   1   1   1   1   1
4  d  4 www  r  1  1  1  1  1   1   1   1   1   1   1   1   1   1
  V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31
1   1   1   1   1   1   1   1   1   1   1   1   1   1
2   1   1   1   1   1   1   1   1   1   1   1   1   1
3   1   1   1   1   1   1   1   1   1   1   1   1   1
4   1   1   1   1   1   1   1   1   1   1   1   1   1

感谢，可以了。
原来是需要先变矩阵，再变数据框～