R将NAs替换为非nA值的增量/减量

# 创建一个包含NA的向量
data <- c(1, 2, NA, 4, NA, 6)

# 将NA替换为固定值（例如0）
data[is.na(data)] <- 0
print(data)

# 创建一个包含NA的向量
data <- c(1, 2, NA, 4, NA, 6)

# 计算NA的数量
na_count <- sum(is.na(data))

# 使用递增的值替换NA
data[is.na(data)] <- seq(from = na_count + 1, length.out = na_count)
print(data)

# 创建一个包含NA的向量
data <- c(1, 2, NA, 4, NA, 6)

# 计算NA的数量
na_count <- sum(is.na(data))

# 使用递减的值替换NA
data[is.na(data)] <- seq(from = max(data) + na_count, by = -1, length.out = na_count)
print(data)

# 创建一个包含NA的向量
data <- c(1, 2, NA, 4, NA, 6)

# 计算NA的数量
na_count <- sum(is.na(data))
cat("Number of NAs:", na_count, "\n")

# 使用递增的值替换NA
replacement_values <- seq(from = na_count + 1, length.out = na_count)
cat("Replacement values:", replacement_values, "\n")

data[is.na(data)] <- replacement_values
print(data)