如何基于R语言list.dirs结果实现目录结构树形可视化？

你的代码目前存在两个核心问题：

• 仅通过list.dirs获取了文件夹，没有包含文件，无法展示完整的目录+文件结构
• 使用basename()作为节点名称会导致不同路径下的同名文件/文件夹被识别为同一个节点，破坏了目录结构的准确性

下面是针对需求修正后的完整实现方案：

完整代码实现 #

library(igraph)

# 1. 获取当前目录下所有文件+文件夹的完整路径（包含子目录）
all_items <- list.files(path = ".", full.names = TRUE, recursive = TRUE, include.dirs = TRUE)

# 2. 构建边数据：父目录 -> 当前项（用完整路径保证节点唯一性）
edges <- data.frame(
  from = dirname(all_items),
  to = all_items,
  stringsAsFactors = FALSE
)

# 3. 构建有向图，去除重复边（避免同一父-子关系重复添加）
g <- graph_from_data_frame(edges, directed = TRUE)
g <- simplify(g, remove.multiple = TRUE, remove.loops = TRUE)

# 4. 优化可视化设置
# 提取每个节点的basename作为显示标签（避免完整路径过长）
node_labels <- basename(V(g)$name)
# 设置树形布局，根节点（当前目录）在顶部
tree_layout <- layout_as_tree(g, root = which(V(g)$name == "."), flip.y = TRUE)

# 绘图
plot(
  g,
  layout = tree_layout,
  vertex.label = node_labels,
  vertex.size = 12,
  vertex.color = "#f0f0f0",
  vertex.label.cex = 0.8,
  edge.arrow.size = 0.5,
  edge.color = "#666666",
  main = "目录结构树形图"
)

关键改进说明 #

• 数据获取：用list.files(include.dirs = TRUE)替代list.dirs，同时获取文件和文件夹，覆盖完整结构
• 节点唯一性：用完整路径作为节点ID，避免同名项的冲突；仅在可视化时显示basename保证可读性
• 图优化：用simplify()去除重复边，设置root参数让树形图从当前目录开始，flip.y = TRUE让树从上往下生长（符合常规目录树的阅读习惯）
• 可视化美化：调整节点大小、颜色、标签字号，箭头大小等，提升可读性

如果需要更简洁的层级展示，也可以结合data.tree将路径转换为树形结构后再转成igraph：

library(igraph)
library(data.tree)

all_items <- list.files(path = ".", full.names = TRUE, recursive = TRUE, include.dirs = TRUE)
# 将路径转换为data.tree结构
tree <- as.Node(data.frame(path = all_items, stringsAsFactors = FALSE), pathDelimiter = .Platform$file.sep)
# 转成igraph边数据
edges <- ToDataFrameNetwork(tree, "from", "to")
g <- graph_from_data_frame(edges, directed = TRUE)

# 可视化（参数可复用之前的设置）
plot(g, layout = layout_as_tree(g, root = which(V(g)$name == tree$name), flip.y = TRUE),
     vertex.label = basename(V(g)$name), vertex.size = 12, vertex.label.cex = 0.8)

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