필드 내 반복 횟수를 기준으로 필드 분할 R

Question

variable_id 필드에서 변수 Id를 분리하는 코드 조각이 있습니다. 변수 수는 실험에 따라 달라질 수 있습니다. 아래 샘플에서는 5 가지 변수가 있습니다. Variant_id 필드에서 변수의 수를 확인하는 함수를 얻고 싶습니다 (변수의 수는 '_'로 구분 된 숫자 블록의 수입니다). R이 설정된 시간 수 아래에서 코드를 실행하도록 알리고 싶습니다. .

루프를 살펴 보았지만이를 수행하는 좋은 방법을 찾지 못했습니다. 감사합니다. .

data$variable_1<-lapply(strsplit(as.character(data$variation_id),"\\_"),"[",1) 
data$variable_2<-lapply(strsplit(as.character(data$variation_id),"\\_"),"[",2) 
data$variable_3<-lapply(strsplit(as.character(data$variation_id),"\\_"),"[",3) 
data$variable_4<-lapply(strsplit(as.character(data$variation_id),"\\_"),"[",4) 
data$variable_5<-lapply(strsplit(as.character(data$variation_id),"\\_"),"[",5) 

variation_id 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1073930921_1032241802_1044434085_1068913167 
1048852146_1068950941_1041087796_1044434085_1048407737 
1048852146_1068950941_1041087796_1044434085_1048407737 
1048852146_1068950941_1041087796_1044434085_1048407737 
1048852146_1068950941_1041087796_1044434085_1048407737 

Answer 1

len <- length(strsplit(as.character(data$variation_id), split="\\_")) 

for(i in 1:len){ 
    data[[paste0("variable_", i)]] <- unlist(lapply(strsplit(as.character(data$variation_id),"\\_"),"[",i)) 
}