代码之家 › 专栏 › 技术社区 › Artur Vidaurre de Almeida

用R列中的下一个值替换NA值

na dplyr dataframe r

Artur Vidaurre de Almeida · 技术社区 · 2 年前

我正在努力 lag() 不生产 NA 价值观

df <- data.frame("Score" = as.numeric(c("20", "10", "15", "30", "15", "10")),
             "Time" = c("1", "2", "1", "2", "1", "2"),
             "Team" = c("A", "A", "B", "B", "C", "C"))

Diff 这将计算每个团队的得分差异:

 df <- df %>% 
 group_by(Team) %>% 
 mutate(Diff = Score - lag(Score))

我的问题是,这种方法会产生显然,价值观:

  Score Time  Team   Diff
  20     1     A        NA
  10     2     A       -10
  15     1     B        NA
  30     2     B        15
  15     1     C        NA
  10     2     C        -5

我的目标是在最后做到这一点:

  Score Time  Team   Diff
  20     1     A       -10
  10     2     A       -10
  15     1     B        15
  30     2     B        15
  15     1     C        -5
  10     2     C        -5

我尝试使用 case_when() 函数替换 不适用

 df %>% 
 group_by(Team) %>% 
 mutate(Diff = Score - lag(Score)) %>% 
 mutate(Diff = case_when(
 NA ~ lead(Diff)
 ))

不管怎样,我该怎么做 值替换为下一个值 差异 价值

1 回复 | 直到 2 年前

Peter_Evan 2 年前

只需使用 fill()

library(tidyverse)

df <- data.frame("Score" = as.numeric(c("20", "10", "15", "30", "15", "10")),
                 "Time" = c("1", "2", "1", "2", "1", "2"),
                 "Team" = c("A", "A", "B", "B", "C", "C"))
df <- df %>% 
  group_by(Team) %>% 
  mutate(Diff = Score - lag(Score)) %>% 
  fill(Diff, .direction = 'up')

df
# output
#   Score Time  Team   Diff
#   <dbl> <chr> <chr> <dbl>
#1    20 1     A       -10
#2    10 2     A       -10
#3    15 1     B        15
#4    30 2     B        15
#5    15 1     C        -5
#6    10 2     C        -5

推荐文章

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 年前