基于现有与缺失数据创建并完善条件变量的R命令需求

原始数据 #

id = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), 
vm = c(6, 9, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, NA),
GE = c("1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0")
data <- data.frame(id, vm, GE)

操作步骤与代码 #

1. 修改vm=12对应的GE值为1 #

先验证6-9月前期访视的GE总和，确认符合修改条件：

# 计算6-9月GE总和
sum_6_9 <- sum(as.numeric(data$GE[data$vm %in% 6:9]), na.rm = TRUE)
sum_6_9 # 输出为1，满足修改依据
# 修改vm=12的GE值
data[data$vm == 12, "GE"] <- "1"

2. 添加vm=24的访视记录（GE=0） #

先验证19-23月前期访视的GE总和，确认符合设置条件：

# 计算19-23月GE总和
sum_19_23 <- sum(as.numeric(data$GE[data$vm %in% 19:23]), na.rm = TRUE)
sum_19_23 # 输出为0，满足设置依据
# 创建新记录并合并到原数据
new_record <- data.frame(id = 1, vm = 24, GE = "0")
data <- rbind(data, new_record)

3. 验证vm=18的GE值为0的正确性 #

计算13-17月前期访视的GE总和，确认逻辑合理性：

# 计算13-17月GE总和
sum_13_17 <- sum(as.numeric(data$GE[data$vm %in% 13:17]), na.rm = TRUE)
sum_13_17 # 输出为0，确认vm=18的GE值为0正确

内容的提问来源于stack exchange，提问作者Pipas