当问一个R问题时，你应该总是包括一些示例数据和代码。并且总是以文本的形式包括输出，而不是以图像的形式（当然，除非输出是一个图表）。
示例文件名

ff <- paste0("202001", rep(c("01", "06", "11"), each=4), "_B0", c(2:4,8), ".png")
ff
#[1] "20200101_B02.png" "20200101_B03.png" "20200101_B04.png" "20200101_B08.png"
#[5] "20200106_B02.png" "20200106_B03.png" "20200106_B04.png" "20200106_B08.png"
#[9] "20200111_B02.png" "20200111_B03.png" "20200111_B04.png" "20200111_B08.png"

删除不需要的文件并按日期拆分

sf <- ff[-grep("B08", ff)]
date <- substr(basename(sf), 1, 8)
s <- split(sf, date)
str(s)
#List of 3
# $ 20200101: chr [1:3] "20200101_B02.png" "20200101_B03.png" "20200101_B04.png"
# $ 20200106: chr [1:3] "20200106_B02.png" "20200106_B03.png" "20200106_B04.png"
# $ 20200111: chr [1:3] "20200111_B02.png" "20200111_B03.png" "20200111_B04.png"

“terra”包已经取代了“raster”包，所以让我们使用它并列出SpatRasters。

library(terra)
x <- lapply(s, rast)

但是您可以使用光栅包和stack执行等效的操作。

library(raster)
x <- lapply(s, stack)