Skip to content

Instantly share code, notes, and snippets.

@aaronsaunders
Last active December 21, 2015 04:18
Show Gist options
  • Save aaronsaunders/6247980 to your computer and use it in GitHub Desktop.
Save aaronsaunders/6247980 to your computer and use it in GitHub Desktop.
p1 <- pw + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
stat_smooth(method='lm')
p2 <- px + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
stat_smooth(method='lm')
p3 <- pz + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
stat_smooth(method='lm')
grid.arrange(p1, p2, p3, ncol=1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment