yシーケンスに対して 604800 ポイントを持つ
ベクトルをプロットしようとしています: x=seq(from=1, to=604800). これは問題ではありませんが、プロットに黄土曲線を追加する必要があります。
私はこれを使用して試しましggplot2たが、これには永遠に時間がかかり、大規模なデータセットをプロットするのが苦手なことで有名です. R コードを参照してください。
vf <- ggplot(single.prop, aes(x,y)) + geom_line(linetype=1, size=1)
vf <- vf + stat_smooth(method="loess",fullrange=TRUE,aes(outfit=fit1<<-..y..))
vf
私は今パッケージを使用しようとしましたbaseが、これも永遠にかかります:
lw <- loess(y ~ x,data=single.prop)
plot(y ~ x, data=single.prop,pch=19,cex=0.1)
k <- order(single.prop$x)
lines(single.prop$x[k],lw$fitted[k],col="red",lwd=3)
これをより速く実行するために私ができることについて、他の誰かに何か提案はありますか? 私はこれを複数回行う必要があり、これまでのところ、1 つのプロットを約 15 分待っていて、まだ完了していません。