Skip to content

Instantly share code, notes, and snippets.

@josephlewis

josephlewis/gist:3d6f50863d7fbf14caafc984d25b4f94

Created August 1, 2018 17:22
Show Gist options
  • Save josephlewis/3d6f50863d7fbf14caafc984d25b4f94 to your computer and use it in GitHub Desktop.
Save josephlewis/3d6f50863d7fbf14caafc984d25b4f94 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
ggplot(data = dist_travelled[c(TRUE, FALSE),], aes(x = factor(1), y = distance, label = paste0(place, ", ", cumulative, "km"))) +
geom_line(colour = "#C70039", position = "stack", stat = "identity", size = 3) +
geom_point(colour = "#C70039", fill = "#DDDDDD", pch = 21, position = "stack", stat = "identity", size = 6, stroke = 3) +
geom_text_repel(position = position_stack(vjust = .5), colour = "#666666", family="PT Sans", force=1, point.padding=unit(1,'lines')) +
coord_flip()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment