如何获取R中最后一次观测前n天的行号？

# 假设df是一个包含日期列'date'的数据框
df <- data.frame(date = as.Date(c("2023-01-01", "2023-01-02", "2023-01-03", "2023-01-04", "2023-01-05")),
                 value = c(10, 20, 30, 40, 50))

# 设置n为2，即获取最后一次观测前2天的行号
n <- 2

# 获取最后一次观测的行号
last_row_num <- nrow(df)

# 计算最后一次观测前n天的行号
row_numbers <- last_row_num - n + 1:last_row_num

# 输出结果
print(row_numbers)

# 获取最后一次观测前n天的具体行号
specific_row_numbers <- row_numbers[row_numbers <= last_row_num]
print(specific_row_numbers)