Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- df <- read.table(textConnection("pos colour fill type marker xx yy page
- 1 1 black black annotation 24 1.5 0.5 1
- 2 100 black black annotation 24 100.5 0.5 1
- 3 200 black black annotation 24 199.5 0.5 2
- 4 300 black black annotation 24 298.5 0.5 2
- 5 400 black black annotation 24 398.5 0.5 3"))
- ggplot(data=df, aes(x=xx, y=yy)) + geom_point() + facet_wrap(page ~ .)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement