library(gridExtra) # just for multiplot demos.
library(ggplotTicks)
testplot=(ggplot(mtcars, aes(wt, hp))
+geom_point())
grid.arrange(testplot, mirror_ticks(testplot))
# The reason I did this in the first place:
# My advisor prefers INWARD-facing ticks on all sides.
lab_theme = theme_bw(10)+theme(
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks.length = unit(-0.25 , "lines"),
axis.text.x = element_text(margin=margin(t=1, unit="lines")),
axis.text.y = element_text(margin=margin(r=1, unit="lines")))
testplot.fancy=(ggplot(mtcars, aes(wt, hp, color=factor(cyl)))
+geom_point()
+lab_theme)
grid.arrange(testplot.fancy, mirror_ticks(testplot.fancy))
# Multipanel plots:
print("tp_grid")
tp_grid = (testplot.fancy
+facet_grid(am~carb)
+ggtitle("facet_grid, fixed scales"))
grid.arrange(
tp_grid,
mirror_ticks(tp_grid),
mirror_ticks(tp_grid, allPanels=TRUE))
print("tp_grid_free")
tp_grid_free = (testplot.fancy
+facet_grid(am~carb, scales="free")
+ggtitle("facet_grid, free scales"))
grid.arrange(
tp_grid_free,
mirror_ticks(tp_grid_free),
mirror_ticks(tp_grid_free, allPanels=TRUE))
print("tp_wrap")
tp_wrap = (testplot.fancy
+facet_wrap(~carb)
+ggtitle("facet_wrap, fixed scales"))
grid.arrange(
tp_wrap,
mirror_ticks(tp_wrap),
mirror_ticks(tp_wrap, allPanels=TRUE))
print("tp_wrap_free")
tp_wrap_free = (testplot.fancy
+facet_wrap(~carb, scales="free")
+ggtitle("facet_wrap, free scales"))
grid.arrange(
tp_wrap_free,
mirror_ticks(tp_wrap_free),
mirror_ticks(tp_wrap_free, allPanels=TRUE))
print("tp_wrap_ragged")
tp_wrap_ragged = (testplot.fancy
+facet_wrap(~carb, ncol=4))
grid.arrange(
tp_wrap_ragged,
mirror_ticks(tp_wrap_ragged),
mirror_ticks(tp_wrap_ragged, allPanels=TRUE))
print("tp_wrap_freex")
tp_wrap_freex = (testplot.fancy
+facet_wrap(~carb, scales="free_x")
+ggtitle("facet_wrap, free x-scale"))
grid.arrange(
tp_wrap_freex,
mirror_ticks(tp_wrap_freex),
mirror_ticks(tp_wrap_freex, allPanels=TRUE))
print("tp_wrap_freey")
tp_wrap_freey = (testplot.fancy
+facet_wrap(~carb, scales="free_y")
+ggtitle("facet_wrap, free y-scale"))
grid.arrange(
tp_wrap_freey,
mirror_ticks(tp_wrap_freey),
mirror_ticks(tp_wrap_freey, allPanels=TRUE))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.