---
# System prepended metadata

title: R超好用選色套件_cols4all_修改ggplot2配色
tags: [R]

---

---
disqus: ahb0222
GA : G-VF9ZT413CG
---
# R超好用選色套件_cols4all_修改ggplot2配色
> [color=#40f1ef][name=LHB阿好伯, 2021/07/16][:earth_africa:](https://www.facebook.com/LHB0222/)
###### tags: `R`


[TOC]

# 安裝cols4all套件
```r=
# install.packages("devtools")
#install.packages("kableExtra")
remotes::install_github("mtennekes/cols4all")
library(cols4all)
```


執行`c4a_gui()`啟動GUI(Shiny APP）來查看和分析調色板

![](https://hackmd.io/_uploads/rJrhtZ4Zi.png)

## 選擇顏色
選擇調色板非常簡單只需要使用`c4a("調色板名稱","顏色數量")`指定調色板名稱與顏色數量

```r=
# 在"accent"調色板選擇 3 種顏色
c4a("accent",3)
```
:::success
[1] "#7FC97F" "#BEAED4" "#FDC086"
:::


# ggplot2使用範例
簡單繪製一個範例來演示
```r=
library(ggplot2)
p1 <- ggplot(iris,aes(x = Sepal.Length, y = Sepal.Width))+
  geom_point(aes(col = Species))+
  theme_bw()
p1
```
![](https://hackmd.io/_uploads/SJF2i-Ebi.png)


```r=+
p1 + scale_color_manual(values=c4a("accent",3))
```
![](https://hackmd.io/_uploads/ryWy2bV-i.png)

```r=+
p1 + scale_color_manual(values=c4a("green_orange",3))
```
![](https://hackmd.io/_uploads/Bky22-N-s.png)



>[參考資料](https://www.opensourceagenda.com/projects/cols4all?utm_source=com.facebook.orca&utm_medium=social&utm_oi=1054892840450195456&fbclid=IwAR3O2iiPhutg3OxZ4DZO1CdEMJlBh9-PgN-jkpsZARBDpdyZJM3_h60CWDA)

🌟全文可以至下方連結觀看或是補充


全文分享至

https://www.facebook.com/LHB0222/

https://www.instagram.com/ahb0222/

有疑問想討論的都歡迎於下方留言

喜歡的幫我分享給所有的朋友 \o/

有所錯誤歡迎指教

# [:page_with_curl: 全部文章列表](https://hackmd.io/@LHB-0222/AllWritings)



![](https://i.imgur.com/nHEcVmm.jpg)


