R语言中如何基于其他列条件为数据框新增列并赋值？

前置注意事项 #

• 首先需要确认数据框中用于判断的日期列是标准日期格式，而非字符串类型，否则大小比较会出现逻辑错误。
• 提前定义好你的分界日期Date1，格式要和日期列的格式保持一致。

tidyverse 方案（推荐） #

# 加载依赖包
library(dplyr)
# 定义分界日期，示例为2023-01-01，替换为你的实际Date1即可
date_cutoff <- as.Date("2023-01-01")
# 新增标识列
df <- df %>% 
  mutate(flag = ifelse(你的日期列名 < date_cutoff, "Yes", "No"))

base R 方案 #

date_cutoff <- as.Date("2023-01-01")
df$flag <- ifelse(df$你的日期列名 < date_cutoff, "Yes", "No")

import pandas as pd
import numpy as np

# 定义分界日期
date_cutoff = pd.to_datetime("2023-01-01")
# 新增标识列
df["flag"] = np.where(df["你的日期列名"] < date_cutoff, "Yes", "No")

如果你不想引入numpy依赖，也可以用loc赋值：

df["flag"] = "No"
df.loc[df["你的日期列名"] < date_cutoff, "flag"] = "Yes"

补充说明 #

• 如果需要将等于分界日期的行也赋值为Yes，把上述代码中的<替换为<=即可。
• 如果日期列中存在空值，ifelse/np.where会默认返回空值，你可以额外加逻辑处理空值场景。

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