title: geom_dumbell spacing, legends in different places, and multiple aesthetics (timelines)
body: <p>I saw <a href="https://juanftellez.com/post/publishing-timeline/" rel="nofollow noreferrer">this interesting way of creating a publication timeline</a> using <code>geom_dumbell</code>, so I created my own by first loading the libraries:</p>
  <pre><code>library(tidyverse)
  library(ggalt)
  library(ggrepel)
  </code></pre>
  <p>Entering in some data:</p>
  <pre><code># create data frame
  df &lt;- data.frame(
    paper = c(&quot;Paper 1&quot;, &quot;Paper 1&quot;, &quot;Paper 2&quot;, &quot;Paper 2&quot;, &quot;Paper 3&quot;, &quot;Paper 3&quot;, &quot;Paper 3&quot;, &quot;Paper 3&quot;), 
    round = c(&quot;first&quot;,&quot;revision&quot;,&quot;first&quot;,&quot;revision&quot;,&quot;first&quot;,&quot;first&quot;,&quot;first&quot;,&quot;first&quot;),
    submission_date = c(&quot;2019-05-23&quot;,&quot;2020-12-11&quot;, &quot;2020-08-12&quot;,&quot;2020-10-28&quot;,&quot;2020-12-10&quot;,&quot;2020-12-11&quot;,&quot;2021-01-20&quot;,&quot;2021-01-22&quot;),
    journal_type = c(&quot;physics&quot;, &quot;physics&quot;,&quot;physics&quot;,&quot;physics&quot;,&quot;chemistry&quot;,&quot;chemistry&quot;,&quot;chemistry&quot;,&quot;chemistry&quot;),
    journal = c(&quot;journal 1&quot;, &quot;journal 1&quot;, &quot;journal 2&quot;, &quot;journal 2&quot;, &quot;journal 3&quot;, &quot;journal 4&quot;, &quot;journal 5&quot;, &quot;journal 6&quot;),
    status = c(&quot;Revise and Resubmit&quot;, &quot;Waiting for Decision&quot;, &quot;Revise and Resubmit&quot;, &quot;Accepted&quot;, &quot;Desk Reject&quot;,&quot;Desk Reject&quot;, &quot;Desk Reject&quot;,&quot;Waiting for Decision&quot;),
    decision_date = c(&quot;2019-09-29&quot;, &quot;2021-01-24&quot;, &quot;2020-08-27&quot;, &quot;2020-10-29&quot;, &quot;2020-12-10&quot;,&quot;2021-01-05&quot;,&quot;2021-01-22&quot;,&quot;2021-01-24&quot;),
    step_complete = c(&quot;yes&quot;,&quot;no&quot;,&quot;yes&quot;,&quot;yes&quot;,&quot;yes&quot;,&quot;yes&quot;,&quot;yes&quot;, &quot;no&quot;),
    duration_days = c(129,44,15,1,0,25,2,2))
  
  # convert variables to dates
  df$decision_date = as.Date(df$decision_date)
  df$submission_date = as.Date(df$submission_date)
  </code></pre>
  <p>and, finally, creating my own basic timeline using this code:</p>
  <pre><code>ggplot(df, aes(x = submission_date, xend = decision_date, 
                      y = paper, label = duration_days, 
                      color = status)) + 
    geom_dumbbell(size = 1, size_x = 1) + 
    scale_color_manual(values=c(&quot;green&quot;, &quot;red&quot;, &quot;darkolivegreen4&quot;, &quot;turquoise1&quot;)) +
    labs(x=NULL, color = 'Status:',
         y=NULL, 
         title=&quot;Timeline of Journal Submissions&quot;, 
         subtitle=&quot;Start date, decision date, and wait time (in days) for my papers.&quot;) +
    #theme_ipsum_tw() + 
    ggrepel::geom_label_repel(nudge_y = -.25, show.legend = FALSE) + 
    theme(legend.position = 'top')
  </code></pre>
  <p><a href="https://i.stack.imgur.com/d38OA.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/d38OA.png" alt="What I have thus far" /></a></p>
  <p>As you can see from the above image, I can't see the x-axis. Additionally, I'd like to put another aesthetic and legend on the right side for the journal, perhaps putting a different shape on each line. Any other bells and whistles using the above data would be fun, too. Thanks!</p>