基础R绘图存入SQLite Blob后重渲染报错，ggplot2正常求助

你遇到的核心问题是基础R绘图的序列化对象在SQLite存储与读取过程中，类型处理出现了偏差，导致反序列化时无法正确解析原始绘图记录。下面是具体的原因分析和修复方案：

问题根源 #

1. 你用I(list(p))将序列化后的raw向量嵌套包装到数据框中，RSQLite在插入Blob字段时，会对这个嵌套结构做不必要的转换，导致读取回来的对象不再是原始的序列化raw向量。
2. R 3.3.0属于较旧版本，recordPlot()的序列化机制与后续版本存在差异，再加上早期RSQLite对Blob类型的处理不够完善，进一步放大了这个问题。

修复后的完整代码 #

library("ggplot2")
library("RSQLite")

# 生成测试数据
dat <- data.frame(x = rnorm(50, 1, 6), y = rnorm(50, 1, 8))

# 创建ggplot并序列化
g <- ggplot(dat, aes(x = x, y = y)) + geom_point()
ggplot_serialized <- serialize(g, NULL)

# 创建基础R绘图并序列化
pdf("test.pdf")
dev.control(displaylist="enable")
plot(dat)
base_plot_serialized <- serialize(recordPlot(), NULL)
dev.off()

# 初始化SQLite连接并创建表
con <- dbConnect(SQLite(), ":memory:")
dbExecute(con, 'CREATE TABLE graphs (baseplot BLOB, ggplot BLOB)')

# 直接用参数绑定插入数据（避免数据框的类型包装问题）
dbExecute(
  con,
  'INSERT INTO graphs (baseplot, ggplot) VALUES (:baseplot, :ggplot)',
  params = list(baseplot = base_plot_serialized, ggplot = ggplot_serialized)
)

# 从数据库读取数据
df2 <- dbGetQuery(con, "SELECT * FROM graphs")

# 渲染ggplot
unserialize(df2[["ggplot"]][[1]])

# 渲染基础R绘图
unserialize(df2[["baseplot"]][[1]])

关键修改说明 #

• 移除嵌套列表包装：不再用I(list(p))构造数据框，直接将序列化后的raw向量通过params参数传递给dbExecute，确保Blob字段存储的是原始序列化数据。
• 替换插入函数：用dbExecute替代dbGetPreparedQuery，它处理参数绑定时更简洁，能更好保留raw类型的完整性。
• 简化反序列化操作：读取后直接取df2[["baseplot"]][[1]]（原始的序列化raw向量），无需额外lapply处理（之前ggplot需要lapply也是因为包装问题，现在也能直接反序列化）。

如果必须使用数据框绑定插入，需确保数据框列是raw类型而非列表：

# 替代的构造数据框方式
df1 <- data.frame(
  baseplot = I(base_plot_serialized),
  ggplot = I(ggplot_serialized),
  stringsAsFactors = FALSE
)
dbGetPreparedQuery(
  con,
  'INSERT INTO graphs (baseplot, ggplot) VALUES (:baseplot, :ggplot)',
  bind.data = df1
)

这样修改后，基础R绘图就能正常从SQLite读取并反序列化渲染了。

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