r - 如何从 R 包车中的 crPlots 输出数据？

Question

作为更大的多元回归分析的一部分，我使用 Rcar包avPlots使用crPlots. 然后我需要以 *.csv 格式输出数据（即avPlots，crPlots我需要输出绘制的数据以用于另一个绘图软件）。

我可以avPlots使用以下代码输出数据：

require(car)
model <- lm(log(y)~log(x1)+log(x2), input_data)
avPlots(model)
x1_data <- avPlots(model, ~x1)
write.csv(x1_data,"~\\x1.csv")
x2_data <- avPlots(model, ~x2)
write.csv(x2_data,"~\\x2.csv")

但是，当我对 crPlots 尝试相同的操作时：

model <- lm(log(y)~log(x1)+log(x2), input_data)
crPlots(model)
x1_data <- crPlots(model, ~x1)
write.csv(x1_data,"~\\x1.csv")
x2_data <- crPlots(model, ~x2)
write.csv(x2_data,"~\\x2.csv")

我的输出是一个包含单个零的 *.csv 文件。谁能告诉我如何正确输出 crPlots 中的数据？