annotation_logticks: Annotation: log tick marks

# NOT RUN { # Make a log-log plot (without log ticks) a <- ggplot(msleep, aes(bodywt, brainwt)) +  geom_point(na.rm = TRUE) +  scale_x_log10(  breaks = scales::trans_breaks("log10", function(x) 10^x),  labels = scales::trans_format("log10", scales::math_format(10^.x))  ) +  scale_y_log10(  breaks = scales::trans_breaks("log10", function(x) 10^x),  labels = scales::trans_format("log10", scales::math_format(10^.x))  ) +  theme_bw()  a + annotation_logticks() # Default: log ticks on bottom and left a + annotation_logticks(sides = "lr") # Log ticks for y, on left and right a + annotation_logticks(sides = "trbl") # All four sides  # Hide the minor grid lines because they don't align with the ticks a + annotation_logticks(sides = "trbl") + theme(panel.grid.minor = element_blank())  # Another way to get the same results as 'a' above: log-transform the data before # plotting it. Also hide the minor grid lines. b <- ggplot(msleep, aes(log10(bodywt), log10(brainwt))) +  geom_point(na.rm = TRUE) +  scale_x_continuous(name = "body", labels = scales::math_format(10^.x)) +  scale_y_continuous(name = "brain", labels = scales::math_format(10^.x)) +  theme_bw() + theme(panel.grid.minor = element_blank())  b + annotation_logticks()  # Using a coordinate transform requires scaled = FALSE t <- ggplot(msleep, aes(bodywt, brainwt)) +  geom_point() +  coord_trans(x = "log10", y = "log10") +  theme_bw() t + annotation_logticks(scaled = FALSE)  # Change the length of the ticks a + annotation_logticks(  short = unit(.5,"mm"),  mid = unit(3,"mm"),  long = unit(4,"mm") ) # }