josephlewis

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()

josephlewis

<?xml version="1.0" encoding="UTF-8"?><?xml-model href="http://www.stoa.org/epidoc/schema/latest/tei-epidoc.rng" schematypens="http://relaxng.org/ns/structure/1.0"?><TEI xmlns="http://www.tei-c.org/ns/1.0" xml:space="preserve" xml:lang="de" xml:base="ex-epidoctemplate.xml">
    <teiHeader>
        <fileDesc>
            <titleStmt>
                <title>Grabinschrift auf Stele</title>
            </titleStmt>  
            <publicationStmt>
                <authority>Epigraphische Datenbank Heidelberg</authority>
                <idno type="URI">http://edh-www.adw.uni-heidelberg.de/edh/inschrift/HD008323</idno>
                <idno type="TM">178459</idno><idno type="localID">HD008323</idno>