library(data.table)ID <- c(NA,1,2,2)IDTime <- c(1,2,NA,1)TimeX1 <- c(5,3,NA,2)X1X2 <- c(NA,5,1,4)X2mydata <- data.table(ID,Time,X1,X2) mydata `````````````````````````` ID Time X1 X21: NA 1 c NA2: 1 2 a 53: 2 NA NA 14: 2 1 b 4 md <- melt
/*按照符号分割字符串*/ create function [dbo].[m_split](@c varchar(2000),@split varchar(2)) returns @t table(col varchar(200)) as begin while(charindex(@split,@c)<>0) begin insert @t(col) values (substring(@c,1,charindex(@split,@c)-1)) set @c = stuff(@c,1,cha