Skip to content

Instantly share code, notes, and snippets.

@gufodotto

gufodotto/2_plot_Lorentz.r

Created July 8, 2012 07:58
Show Gist options
  • Save gufodotto/3069879 to your computer and use it in GitHub Desktop.
Save gufodotto/3069879 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
2_plot_Lorentz.r
pXY<-ggplot(as.data.frame(bullet)) +geom_path(aes(X, Y, alpha=Z), col='green') + opts(legend.position = "none")
pXY<-pXY +geom_path(data=as.data.frame(target), aes(X, Y, alpha=Z), col='blue')
pXY<-pXY +geom_path(data=as.data.frame(guess), aes(X, Y, alpha=Z), col='red')
print(pXY)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment