R Markdown代码可运行但无法编织，报0列数据框相关错误

以下是针对问题的具体修复步骤：

1. 修复文件路径问题（核心原因） #

R Markdown编织时的默认工作目录是当前.Rmd文件所在的文件夹，和单独运行代码时的工作目录可能不一致。你的代码里setwd未指定路径，且normalizePath会基于当前会话的工作目录解析路径，导致编织时可能找不到文件、读取空数据框，进而触发后续错误。

• 若X.csv和.Rmd在同一目录，直接用相对路径读取：

  X <- fread("X.csv") %>% clean_names()
  

• 更稳妥的方式用here包统一管理路径（适配不同运行环境）：

  # 首次运行先安装包
  install.packages("here")
  # 加载包并读取文件
  library(here)
  X <- fread(here("X.csv")) %>% clean_names()
  

2. 替换硬编码的列索引 #

用数字索引选择列（c((1:4),39,40,53,54,85,86)），一旦读取的文件列数不符（比如文件损坏、路径错误读空），就会触发"undefined columns selected"错误。建议用列名选择，更稳健：

# 替换成你实际的列名
X <- X %>% select(col1, col2, col3, col4, col39, col40, col53, col54, col85, col86)

如果必须用索引，先校验列数：

X <- fread(here("X.csv")) %>% clean_names()
# 确保列数足够，否则提前报错
stopifnot(ncol(X) >= 86)
X <- X[, c(1:4,39,40,53,54,85,86)]

3. 优化列重命名逻辑 #

用dplyr::rename代替直接修改colnames，语法更清晰且容错性更强：

# 推荐：用原列名重命名（更明确）
X <- X %>% rename(name_1 = original_colname_2, name_2 = original_colname_3)
# 若必须用位置：
X <- X %>% rename(name_1 = all_of(2), name_2 = all_of(3))

4. 避免包冲突 #

你同时加载了data.table和dplyr，两者语法存在冲突（比如[,]的用法）。建议统一代码风格：

• 全用data.table语法：X <- fread(...) %>% clean_names() ; X <- X[, .(col1, col2, ...)]
• 全用tidyverse函数：X <- read_csv("X.csv") %>% clean_names() %>% select(...)

5. 增加数据读取校验 #

读取数据后立即检查是否成功，快速定位问题：

X <- fread(here("X.csv")) %>% clean_names()
if(nrow(X) == 0 || ncol(X) == 0){
  stop("数据读取失败，请检查文件路径或文件内容")
}

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