William Morris的方案按照世界名画的配色进行选取，特别适合在sci文章中进行展示。
安装
#devtools::install_github("cshoggard/morris")
所有的颜色都用magick和imager包进行提取，下面是William Morris最著名的6个方案：
Strawberry Thief (1883)
scales::show_col(morris:::strawberry_palette)
image.png
Trellis(1864)
Trellis
scales::show_col(morris:::trellis_palette)
Holland Park (1883)
Holland Park
scales::show_col(morris:::holland_palette)
Peacock and Dragons (1878)
Peacock and Dragons
scales::show_col(morris:::peacock_palette)
Embroidery with Flowers and Leaves (1885-1895)
Embroidery
scales::show_col(morris:::flowers_palette)
Acanthus(1875)
Acanthus
scales::show_col(morris:::acanthus_palette)
image.png
例子
示例数据集中，iris在R中应用较多（correlation,regression,classification），titanic在Python中应用更为广泛。下面用另一个数据集penguins:
penguins和penguins_raw都包含在palmerpenguins包。是由Dr. Kristen Gorman收集的 the Palmer Station, Antarctica LTER企鹅数据信息。
#library(extrafont)
#loadfonts(device = "win") #应用新的字体
library(morris)
p_load(palmerpenguins)
glimpse(penguins)
## Rows: 344
## Columns: 8
## $ species <fct> Adelie, Adelie, Adelie, Adelie, Adelie, Adelie, A...
## $ island <fct> Torgersen, Torgersen, Torgersen, Torgersen, Torge...
## $ bill_length_mm <dbl> 39.1, 39.5, 40.3, NA, 36.7, 39.3, 38.9, 39.2, 34....
## $ bill_depth_mm <dbl> 18.7, 17.4, 18.0, NA, 19.3, 20.6, 17.8, 19.6, 18....
## $ flipper_length_mm <int> 181, 186, 195, NA, 193, 190, 181, 195, 193, 190, ...
## $ body_mass_g <int> 3750, 3800, 3250, NA, 3450, 3650, 3625, 4675, 347...
## $ sex <fct> male, female, female, NA, female, male, female, m...
## $ year <int> 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2...
主要包含8列企鹅的信息：
种类（species）
所在岛屿（island）
喙的长度和厚度（bill_length,bill_depth）
翅膀的长度（flipper_length）
体重（mass）
性别（sex）
纳入观察的年份（year）
image.png
企鹅特征
penguins %>%
ggplot(aes(flipper_length_mm,body_mass_g,shape=species,colour=species))+
geom_point(size=3)+
scale_color_flowers()+
labs(title = "Penguin Mass vs. Flipper Length",
x="Flipper Length (mm)",
y="Body Mass (g)",
shape="Species",
colour="Species")+
theme(plot.title = element_text(size = 18,hjust = 0.5,margin = margin(0,0,20,0)))
image.png
参考内容
https://github.com/CSHoggard/morris
Gorman KB, Williams TD, Fraser WR (2014). Ecological sexual dimorphism and environmental variability within a community of Antarctic penguins (genus Pygoscelis). PLoS ONE 9(3):e90081. https://doi.org/10.1371/journal.pone.0090081
