设为首页收藏本站
切换到宽版
爱科学»文库 › 科研文库 › 统计学 › 可视化配色方案直接抄！两套黑红系配色+两套蓝色系配色 ...
返回列表 发新帖
查看: 1281|回复: 0

可视化配色方案直接抄！两套黑红系配色+两套蓝色系配色！！

[复制链接]
kexue 未绑定微信实名认证

88

主题

26

回帖

58

日志

版主

积分
882
QQ
发表于 2024-6-1 11:59:56 | 显示全部楼层 |阅读模式 来自 中国
配色方案一

8827f9ac5eeccba33ff6fe59e45ea7ab.png

d83fb2dc23a7f387d60efc51a2bfebc3.png
作图数据跟代码：
  1. library(tidyverse)
  2. library(palmerpenguins)
  3. library(patchwork)


  6. pal = c("#000000", "#f5688a",  "#ffdfea")
  7. ## p1
  8. penguins %>%
  9.   ggplot() +
  10.   geom_density(aes(x=body_mass_g, fill=species),
  11.                alpha = 0.75) +
  12.   scale_x_continuous(limits = c(2000, 7000)) +
  13.   scale_fill_manual(values=pal, guide="none") +
  14.   theme(plot.margin = margin(10, 30, 10, 30))

  16. ## p2
  17. penguins %>%
  18.   ggplot() +
  19.   geom_point(aes(x=bill_length_mm, y=bill_depth_mm, fill=species),
  20.                size=2.5, shape=21, color = "black") +
  21.   scale_fill_manual(values=pal, guide="none") +
  22.   theme(plot.margin = margin(10, 30, 10, 30))

  24. ##p3
  25. penguins %>%
  26.   ggplot() +
  27.   geom_boxplot(aes(x=sex, y=bill_length_mm, fill=species)) +
  28.   scale_fill_manual(values=pal, guide="none") +
  29.   theme(plot.margin = margin(10, 30, 10, 30))

  31. ##p4
  32. penguins %>%
  33.   filter(!is.na(sex)) %>%
  34.   ggplot(aes(x=sex, y=bill_length_mm)) +
  35.   geom_bar(aes(fill=species),
  36.            stat = "summary", fun="mean",
  37.            color="black", width = 0.75, position = position_dodge()) +
  38.   # geom_jitter(size=2) +
  39.   scale_fill_manual(values=pal, guide="none") +
  40.   theme(plot.margin = margin(10, 30, 10, 30))

  42. ##p5
  43. data = read_csv("./data/误差棒图.csv")
  44. data %>%
  45.   mutate(upper = `Estimation coefficients` + SEM,
  46.          lower = `Estimation coefficients` - SEM) -> df


  49. ggplot(data = df) +
  50.   geom_errorbar(aes(x=Month, ymin=lower, ymax=upper),
  51.                 width = 0.25) +
  52.   geom_line(aes(x=Month, y=`Estimation coefficients`, color=group),
  53.             linewidth=1.75) +
  54.   geom_point(aes(x=Month, y=`Estimation coefficients`, fill=group),
  55.              shape=21, size=4.5) +
  56.   scale_fill_manual(values=pal, guide="none") +
  57.   scale_color_manual(values=pal, guide="none") +
  58.   theme(plot.margin = margin(10, 30, 10, 30))

  60. ##p6  
  61. penguins %>%
  62.   ggplot() +
  63.   geom_histogram(aes(x=body_mass_g, fill=species),
  64.                alpha = 0.75, color="black") +
  65.   scale_x_continuous(limits = c(2000, 7000)) +
  66.   scale_fill_manual(values=pal, guide="none") +
  67.   theme(plot.margin = margin(10, 30, 10, 30))
复制代码

2.配色方案二

0935b639c275fb1fe49bd9077e7d9ecd.png

fb1e9d79e2d25a4ba9cece50ca26c692.png
作图数据跟代码：

  2. library(tidyverse)
  3. library(palmerpenguins)
  4. library(patchwork)


  7. pal = c("#4464b9", "#23afe2",  "#8db8fd")
  8. ## p1
  9. penguins %>%
  10.   ggplot() +
  11.   geom_density(aes(x=body_mass_g, fill=species),
  12.                alpha = 0.75) +
  13.   scale_x_continuous(limits = c(2000, 7000)) +
  14.   scale_fill_manual(values=pal, guide="none") +
  15.   theme(plot.margin = margin(10, 30, 10, 30))

  17. ## p2
  18. penguins %>%
  19.   ggplot() +
  20.   geom_point(aes(x=bill_length_mm, y=bill_depth_mm, fill=species),
  21.                size=2.5, shape=21, color = "black") +
  22.   scale_fill_manual(values=pal, guide="none") +
  23.   theme(plot.margin = margin(10, 30, 10, 30))

  25. ##p3
  26. penguins %>%
  27.   ggplot() +
  28.   geom_boxplot(aes(x=sex, y=bill_length_mm, fill=species)) +
  29.   scale_fill_manual(values=pal, guide="none") +
  30.   theme(plot.margin = margin(10, 30, 10, 30))

  32. ##p4
  33. penguins %>%
  34.   filter(!is.na(sex)) %>%
  35.   ggplot(aes(x=sex, y=bill_length_mm)) +
  36.   geom_bar(aes(fill=species),
  37.            stat = "summary", fun="mean",
  38.            color="black", width = 0.75, position = position_dodge()) +
  39.   # geom_jitter(size=2) +
  40.   scale_fill_manual(values=pal, guide="none") +
  41.   theme(plot.margin = margin(10, 30, 10, 30))

  43. ##p5
  44. data = read_csv("./data/误差棒图.csv")
  45. data %>%
  46.   mutate(upper = `Estimation coefficients` + SEM,
  47.          lower = `Estimation coefficients` - SEM) -> df


  50. ggplot(data = df) +
  51.   geom_errorbar(aes(x=Month, ymin=lower, ymax=upper),
  52.                 width = 0.25) +
  53.   geom_line(aes(x=Month, y=`Estimation coefficients`, color=group),
  54.             linewidth=1.75) +
  55.   geom_point(aes(x=Month, y=`Estimation coefficients`, fill=group),
  56.              shape=21, size=4.5) +
  57.   scale_fill_manual(values=pal, guide="none") +
  58.   scale_color_manual(values=pal, guide="none") +
  59.   theme(plot.margin = margin(10, 30, 10, 30))

  61. ##p6  
  62. penguins %>%
  63.   ggplot() +
  64.   geom_histogram(aes(x=body_mass_g, fill=species),
  65.                alpha = 0.75, color="black") +
  66.   scale_x_continuous(limits = c(2000, 7000)) +
  67.   scale_fill_manual(values=pal, guide="none") +
  68.   theme(plot.margin = margin(10, 30, 10, 30))
复制代码

3.配色方案三

217625ab481cb0873cd875a52d5f6924.png


a024f03753f1f8454fba35a68994c886.png
作图数据跟代码：
  1. library(tidyverse)
  2. library(palmerpenguins)
  3. library(patchwork)


  6. pal = c("#3c0316", "#cd0254",  "#ff3184")
  7. ## p1
  8. penguins %>%
  9.   ggplot() +
  10.   geom_density(aes(x=body_mass_g, fill=species),
  11.                alpha = 0.75) +
  12.   scale_x_continuous(limits = c(2000, 7000)) +
  13.   scale_fill_manual(values=pal, guide="none") +
  14.   theme(plot.margin = margin(10, 30, 10, 30))

  16. ## p2
  17. penguins %>%
  18.   ggplot() +
  19.   geom_point(aes(x=bill_length_mm, y=bill_depth_mm, fill=species),
  20.                size=2.5, shape=21, color = "black") +
  21.   scale_fill_manual(values=pal, guide="none") +
  22.   theme(plot.margin = margin(10, 30, 10, 30))

  24. ##p3
  25. penguins %>%
  26.   ggplot() +
  27.   geom_boxplot(aes(x=sex, y=bill_length_mm, fill=species)) +
  28.   scale_fill_manual(values=pal, guide="none") +
  29.   theme(plot.margin = margin(10, 30, 10, 30))

  31. ##p4
  32. penguins %>%
  33.   filter(!is.na(sex)) %>%
  34.   ggplot(aes(x=sex, y=bill_length_mm)) +
  35.   geom_bar(aes(fill=species),
  36.            stat = "summary", fun="mean",
  37.            color="black", width = 0.75, position = position_dodge()) +
  38.   # geom_jitter(size=2) +
  39.   scale_fill_manual(values=pal, guide="none") +
  40.   theme(plot.margin = margin(10, 30, 10, 30))

  42. ##p5
  43. data = read_csv("./data/误差棒图.csv")
  44. data %>%
  45.   mutate(upper = `Estimation coefficients` + SEM,
  46.          lower = `Estimation coefficients` - SEM) -> df


  49. ggplot(data = df) +
  50.   geom_errorbar(aes(x=Month, ymin=lower, ymax=upper),
  51.                 width = 0.25) +
  52.   geom_line(aes(x=Month, y=`Estimation coefficients`, color=group),
  53.             linewidth=1.75) +
  54.   geom_point(aes(x=Month, y=`Estimation coefficients`, fill=group),
  55.              shape=21, size=4.5) +
  56.   scale_fill_manual(values=pal, guide="none") +
  57.   scale_color_manual(values=pal, guide="none") +
  58.   theme(plot.margin = margin(10, 30, 10, 30))

  60. ##p6  
  61. penguins %>%
  62.   ggplot() +
  63.   geom_histogram(aes(x=body_mass_g, fill=species),
  64.                alpha = 0.75, color="black") +
  65.   scale_x_continuous(limits = c(2000, 7000)) +
  66.   scale_fill_manual(values=pal, guide="none") +
  67.   theme(plot.margin = margin(10, 30, 10, 30))
复制代码


4.配色方案四

d8df6d1ccde3734428244d202742081d.png

ece954691f3e3bf5f2f8e8bff51fa3ff.png
作图数据跟代码：
  1. library(tidyverse)
  2. library(palmerpenguins)
  3. library(patchwork)


  6. pal = c("#015e8a", "#0290b4",  "#5fcad0")
  7. ## p1
  8. penguins %>%
  9.   ggplot() +
  10.   geom_density(aes(x=body_mass_g, fill=species),
  11.                alpha = 0.75) +
  12.   scale_x_continuous(limits = c(2000, 7000)) +
  13.   scale_fill_manual(values=pal, guide="none") +
  14.   theme(plot.margin = margin(10, 30, 10, 30))

  16. ## p2
  17. penguins %>%
  18.   ggplot() +
  19.   geom_point(aes(x=bill_length_mm, y=bill_depth_mm, fill=species),
  20.                size=2.5, shape=21, color = "black") +
  21.   scale_fill_manual(values=pal, guide="none") +
  22.   theme(plot.margin = margin(10, 30, 10, 30))

  24. ##p3
  25. penguins %>%
  26.   ggplot() +
  27.   geom_boxplot(aes(x=sex, y=bill_length_mm, fill=species)) +
  28.   scale_fill_manual(values=pal, guide="none") +
  29.   theme(plot.margin = margin(10, 30, 10, 30))

  31. ##p4
  32. penguins %>%
  33.   filter(!is.na(sex)) %>%
  34.   ggplot(aes(x=sex, y=bill_length_mm)) +
  35.   geom_bar(aes(fill=species),
  36.            stat = "summary", fun="mean",
  37.            color="black", width = 0.75, position = position_dodge()) +
  38.   # geom_jitter(size=2) +
  39.   scale_fill_manual(values=pal, guide="none") +
  40.   theme(plot.margin = margin(10, 30, 10, 30))

  42. ##p5
  43. data = read_csv("./data/误差棒图.csv")
  44. data %>%
  45.   mutate(upper = `Estimation coefficients` + SEM,
  46.          lower = `Estimation coefficients` - SEM) -> df


  49. ggplot(data = df) +
  50.   geom_errorbar(aes(x=Month, ymin=lower, ymax=upper),
  51.                 width = 0.25) +
  52.   geom_line(aes(x=Month, y=`Estimation coefficients`, color=group),
  53.             linewidth=1.75) +
  54.   geom_point(aes(x=Month, y=`Estimation coefficients`, fill=group),
  55.              shape=21, size=4.5) +
  56.   scale_fill_manual(values=pal, guide="none") +
  57.   scale_color_manual(values=pal, guide="none") +
  58.   theme(plot.margin = margin(10, 30, 10, 30))

  60. ##p6  
  61. penguins %>%
  62.   ggplot() +
  63.   geom_histogram(aes(x=body_mass_g, fill=species),
  64.                alpha = 0.75, color="black") +
  65.   scale_x_continuous(limits = c(2000, 7000)) +
  66.   scale_fill_manual(values=pal, guide="none") +
  67.   theme(plot.margin = margin(10, 30, 10, 30))
复制代码
来源：置身数内  数新社
r语言, 统计作图

相关帖子
回复 关闭延时

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册  

本版积分规则

快速回复 返回顶部 返回列表