namelessjon · February 19, 2020 12:23
diff --git a/exponential_scales.R b/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
	)