未知确切子集编号时，如何提取DataFrame中对应最大编号的目标子集

你可以通过两种通用方式获取目标子集，无需硬编码固定索引：

方法一：基于"All"标记定位（推荐） #

利用names中"All"的位置匹配对应的places子集，这种方式不受子集数量变化影响，只要"All"标记存在就有效：

# 找到"All"在names向量中的索引位置
target_index <- which(dat$data$key$name[[1]]$names == "All")

# 获取对应位置的places数据
target_data <- dat$data$key$name[[1]]$places[[target_index]]

方法二：直接取最后一个子集 #

因为题目说明最大编号的子集就是所需数据，而places的顺序和names完全对应，最大编号对应最后一个位置，所以可以直接取末尾元素：

# 提取places的最后一个子集
target_data <- tail(dat$data$key$name[[1]]$places, 1)[[1]]

两种方法都能替代固定的[[4]]，适配1-4任意数量的子集场景。

内容的提问来源于stack exchange，提问作者Joe