Italic shizzzz

#ef þú ert m sama skjal og ég upprunalega, þá eru hér breytingar á heitum


```{r}

v_by_treatment <- v_by_treatment |> rename("Equisetum_sp" = Equisetum,
                                          "All vascular pl."  = Vascular_plants_subtotal,
                                          "Arabidopsis petraea" = melablom,
                                          "Bistorta vivipara" = kornsura,
                                          "Empetrum nigrum" = Empetrum,
                                          "Equisetum sp." = Equisetum,
                                          "Salix herbacea" = Salix,
                                          "Saxifraga opp." = vetrarblom,
                                          "Biocrust" = Crust, 
                                          "Poa sp." = Poa, 
                                          "Carex sp." = Carex,
                                          "Selaginella selaginoides" = Mosajafni,
                                          "Bare soil" = Bare_soil,
                                          "Unidentified vasc. pl" = Unidentified)

```



## og svo kóðinn - þar sem vantar að breyta tegundaheitum í italic. og svo í rauninni eins og Poa sp, þá á
## Poa bara að vera italic, en ekki sp ;) 
## En biocrust á t.d. að vera venjulegt osfrv. 


```{r fig1, fig.width = 10, fig.height= 10 }
v_by_treatment |>
  pivot_longer("All vascular pl.":"Unidentified vasc. pl", names_to = "Species", values_to="Proportion") |> 
  ggplot(aes(x=Treatment, y=Proportion, fill=Treatment)) +
  geom_boxplot() +
  scale_y_log10() +
  facet_wrap(vars(Species))             +
  scale_fill_manual(values=c("#0072B2", "#E69F00"))+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.background = element_blank(), axis.line = element_line(colour = "black"), legend.position = "none", text = element_text(size = 18)) 
```