Advertisement
Guest User

Untitled

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