样本数据
set.seed(1)数据= data.frame( “ID”= C(排序(REP(1:100,3))), “调查”= C(代表(1:3100)))data $ age = ifelse(data $ survey == 1,sample(30:60,100,replace = T),0)目标是获得……
您只需通过相应的子集添加三个。
set.seed(1) data$age <- NA # if column does not yet exist data$age[data$survey == 1] <- sample(30:60, length(data$age[data$survey == 1]), replace=TRUE) data$age[data$survey == 2] <- data$age[data$survey == 1] + 3 data$age[data$survey == 3] <- data$age[data$survey == 2] + 3 head(data) # id survey age # 1 1 1 38 # 2 1 2 41 # 3 1 3 44 # 4 2 1 41 # 5 2 2 44 # 6 2 3 47