程振兴 @czxa.top
截止今天,我已经在本博客上写了607.9k个字了!
本文是学习zonination/colors的笔记,是一个关于颜色偏好调查的可视化。
准备
绘图所需的数据集:
colors.csv
responses-curated.csv
首先绘制本调查使用的颜色:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41setwd("~/Desktop/颜色偏好")
library(ggplot2)
library(ggpomological)
library(reshape2)
library(scales)
library(lubridate)
library(readr)
theme_set(theme_pomological(base_size = 20, base_family = "MLingWaiMedium-SC") + theme(plot.title = element_text(hjust = 0.5)) + theme(plot.subtitle = element_text(hjust = 0.5)))
# 首先绘制本次调查使用的颜色图谱
colors <- read_csv("colors.csv")
colors$hex <- paste("#",
as.hexmode(colors$R),
as.hexmode(colors$G),
as.hexmode(colors$B),
sep = "")
# 中文化
colors$Family[which(colors$Family == "Reds")] = "红色"
colors$Family[which(colors$Family == "Oranges")] = "橘色"
colors$Family[which(colors$Family == "Yellows")] = "黄色"
colors$Family[which(colors$Family == "Greens")] = "绿色"
colors$Family[which(colors$Family == "Cyans")] = "青色"
colors$Family[which(colors$Family == "Blues")] = "蓝色"
colors$Family[which(colors$Family == "Violets")] = "紫罗兰"
colors$Family[which(colors$Family == "Magentas")] = "洋红"
colors$Family[which(colors$Family == "Blacks")] = "黑色"
colors$Family[which(colors$Family == "Greys")] = "灰色"
colors$Family[which(colors$Family == "Whites")] = "白色"
colors$Family <- factor(colors$Family,
c(
"红色", "橘色", "黄色", "绿色",
"青色", "蓝色", "紫罗兰", "洋红",
"黑色", "灰色", "白色"
))
ggplot(colors, aes(x = 1, y = Category)) +
geom_tile(aes(fill = Category), colour = "black") +
scale_fill_manual("", values = colors$hex) +
guides(fill = "none") +
labs(title = "颜色定义",
x = "", y = "") +
facet_grid(Family~., scales = "free_y", space = "free_y") +
theme(axis.text.x = element_blank())
颜色偏好的性别差异
1 | # 读入调查数据 |
颜色偏好的年龄差异
1 | # 按年龄分类 |
颜色偏好的职业性格差异
1 | # 按职业性格类型分类 |