用不同的特定值替换多列中缺少的数据

Question

我有一个巨大的数据框架，我需要替换几个缺少值，如下所示：

循环A	周期B	周期C	.....
na	na na	na
na	na na	na
na na	na	na na
-1	na	0
-1 -1	-2	0
na	-2	Na
na	na	na
na	na	1
0	-1	1
0	-1	na na
na	na	na na
na	na	na
na na	0	2
1	0	2
1	na	na na
na	na	na na

na na na na n na n a i需要用出现的下一个数字替换na有类似的东西：

A周期	B	周期C	.....
-1	-2	0
-1 -1	-2	0
-1	-2	0
-1 -1	-2	0
-1	-2	0
0 0	0 -2	-2 1
0	-1	1
0 0	-1	1
0	-1	1
0	-1	2
1	0	2 1 0
2 1	0	2
1	0	2
1	0	2
1	1	3
2	1	3

任何想法如何做？ 谢谢。

Answer 1

假设您要在所有start_with周期的所有列中执行替换。

第一个填充函数将na替换为下一个行值。 突变函数在最后一行中替换Na是最后一个非NA值 + 1。

library(tidyverse)

df %>% 
  fill(starts_with("Cycle"), .direction = "up") %>% 
  mutate(across(starts_with("Cycle"), ~ replace_na(.x, last(.x[!is.na(.x)]) + 1)))

   CycleA CycleB CycleC
1      -1     -2      0
2      -1     -2      0
3      -1     -2      0
4      -1     -2      0
5      -1     -2      0
6       0     -2      1
7       0     -1      1
8       0     -1      1
9       0     -1      1
10      0     -1      2
11      1      0      2
12      1      0      2
13      1      0      2
14      1      0      2
15      1      1      3
16      2      1      3

Answer 2

首先，将转换为na和type.covert的数字值。

dat <- replace(dat, dat== 'na', NA) |> type.convert(as.is=TRUE)

接下来，我可能错了，您是否正在寻找这种基本结构？

f <- \(x) {
  rp <- cumsum(c(0, diff(!is.na(x))) > 0) + min(x, na.rm=TRUE)
  nas <- is.na(x)
  x[nas] <- rp[nas]
  x
}

cols <- c("CycleA", "CycleB", "CycleC")  ## select columns

dat[cols] <- lapply(dat[cols], f)
dat
#    CycleA CycleB CycleC
# 1      -1     -2      0
# 2      -1     -2      0
# 3      -1     -2      0
# 4      -1     -2      0
# 5      -1     -2      0
# 6       0     -2      1
# 7       0     -1      1
# 8       0     -1      1
# 9       0     -1      1
# 10      0     -1      2
# 11      1      0      2
# 12      1      0      2
# 13      1      0      2
# 14      1      0      2
# 15      1      1      3
# 16      2      1      3

---

数据：

dat <- structure(list(CycleA = c("na", "na", "na", "-1", "-1", "na", 
"na", "na", "0", "0", "na", "na", "na", "1", "1", "na"), CycleB = c("na", 
"na", "na", "na", "-2", "-2", "na", "na", "-1", "-1", "na", "na", 
"0", "0", "na", "na"), CycleC = c("na", "na", "na", "0", "0", 
"na", "na", "1", "1", "na", "na", "na", "2", "2", "na", "na")), class = "data.frame", row.names = c(NA, 
-16L))