如何在使用lapply时维护行号？

data <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))
row_numbers <- 1:length(data$a)

result <- mapply(function(x, row_number) {
  # 在这里可以使用row_number来获取当前行号
  # 例如，可以使用row_number来访问其他向量中的对应元素
  print(paste("Processing row", row_number))
  print(x)
}, data, row_numbers)

library(purrr)

data <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))

result <- map(data, ~ {
  # 在这里可以使用.row_number来获取当前行号
  # 例如，可以使用.row_number来访问其他向量中的对应元素
  print(paste("Processing row", .row_number))
  print(.x)
})