我想更改我的情節標題的字體型別以及資料標簽，以使我的情節不那么“沉悶”。我已經嘗試過font_import()（family="Comic Sans MS"在其他失敗的努力中），但似乎沒有任何改變字體型別。我研究了其他類似的問題回答，但還沒有弄清楚我哪里出錯了。下面是我的代碼：
library(ggplot2)
library(tidyverse)
library(dplyr)
library(extrafont)
font_import()
mydf <- data.frame( Category = c("Metric 1",
"Metric 2"),
Dec_21=c(31455, 1465),
Jan_22=c(44480, 1827),
Feb_22=c(58929, 2174))
mydf %>%
gather(Month, Total, -Category) %>%
mutate(Month = reorder(Month, row_number())) %>%
mutate(Category = reorder(Category, row_number())) %>%
ggplot(aes(Month, Total, fill = Category, group = Category))
geom_text(aes(label=Total), position=position_dodge(width=0.9), vjust=-0.25)
scale_fill_manual(values = c("dark green", "red"))
geom_bar(stat = "identity", position = "dodge")
labs(x = "", y = "", title = "Title of Plot", subtitle = "Subtitle of Plot")
theme_bw()
theme(legend.position = "bottom",
legend.title = element_blank(),
legend.key.size = unit(0.5, 'cm'),
legend.text = element_text(size=7),
panel.grid.major.x = element_blank(),
panel.border = element_blank(),
plot.title = element_text(hjust = 0),
plot.subtitle = element_text(size=8, hjust=0, face="italic", color="black"),
axis.text.x = element_text(size = 10, face = "bold", color="black"))
uj5u.com熱心網友回復：
您可以在theme命令中運行，text = element_text(family = "Comic Sans MS")以更改字體。您可以運行以下代碼：
mydf %>%
gather(Month, Total, -Category) %>%
mutate(Month = reorder(Month, row_number())) %>%
mutate(Category = reorder(Category, row_number())) %>%
ggplot(aes(Month, Total, fill = Category, group = Category))
geom_text(aes(label=Total), position=position_dodge(width=0.9), vjust=-0.25)
scale_fill_manual(values = c("dark green", "red"))
geom_bar(stat = "identity", position = "dodge")
labs(x = "", y = "", title = "Title of Plot", subtitle = "Subtitle of Plot")
theme_bw()
theme(legend.position = "bottom",
legend.title = element_blank(),
legend.key.size = unit(0.5, 'cm'),
legend.text = element_text(size=7),
panel.grid.major.x = element_blank(),
panel.border = element_blank(),
plot.title = element_text(hjust = 0),
plot.subtitle = element_text(size=8, hjust=0, face="italic", color="black"),
axis.text.x = element_text(size = 10, face = "bold", color="black"))
theme(text = element_text(family = "Comic Sans MS"))
輸出：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/450754.html