library(dplyr)
x<-c(0,1,1,0,1,1,1,0,1,1)
aaa<-data.frame(x)

a <- tbl_df(aaa) %>%
  mutate(seq = (1:length(x) * 10))

b <- a %>%
  filter(x == 0) %>%
  mutate(seq = seq - 1, x = '') %>%
  .[-1, ]

out <- a %>%
  mutate(x = as.character(x)) %>%
  full_join(b) %>%
  arrange(seq) %>%
  select(-seq)

x<-c(0,1,1,0,1,1,1,0,1,1)

hdat<-data.frame(x)

hdat<-cbind(id=1:nrow(hdat),hdat)

xk<-which(x[-1]==0)+1

sid<-hdat$id[xk]-0.1

xmid<-hdat[1:length(sid),]

xmid<-data.frame(xmid)

xmid$id<-sid

xmid[,-1]<-NA

xmid<-rbind(hdat,xmid)

sk<-order(xmid$id)

hdat<-xmid[sk,]

hdat<-hdat[,-1]

求大佬注释一下每一步的注释呜呜呜