library(ggplot2)
# 示例數(shù)據(jù)
dat01 <- data.frame(
Mixture = c("AAAA", "BMBMNB", "CCCCC", "DGGJKGKJ"),
variable = rep(c("X", "Y"), each = 2),
value = c(10, 20, 15, 25)
)
# 示例顏色
cols <- c("X" = "blue", "Y" = "red")
# 繪制 ggplot 圖表
ggplot(data = dat01, aes(x = Mixture, y = value, fill = variable)) +
geom_bar(stat = "identity", position = "stack") +
scale_fill_manual(values = cols) +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 設(shè)置 x 軸字體傾斜
image.png
