如何创建函数评估列，根据日期存在性生成含1/0的新列？

嘿，我来帮你搞定这个需求！其实实现起来很简单，核心就是判断原列的每个值是否为缺失值（NA），然后把判断结果转换成0或1就行。你之前尝试tapply()可能有点绕了，因为tapply()主要是用来做分组运算的，这里咱们不需要分组，直接对整列做向量级别的操作就够了。

下面给你两种实用的方法，都能轻松达到你的目标：

方法1：用ifelse()直接判断 #

这是最直观的方式，逻辑清晰，容易理解：

# 假设你的数据框叫df，原日期列是Column1
df$NewColumn <- ifelse(is.na(df$Column1), 0, 1)

• is.na(df$Column1)会逐个检查原列的每个值是否为缺失值，返回一个逻辑向量（TRUE/FALSE）
• ifelse()会根据这个逻辑向量，把TRUE（缺失）替换成0，FALSE（有日期）替换成1

方法2：用逻辑值转整数（更简洁） #

因为在R里，逻辑值TRUE等价于1，FALSE等价于0，所以我们可以利用这个特性简化代码：

df$NewColumn <- as.integer(!is.na(df$Column1))

• !is.na(df$Column1)把“是否缺失”的逻辑反转，变成“是否有日期”（有日期为TRUE，缺失为FALSE）
• as.integer()直接把逻辑向量转换成整数1和0

示例验证 #

我们用你给出的示例数据来测试一下：

# 先构造示例数据框（注意把日期转成Date类型）
df <- data.frame(
  Column1 = as.Date(c("2012-04-23", NA, "2016-01-23"), format = "%Y-%m-%d"),
  row.names = c("Obs.1", "Obs.2", "Obs.3")
)

# 用方法1生成新列
df$NewColumn <- ifelse(is.na(df$Column1), 0, 1)

# 查看结果
print(df)

运行后你会得到和你示例完全一致的结果：

Column1 NewColumn
Obs.1 2012-04-23         1
Obs.2       <NA>         0
Obs.3 2016-01-23         1

如果你的原日期列是字符类型（不是Date类型），那只要判断是否为空字符串就行，把is.na()换成df$Column1 == ""就可以啦～

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