R中如何在x取值为0这一行上添加一行空行

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

复制代码

如何在数据框aaa中变量x取值为0的这一行上添加一行空行，不包括首行。得到的数据框如下：
0
1
1
.
0
1
1
1
.     
0
1
1

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]

sunf2020 发表于 2020-2-23 16:18
x

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

1. x <- c(0,1,1,0,1,1,1,0,1,0,1,0,1,1)
   
2. 
   
3. library(dplyr)
   
4. # convert函数，如果数字为0，则变成c(NA, 0)
   
5. convert <- function(num) {
   
6.   if (num == 0) return(c(NA, 0))
   
7.   else return(num)
   
8. }
   
9. # 对x中每一个数字用convert函数
   
10. x <- unlist(lapply(x, convert))
    
11. # 如果第一行是NA，删去第一行
    
12. if (is.na(x[1])) x <- x[-1]
    
13. 
    
14. aaa <- as.data.frame(x)  

复制代码

1. x<-c(0,1,1,0,1,1,1,0,1,1)
   
2. aaa<-data.frame(x)
   
3. 
   
4. library(dplyr)
   
5. 
   
6. bbb <- aaa %>% mutate(.row = 1:n())
   
7. 
   
8. aaa_new <- bbb %>%
   
9.   filter(x == 0, .row > 1) %>%
   
10.   mutate(.row = .row - 0.5, x = NA) %>%
    
11.   bind_rows(bbb) %>%
    
12.   arrange(.row) %>%
    
13.   select(-.row)

复制代码

#根本不需要dplyr或者data table

1. x<-c(0,1,1,0,1,1,1,0,1,1)
   
2. aaa<-data.frame(x)
   
3. bbb<-data.frame(aaa[1,]) #bbb is the output; first add row 1 to bbb
   
4. colnames(bbb)<-colnames(aaa) #get column names from aaa
   
5. 
   
6. NewRow=c(rep(NA, ncol(aaa)))# empty row which is a vector based on number of columns in aaa
   
7. for(i in 2:nrow(aaa)){
   
8.   if (aaa[i,"x"]==0){
   
9.     bbb=rbind(bbb,NewRow)# if column x in row i is zero, first add an empty row to bbb
   
10.   }
    
11.   bbb=rbind(bbb,aaa[i,]) # always add row i to bbb
    
12.   
    
13. }
    
14. 
    
15. #bbb is the output

复制代码