根据数据框中一列的值得到新的一列

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

复制代码

根据x是否1得到新的一行y，
x y
1 1
1 2
2 2
2 2
1 3
2 3
2 3
1 4
2 4
2 4
2 4
1 5
2 5
2 5

谢谢！

1. aaa <- data.frame(x=c(1,1,2,2,1,2,2,1,2,2,2,1,2,2))
   
2. aaa
   
3. 
   
4. for (i in 1:dim(aaa)[1]){
   
5.     if (aaa[i, 'x'] == 1){
   
6.         aaa[i, 'x_'] <- 1
   
7.     }
   
8.     else {
   
9.         aaa[i, 'x_'] <- 0
   
10.     }
    
11. }
    
12. 
    
13. aaa[, 'y'] <- cumsum(aaa[,2])

复制代码

橙红的果士 发表于 2023-9-7 09:29

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

aaa

for (i in 1:dim(aaa)[1]){

    if (aaa[i, 'x'] == 1){

        aaa[i, 'x_'] <- 1

    }

    else {

        aaa[i, 'x_'] <- 0

    }

}

aaa[, 'y'] <- cumsum(aaa[,2])

谢谢！   

1. aaa <- data.frame(x=c(1,1,2,2,1,2,2,1,2,2,2,1,2,2))
   
2. aaa <- aaa |>
   
3.   mutate(y = cumsum(ifelse(x==1, 1, 0 )))

复制代码