R降价笔记本中每次循环的打印或保留输出

Question

我正在尝试通过遍历列表并在每个数据帧上运行head（）和tail（）来报告数据帧列表中每个数据帧的数据内容。但是，RStudio中到笔记本的输出始终只是最后一个。

示例：

# Initialize Variables
list_of_df <- list()
dummy_v1 <- c(1:3)
dummy_v2 <- c(4:6)
dummy_v3 <- 1

for (i in 1:3) {
  dummy_v3 <- c(i:i+3)
  dummy_v3
  dummy_df <- data.frame(dummy_v1, dummy_v2, dummy_v3)
  list_of_df[[i]] <- dummy_df
}


# Illustrate my Problem

# I would like to print the following output into the notebook report in a for loop for each dataframe in list_of_df:
head(list_of_df[[1]])
tail(list_of_df[[1]])

for (i in 1:length(list_of_df)) {
  head(list_of_df[[i]])
  tail(list_of_df[[i]])
}

# output only shows the last iteration's head and tails.

实际上，我有130个数据帧，每个数据帧都包含约700个对116或117个变量的时间序列观察，所以我需要以编程方式进行此操作。我想要获得此输出，以便可以对数据帧进行快速完整性检查，然后继续进行时间序列分析。TIA为您提供帮助！

Answer 1

如果需要单独的输出，请使用list作为返回值

lapply(list_of_df, function(x) list(head(x), tail(x)))