Skip to content

Instantly share code, notes, and snippets.

@gufodotto

gufodotto/gist:2863766

Created June 3, 2012 14:35
Show Gist options
  • Save gufodotto/2863766 to your computer and use it in GitHub Desktop.
Save gufodotto/2863766 to your computer and use it in GitHub Desktop.
Download ZIP
Plot_Lorenz
Raw
gistfile1.r
library(ggplot2)
pXY<-ggplot(as.data.frame(out)) +geom_path(aes(X, Y, col=time, alpha=Z)) + opts(legend.position = "none")
pZY<-ggplot(as.data.frame(out)) +geom_path(aes(Z, Y, col=time, alpha=X)) + opts(legend.position = "none")
pXZ<-ggplot(as.data.frame(out)) +geom_path(aes(X, Z, col=time, alpha=Y)) + opts(legend.position = c(1.1,0.5))
p3D<-ggplot(as.data.frame(out)) +theme_invisible() +geom_path(aes(X*Y, X*Z, col=time, alpha=Y*Z)) + scale_alpha(range = c(0.4, 0.8)) + opts(legend.position = 'none')
multiplot(pXY,pZY,pXZ,p3D, cols=2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment