title: How can I add a black outline to my chart?
body: <p>I am trying to make a chart that is very similar to the one here I can't seem to figure out how to outline the bars and make sure the fill is in the right order.</p>
  <p><img src="https://i.stack.imgur.com/ublUk.png" alt="enter image description here" /></p>
  <p>This is the current code ive compiled so far and make a few comments on what I've been trying to fix</p>
  <pre><code> #what is a factor in R? It is a categorical variable
  library(ggplot2)
  df &lt;- read.csv(&quot;nyplots Rstudio.csv&quot;, stringsAsFactors = FALSE)
  
  # the fill is not in the right order
  # the line colors not good
  # no y axis
  # facets per Country
  #bonus: TOOLTIPS
  ggplot( df, aes(x = (Year), 
                  y = Percentage, 
                  col = Party,
                  fill = (Ideology) )  ) +
    geom_col (position = &quot;fill&quot;) +
    scale_fill_manual(values = c(&quot;red&quot;, &quot;white&quot;, &quot;grey&quot;, &quot;light grey&quot;)) +
    theme_classic() 
    theme(axis.title.y=element_blank(),
          axis.text.y=element_blank(),
          axis.ticks.y=element_blank()) 
  </code></pre>
  <p><code>dput</code> of data</p>
  <pre><code>structure(list(Country = c(&quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, 
  &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Hungary&quot;, 
  &quot;Hungary&quot;, &quot;Hungary&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, 
  &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;, &quot;Italy&quot;
  ), Year = c(1998L, 1998L, 1998L, 1998L, 1998L, 1998L, 1998L, 
  2002L, 2002L, 2002L, 2002L, 2002L, 1996L, 1996L, 1996L, 1996L, 
  1996L, 1996L, 1996L, 2000L, 2000L, 2000L, 2000L, 2000L), Party = c(&quot;FIDESZ&quot;, 
  &quot;MIEP&quot;, &quot;FKgP&quot;, &quot;Other&quot;, &quot;SZDSZ&quot;, &quot;Munklaspart&quot;, &quot;Socialist Party &quot;, 
  &quot;FIDESZ&quot;, &quot;MIEP&quot;, &quot;Other&quot;, &quot;SZDSZ&quot;, &quot;Socialist Party &quot;, &quot;FIDESZ&quot;, 
  &quot;MIEP&quot;, &quot;FKgP&quot;, &quot;Other&quot;, &quot;SZDSZ&quot;, &quot;Munklaspart&quot;, &quot;Socialist Party &quot;, 
  &quot;FIDESZ&quot;, &quot;MIEP&quot;, &quot;Other&quot;, &quot;SZDSZ&quot;, &quot;Socialist Party &quot;), Percentage = c(28.2, 
  5.6, 13.8, 8.3, 7.9, 4.1, 32.3, 41.1, 4.4, 6.9, 5.6, 42.1, 28.2, 
  5.6, 13.8, 8.3, 7.9, 4.1, 32.3, 41.1, 4.4, 6.9, 5.6, 42.1), Ideology = c(&quot;far-right&quot;, 
  &quot;far-right&quot;, &quot;far-right&quot;, &quot;other&quot;, &quot;center&quot;, &quot;center&quot;, &quot;center&quot;, 
  &quot;far-right&quot;, &quot;far-right&quot;, &quot;other&quot;, &quot;center&quot;, &quot;center&quot;, &quot;far-right&quot;, 
  &quot;far-right&quot;, &quot;far-right&quot;, &quot;other&quot;, &quot;center&quot;, &quot;center&quot;, &quot;center&quot;, 
  &quot;far-right&quot;, &quot;far-right&quot;, &quot;other&quot;, &quot;center&quot;, &quot;center&quot;)), class = &quot;data.frame&quot;, row.names = c(NA, 
  -24L))
  </code></pre>