这取决于您想要的输出，但我会使用lapply，因此每个 Dataframe 子集都保存为列表元素：
R <- c("P1", "P5", "P2", "P8", "P9", "P4", "P3", "P6", "P7") lapply(seq_along(R), function(i) L[-which(names(L) %in% R[1L:i])])

由于列名是连续排序的，因此可以执行以下操作：

i <- c(1,5,2,8,9,4,3,6,7)
lapply(i,function(x) L[,-x])

使用dplyr::select和purrr:map，如果修改R以包含最后一列，则可能会执行类似以下操作：

# example data
L <- data.frame(matrix(rnorm(20), nrow=10, ncol=10))
names(L) <- c("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9","P10")
R <- c("P1", "P5", "P2", "P8", "P9", "P4", "P3", "P6", "P7", "P10")

res_list <- 1:ncol(L) %>%
  map(~select(L[R], .x:ncol(L)))

L[R]用于将列置换为您希望删除的顺序。结果是您可以迭代的 Dataframe 列表。