从图表中提取值

Question

我有一个由下面函数中的复数创建的图形。我想提取与数据图中的线相对应的结果数据点，以便能够使用数据向量。

library(multitaper)
NW<-10
K<-5
x<-c(2,3,1,3,4,6,7,8,5,4,3,2,4,5,7,8,6,4,3,2,4,5,7,8,6,4,5,3,2,5,7,8,6,4,5,3,6,7,8,8,9,7,6,5,4,7)
resSpec <- spec.mtm(as.ts(x), k= K, nw=NW, nFFT = length(x),
               centreWithSlepians = TRUE, Ftest = TRUE,
               jackknife = FALSE, maxAdaptiveIterations = 100,
               plot =FALSE, na.action = na.fail) 
plot(resSpec)

什么是最好的程序。我试过在emf中保存情节。我想使用包ReadImages，我认为是正确的包。 （但是这不适用于R测量3.02因此我无法使用它）。什么是正确的保存和提取过程，还有其他软件包以及在哪些文件类型中我可以保存图形（据我所知，R（OS窗口）只有permist emf。）

欢迎任何帮助