R 计算0'的向量;s和1';s的长度基于另一个向量中的观测值

R 计算0'的向量;s和1';s的长度基于另一个向量中的观测值,r,dataframe,vector,R,Dataframe,Vector,假设我们有这样一个数据帧: Length <- floor(runif(25, min = 25, max = 1000)) ObservationID <- c(rep("20200321WT3", 25)) DF <- cbind(ObservationID, Length) DF <- as.data.frame(DF) Length这个基R一行可以输出交替的0和1的向量,重复Length次 unlist(lapply(seq_along(Length), fun

假设我们有这样一个数据帧:

Length <- floor(runif(25, min = 25, max = 1000))
ObservationID <- c(rep("20200321WT3", 25))
DF <- cbind(ObservationID, Length)
DF <- as.data.frame(DF)

Length这个基R一行可以输出交替的0和1的向量,重复
Length

unlist(lapply(seq_along(Length), function(i) rep((i - 1)%% 2, each = Length[i])))
另一种方法是:

rep(x = rep_len(x = 0:1,
                length.out = length(x = Length)),
    times = Length)