在 R 條 plot 中更改顏色

Question

這是我的數據集的可重復性結構：

 structure(list(type_de_sejour = c("Hospitalisé", "Hospitalisé", 
 "Hospitalisé", "Hospitalisé", "Hospitalisé", "Hospitalisé"
 ), site = c("FRA", "FRA", "FRA", "FRA", "FRA", "FRA"), specialite = c("ANESTHESIE 
 REANIMATION", 
 "Autres", "CARDIO VASCULAIRE", "CHIRUGIE CARDIAQUE", "CHIRURGIE GENERALE ET VISCERALE", 
  "CHIRURGIE THORACIQUE et VASCULAIRE"), proportion = c(0.000844059928254906, 
  0, 0.357986917071112, 0.0880987550116058, 0.00105507491031863, 
  0.0742772736864317), annee = c("2019", "2019", "2019", "2019", 
  "2019", "2019")), row.names = c(NA, 6L), class = "data.frame")

這是我的 plot 的代碼。 它給了我一個帶有彩虹色的 plot，因此很難區分堆疊條形圖（顏色漸變）的不同部分。 如何更改顏色，使其既美觀又易於閱讀？

ggplot(NCN_hosp, aes(x = annee, y = proportion, fill = specialite)) +
   geom_bar(stat = "identity") + 
   facet_wrap(~site) +
   theme(plot.title = element_text(hjust = 0.5, vjust = 1, size = 8),
         axis.text.x = element_text(angle = 90, hjust = 0.5, size = 5),
         axis.text.y = element_text(size = 5), 
         legend.text = element_text(size = 5),
         legend.key.height = unit(0.1, "cm"), 
         panel.grid.major = element_blank(), 
         panel.grid.minor = element_blank())+
   scale_y_continuous(labels = scales::percent)

Answer 1

您正在使用（ggplot2）。 有了這個 package Colors 由這個變量定義，包含到 plot 代碼中。

     col=c("black", "red","blue","cyan")

例如，此代碼生成具有多個輸入和不同 Colors 的 plot。

plot(train_data["2019", 
                c("RV", "pred_HAR_RV","pred_EN_HAR_RV","pred_EN_HAR_RV_RIDGE")], 
     col=c("black", "red","blue","cyan"),
     lwd = c(1,1), 
     main = "Actual vs predicted RVs", 
     legend.loc = "topleft")

對於這類問題，您應該直接參考 package 的文檔。 最好的。

Answer 2

你可以使用這個： scale_fill_manual(values=c("#199999","#269F00","#36B4E9","#A6B4E1","#51B4E1","#F69F10"))或者這個： scale_fill_manual(values=c("red","green","blue","yellow","orange","gray20","gray40"))

也就是說，您可以使用十六進制代碼或名稱，如果您搜索也有包，但是您將使用的 colors 當然是您選擇的主題。 這個頁面可能會給你一些關於 colors 使用的想法

ggplot(NCN_hosp, aes(x = annee, y = proportion, fill = specialite)) +
  geom_bar(stat = "identity") + 
  facet_wrap(~site) +
  theme(plot.title = element_text(hjust = 0.5, vjust = 1, size = 8),
        axis.text.x = element_text(angle = 90, hjust = 0.5, size = 5),
        axis.text.y = element_text(size = 5), 
        legend.text = element_text(size = 5),
        legend.key.height = unit(0.1, "cm"), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())+
  scale_y_continuous(labels = scales::percent)+
  scale_fill_manual(values=c("#199999","#269F00","#36B4E9","#A6B4E1","#51B4E1","#F69F10"))+
  scale_fill_manual(values=c("red","green","blue","yellow","orange","gray20","gray40"))

Answer 3

當然，這取決於您想要什么，但您也可以使用標准 colors 調色板，例如scale_fill_brewer ：

library(ggplot2)
ggplot(NCN_hosp, aes(x = annee, y = proportion, fill = specialite)) +
  geom_bar(stat = "identity") + 
  scale_fill_brewer() +
  facet_wrap(~site) +
  theme(plot.title = element_text(hjust = 0.5, vjust = 1, size = 8),
        axis.text.x = element_text(angle = 90, hjust = 0.5, size = 5),
        axis.text.y = element_text(size = 5), 
        legend.text = element_text(size = 5),
        legend.key.height = unit(0.1, "cm"), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())+
  scale_y_continuous(labels = scales::percent)

請查看此站點以獲取一些不錯的選項來更改您的 colors 吧。

^{由代表 package (v2.0.1) 於 2022 年 8 月 10 日創建}