有条件地将R中的列中的一个单元格下移

library(dplyr)

# 创建一个示例数据框
df <- data.frame(col1 = c(1, 2, 3, 4, 5))

# 将col1列中的第2个单元格下移
df <- df %>% mutate(col1 = lag(col1, default = 0))

# 输出结果
df

  col1
1    1
2    1
3    2
4    3
5    4

# 创建一个示例数据框
df <- data.frame(col1 = c(1, 2, 3, 4, 5))

# 定义一个shift函数
shift <- function(x, n) {
  c(rep(NA, n), head(x, -n))
}

# 将col1列中的第2个单元格下移
df$col1 <- shift(df$col1, 1)

# 输出结果
df

  col1
1    1
2    1
3    2
4    3
5    4