如何替换每个组的第一个值 [英] How to replace the first value of each group

问题描述

我的df如下：

set.seed(123)
df <- data.frame(x = sample(letters[1:3],20,replace = TRUE),
                 y = sample(1:10,20,replace = TRUE))
df <- df[order(df$x),]

我想用NA替换每个组的第一个值。例如：

I want to replace the first value of each group with NA. For example:

x y
a NA
a 8
a 1
a 8
b NA
b 3
b 2
b 10
b 8
.
.

获取第一个值没有问题，但这没有意义。

I've no problem with get first values but that's not meaningful.

test <- df %>% 
  group_by(x) %>% 
  do(a = head(.$y,1))

请帮助下一步。

推荐答案

使用 dplyr ，我们可以替换值，其中 row_number 是1

With dplyr we could replace values where row_number is 1

library(dplyr)

df %>%
  group_by(x) %>%
  mutate(y = replace(y, row_number() == 1, NA))


#    x         y
#   <fct> <int>
# 1 a        NA
# 2 a         8
# 3 a         1
# 4 a         8
# 5 a         3
# 6 a         4
# 7 b        NA
# 8 b         6
# 9 b         3
#10 b         2
#....

---

或使用基数R ave

with(df, ave(y, x, FUN = function(i) replace(i, seq_along(i) == 1, NA)))
#[1] NA  8  1  8  3  4 NA  6  3  2 10  8 NA 10  7  6 10  7  5  3

这篇关于如何替换每个组的第一个值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！