Question

我正在尝试在R中创建自动报告。当我尝试使用grid.draw()在表的布局中包含矩阵时，它不显示整个表。当我使用View()时，它会以我想要的方式显示整个表格。但是，我无法找到一种方法来保存它直接输入我的文档。我想使用grid.draw()因为它创建了一个很好的数据表，就像View()函数一样。

这是我使用View()时出现的图像，这是我想要保存的内容：

http://i.stack.imgur.com/JmKxd.png

这是我使用grid.draw()时发生的事情：

http://i.stack.imgur.com/Dix3f.png

我尝试使用save()和png()之类的内容，但我找不到可行的方法

以下是此矩阵的数据：

Nnn<-c(112702.0, 154319.2, 116803.5, 118352.5)
Fdates<-c("14Q3","14Q4","15Q1","15Q2")
FArimaWF<-c(116077.5, 154534.5, 120126.6, 121559.2)
fforcedFb<-c(109010.1, 139699.8, 108190.0, 109642.0)
mapeforced<-c(3.275821, 9.473478, 7.374378, 7.359814)
fArimaWFqb<-c(109284.0, 142633.6, 108100.8, 109646.3)
mapeout<-c(3.032732, 7.572336, 7.450796, 7.356181)
allforecasts<-matrix(c(Nnn,Fdates,fArimaWF,fforcedFb,mapeforced,fArimaWFqb,mapeout),ncol=7,byrow=FALSE)
colnames(allforecasts)<-c("Original data last 4 totals","Forecast Quarter","ARIMA forecasts on full data","ARIMA forecasts on forced parameters","MAPE of forced forecasts","ARIMA forecasts on out-sample","MAPE of out-sample forecasts")
grid.newpage()
grid.draw(tableGrob(allforecasts)) # here shows how the graph is cut off in the plot viewer
View(allforecasts)
png("allallall.png")
grid.draw(tableGrob(allforecasts))
dev.off() #find the place where it saved and you can see that it saves with it cut off too

Answer 1

您可以使用：

png("allallall.png")
t1<-tableGrob(allforecasts)
grid.arrange(t1)
dev.off()

这可以将任何矩阵保存为一个漂亮格式的表格。

您也可以为图表执行此操作：

png("graph1.png")
plot.ts(Nnn)
dev.off()

在R中保存表格，图形和View（）

1 个答案: