在RStudio中将日期列转为距起始日整数天数用于时间序列绘图

两种实现方式均可，新增天数列的方式逻辑更清晰、后续数据复用或调整规则时更方便，更推荐；如果不想改动原数据集，也可以直接在绘图阶段修改x轴标签实现需求。

方案1：新增天数列（推荐） #

步骤1：确保日期列格式正确 #

首先将你的日期列转换为R可识别的Date格式，根据你给出的日期样例01/01/2021（日/月/年格式），转换代码如下：

# 替换df为你的数据集名，date替换为你的日期列名
df$date <- as.Date(df$date, format = "%d/%m/%Y")

如果你的日期实际是月/日/年格式，将format参数改为"%m/%d/%Y"即可。

步骤2：新增天数计算列 #

以数据集中最早的日期为基准计算整数天数，代码如下：

# 计算相对于最早日期的天数，+1是为了让最早的日期对应第1天
df$record_day <- as.integer(df$date - min(df$date)) + 1
# 如果需要最早日期对应第100天，把末尾的+1改为+100即可匹配你的需求

步骤3：绘图替换x轴 #

直接将原绘图逻辑里的x轴变量替换为新增的record_day列即可，以ggplot2为例：

library(ggplot2)
# 替换value为你的数值列名
ggplot(df, aes(x = record_day, y = value)) +
  geom_line() +
  labs(x = "数据记录天数")

方案2：不改动原数据集，直接修改x轴标签 #

如果不想新增列，可以在绘图时直接对x轴的显示标签做转换，以ggplot2为例：

library(ggplot2)
min_date <- min(df$date)
ggplot(df, aes(x = date, y = value)) +
  geom_line() +
  # 直接自定义x轴标签为计算后的天数
  scale_x_date(labels = function(x) as.integer(x - min_date) + 1) +
  labs(x = "数据记录天数")

如果使用base R绘图，对应代码如下：

min_date <- min(df$date)
day_seq <- as.integer(df$date - min_date) + 1
# 替换value为你的数值列名
plot(day_seq, df$value, type = "l", xlab = "数据记录天数", ylab = "数值")

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