代码之家 › 专栏 › 技术社区 › Demetri Pananos

基于前几行改变数据帧的行

tidyr dplyr r

Demetri Pananos · 技术社区 · 6 年前

我有三个向量, coin.flips , alpha beta . 它们在这里被初始化:

coin.flips <- c(NA,rbinom(n = 5, size = 1, prob = 0.5))

N <- length(coin.flips)

alpha <- rep(0,length(coin.flips))
alpha[1]<-1

beta <- rep(0,length(coin.flips))
beta[1]<-1

我想更新 / 贝塔 取决于 掷硬币 coin.flips==1 然后递增 阿尔法 ,否则递增 贝塔 . 这是我在R基地做的。

for(i in 2:N){
  if(coin.flips[i]>0){
    alpha[i] = alpha[i-1]+1
    beta[i] = beta[i-1]
  }
  else{
    alpha[i] = alpha[i-1]
    beta[i] = beta[i-1]+1
  }
}

掷硬币 是tibble或data.frame的列。有没有一种简单的方法来构造新的列 阿尔法 贝塔 增量取决于 掷硬币 以前的价值观 / ?

1 回复 | 直到 6 年前

davsjob 6 年前

这是我要的。假设在数据框df中有一个名为coin.flips的列:

library(dplyr)
df <- data.frame(coin.flips = c(rbinom(n = N, size = 1, prob = 0.5)))

df <- df %>% 
  mutate(alpha = 1 + cumsum(coin.flips),
         beta  = 1 + cumsum(if_else(coin.flips == 0, 1, 0))) %>% 
  print

推荐文章

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

buzz · 在dplyr包中,可以根据不同列中的值对列进行变异吗

2 年前

Artur Vidaurre de Almeida · 用R列中的下一个值替换NA值

2 年前

Rich · 如何通过比较R中的两列来计算不同的值?

2 年前

J.Sabree · case\u when在使用group by时忽略一些参数

2 年前

cigarettes_after_text · 有没有一种方法可以更高效地将其写入单个Dplyr语句?

2 年前

Melderon · 将dplyr转换命令转换为基R函数

2 年前

Rafael Peixoto · 熊猫有什么类似于dplyr的“列表列”的吗

2 年前

awoj · 使用pivot\u wider()时修改列名顺序

2 年前

John Thomas · 使用tidyverse/dplyr[duplicate]创建虚拟变量作为计数

2 年前