如何将相同的值附加到R中的参差不齐的列表

# 创建一个参差不齐的列表
my_list <- list(c(1, 2), c(3, 4, 5), c(6))

# 要附加的相同值
value <- 0

# 使用循环遍历列表，并将相同值附加到每个子列表中
for (i in 1:length(my_list)) {
  my_list[[i]] <- c(my_list[[i]], value)
}

# 打印结果
print(my_list)

[[1]]
[1] 1 2 0

[[2]]
[1] 3 4 5 0

[[3]]
[1] 6 0

# 创建一个参差不齐的列表
my_list <- list(c(1, 2), c(3, 4, 5), c(6))

# 要附加的相同值
value <- 0

# 使用lapply函数遍历列表，并将相同值附加到每个子列表中
my_list <- lapply(my_list, function(x) c(x, value))

# 打印结果
print(my_list)

[[1]]
[1] 1 2 0

[[2]]
[1] 3 4 5 0

[[3]]
[1] 6 0