在R中能否像操作XMLtree一样处理嵌套数据结构？

当然有，R里有不少工具可以实现类似XML的嵌套数据查询，下面针对你的两个需求给出具体方案：

一、访问所有层级中包含特定属性的节点 #

1. 使用rlist包（列表专用工具） #

rlist提供了简洁的递归筛选函数，直接定位符合属性条件的节点：

library(rlist)

# 示例嵌套数据
nested_data <- list(
  group1 = list(
    item1 = list(id = 1, type = "user", name = "Alice"),
    item2 = list(id = 2, type = "admin", name = "Bob")
  ),
  group2 = list(
    sub_group = list(item3 = list(id = 3, type = "user", name = "Charlie"))
  )
)

# 递归筛选所有含type属性且值为"user"的节点
user_nodes <- list.filter(nested_data, exists("type") && type == "user", recursive = TRUE)
print(user_nodes)

2. 使用purrr包（tidyverse生态） #

如果习惯tidyverse风格，可以用递归遍历函数自定义筛选逻辑：

library(purrr)
library(dplyr)

find_nodes_with_attr <- function(data, attr_name, attr_value) {
  map_depth(data, .depth = Inf, .f = function(x) {
    if (is.list(x) && !is.null(x[[attr_name]]) && x[[attr_name]] == attr_value) x else NULL
  }) %>% 
    discard(is.null) %>% 
    flatten()
}

# 调用函数筛选目标节点
user_nodes <- find_nodes_with_attr(nested_data, "type", "user")
print(user_nodes)

二、按名称筛选任意层级的节点 #

1. rlist包的递归搜索 #

list.search()可以直接递归查找指定名称的元素，list.filter()则能定位包含目标名称的父节点：

# 提取所有名为"name"的字段值
name_values <- list.search(nested_data, name, recursive = TRUE)

# 提取所有包含"name"字段的完整节点
nodes_with_name <- list.filter(nested_data, exists("name"), recursive = TRUE)

2. data.tree包的类XPath查询 #

把嵌套结构转成树后，可以用类似XPath的语法查询，适合复杂层级：

library(data.tree)

# 将嵌套列表转为树结构
tree <- as.Node(nested_data)

# 查找所有type为"user"的节点（对应XPath: //*[@type='user']）
user_nodes <- tree$FindNode(function(node) node$type == "user", traversal = "post-order")

# 提取所有"name"字段的值（对应XPath: //name）
name_values <- tree$Get("name", traversal = "post-order", filterFun = function(node) !is.null(node$name))

针对data.table/tibble的嵌套列 #

如果是data.table或tibble里的嵌套列（单元格为列表），可以结合上述工具处理：

library(tibble)
library(purrr)

nested_tbl <- tibble(
  group = c("group1", "group2"),
  data = list(
    list(item1 = list(id=1, type="user"), item2 = list(id=2, type="admin")),
    list(sub_group = list(item3 = list(id=3, type="user")))
  )
)

# 提取所有type为user的节点并展开
nested_tbl %>% 
  mutate(user_nodes = map(data, ~find_nodes_with_attr(.x, "type", "user"))) %>% 
  unnest_longer(user_nodes)

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