我想創建一個數字，其中我的一個因子水平（芽孢桿菌）用斜體表示。
我已經包含了我喜歡設定資料的方式以及我如何創建我的數字 - 我只需要將“Bacillus”斜體
IF_Eff_2 <- read_excel(("In-furrow x starter trial/2021 In-furrow x starter efficacy.xlsx"),
sheet = "2 yr metric")
IF_Eff_2$Fung <- factor(IF_Eff_2$Fung,
levels = c(1, 2, 3, 4),
labels = c("Fung1", "Fung2", "Fung3", "Bacillus"))
IF_Eff_2$Start <- factor(IF_Eff_2$Start,
levels = c(1, 2, 3),
labels = c("Fert1", "Fert2", "Fert3"))
IF_Eff_2$Rep <- factor(IF_Eff_2$Rep,
levels = c(1, 2, 3, 4))
IF_Eff_2$Year <- factor(IF_Eff_2$Year,
levels = c(2020, 2021),
labels = c(2020, 2021))
ggboxplot(IF_Eff_2, x = "Fung",
y = "RST",
fill = "Fung",
facet.by = "Year",
ylab = "Sucrose yield (g/kg)",
xlab = NULL)
theme_classic()
theme(legend.position = "none",
text=element_text(family="Calibri", size=30),
axis.text.x = element_text(angle = 45, vjust = 0.5),
axis.title.x = element_blank(),
plot.title = element_text(hjust = 0.5))
border()
geom_hline(yintercept = mean(IF_Eff_2$RST), linetype = 2)
theme(plot.background = element_rect(color="black",fill=NA,size=1.5))
stat_summary(fun=mean, geom="point", shape=8, size=5, color="black", fill="black")
這是我目前的數字——我只需要 Bacillus 斜體
uj5u.com熱心網友回復：
添加
scale_x_discrete(labels = c("Fung1", "Fung2", "Fung3", expression(italic("Bacillus"))))
在你的最后一行之后stat_summary(......)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/491421.html
下一篇：由于JDT依賴關系，Maven構建失敗-沒有可用于org.osgi.service:org.osgi.service.prefs:jar:[1.1.0,1.2.0)的版本