我正在尝试为每个组增加一列。因此,如果有一个值,那么我们将基于它之前的值对其进行递增,否则我们将其保留。
因此,例如它将从df变为dfb。
df <- data.frame(group = c("A", "A", "B", "B", "B", "C", "C", "C", "D", "D"),
num = c(1, NA, NA, 8, NA, 5, NA, NA, 10, NA))
dfb <- data.frame(group = c("A", "A", "B", "B", "B", "C", "C", "C", "D", "D"),
num = c(1, 2, NA, 8, 9, 5, 6, 7, 10, 11))
> df
group num
1 A 1
2 A NA
3 B NA
4 B 8
5 B NA
6 C 5
7 C NA
8 C NA
9 D 10
10 D NA
> dfb
group num
1 A 1
2 A 2
3 B NA
4 B 8
5 B 9
6 C 5
7 C 6
8 C 7
9 D 10
10 D 11
我最大的尝试是这样做,但是没有用
dfc <- df %>%
mutate(num = ifelse(is.na(num),lag(num) + 1, num))
删除了我先前的问题,因为先前我的问题定义不正确。
谢谢您的帮助!
最佳答案
我们可以做的
df %>%
group_by(grp1= cumsum(!is.na(num)), group) %>%
mutate(num = if(n() > 1) num[1L] + row_number()-1 else num) %>%
ungroup() %>%
select(-grp1)
# A tibble: 10 × 2
# group num
# <fctr> <dbl>
#1 A 1
#2 A 2
#3 B NA
#4 B 8
#5 B 9
#6 C 5
#7 C 6
#8 C 7
#9 D 10
#10 D 11
或使用
data.table
library(data.table)
setDT(df)[, num := if(.N >1) num[1L] + seq_len(.N)-1
else num,.(grp1=cumsum(!is.na(num)), group)]
关于r - 按组递增,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/42437725/