001、
a <- 1:3 b <- letters[1:3] c <- LETTERS[1:3] d <- rep("K",3) vx <- paste(a, b, c, sep = "_") vx dat <- data.frame(vx, d) ## 测试数据框 dat library(tidyr) dat1 <- separate(dat, vx, into = c("xx", "yy", "zz"), sep = "_") ## 将vx拆分为xx、yy、zz列 dat1
001、
a <- 1:3 b <- letters[1:3] c <- LETTERS[1:3] d <- rep("K",3) vx <- paste(a, b, c, sep = "_") vx dat <- data.frame(vx, d) ## 测试数据框 dat library(tidyr) dat1 <- separate(dat, vx, into = c("xx", "yy", "zz"), sep = "_") ## 将vx拆分为xx、yy、zz列 dat1