namelessjon/exponential_scales.R

## exponential_scales.R
# Exponential scales in ggplot with tidy labels

p <- ggplot(data, aes(...))


p <- p + scale_x_log10(
  breaks = 10^seq(0, 6, by = 2), # generate breaks every 2 powers of 10, starting at 1
  minor_breaks = 10^seq(0, 6),
  labels = parse(text = c("1", "100", "10^4", "10^6")) # this makes them pretty
)
	# Exponential scales in ggplot with tidy labels

	p <- ggplot(data, aes(...))


	p <- p + scale_x_log10(
	breaks = 10^seq(0, 6, by = 2), # generate breaks every 2 powers of 10, starting at 1
	minor_breaks = 10^seq(0, 6),
	labels = parse(text = c("1", "100", "10^4", "10^6")) # this makes them pretty
	)