Используйте векторное устройство, такое как pdf. Сначала убедитесь, что у вас есть эта возможность, и поэтому неудивительно, что функция capabilities
- это то, что нужно проверить. Если у вас есть pdf, просто выполните это:
pdf(file="out_graph.pdf")
s3d <-scatterplot3d(wt,disp,mpg, pch=16, highlight.3d=TRUE,
type="h", main="3D Scatterplot")
fit <- lm(mpg ~ wt+disp)
s3d$plane3d(fit)
dev.off()
Альтернативой для веб-вывода может быть графическое устройство png (). Он получает высокие оценки для компактности и совместимости с веб-браузером, хотя это растровый формат.