如何将含代码行的R数据框正确保存至CSV并读取后可运行代码

我有一个包含代码列的数据框，示例代码如下：

f1 <- 'paste0("f","q","D",collapse = "")'
f2 <- "q <- rep(NA,10) 
       for(i in 1:10){
       q[i] <- 5+i
       } 
       q"

df <- data.frame(code=c(f1,f2), n=1:2 , lg=c(TRUE,FALSE))

该代码列的内容可通过以下方式运行：

eval(str2expression(df$code[1]))
eval(str2expression(df$code[2]))

现在需要将此数据框正确保存至CSV文件，读取后仍能运行上述代码。目前尝试的代码片段如下：

pth <- "C:\Users\....\Desktop\f.csv"

# how to correctly save
write.csv(m, pth, row.names = F, quote = F)

# how to correctly read
df2 <- read.csv(pth)

# so the code can be run again
eval(str2expression(df2$code[1]))
eval(str2expression(df2$code[2]))

问题出在保存时的引号设置、路径转义，以及变量名拼写错误上，按以下步骤修改即可：

1. 修正路径并正确保存数据框 #

• Windows路径需要用正斜杠/或双反斜杠\\，避免单斜杠被识别为转义字符
• 必须保留单元格内容的引号包裹（write.csv默认quote=TRUE，无需额外指定），否则代码中的换行、引号会被破坏，导致后续无法解析
• 修正变量名：把m改成实际的数据框名df

修改后的保存代码：

# 方式1：用正斜杠
pth <- "C:/Users/..../Desktop/f.csv"
# 方式2：用双反斜杠
# pth <- "C:\\Users\\....\\Desktop\\f.csv"

# 正确保存
write.csv(df, pth, row.names = FALSE)

2. 正确读取数据框 #

读取时指定stringsAsFactors = FALSE，确保code列保持字符类型（而非默认的因子类型），避免表达式解析失败：

df2 <- read.csv(pth, stringsAsFactors = FALSE)

3. 验证运行 #

此时执行以下代码即可正常运行：

eval(str2expression(df2$code[1]))
eval(str2expression(df2$code[2]))

核心原理 #

• CSV格式中，包含换行、引号的单元格必须用引号包裹，否则读取时会把多行内容拆分成多个单元格，导致代码内容损坏
• Windows路径的单斜杠会被R当作转义字符，必须替换为正斜杠或双反斜杠才能正确识别
• 因子类型的列无法被str2expression正确解析，所以读取时要强制转为字符类型

内容的提问来源于stack exchange，提问作者mr.T