Italic shizzzz
mjáunknown
plain_text
2 years ago
1.9 kB
2
Indexable
Never
#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)) ```