R语言将连续变量映射到颜色或尺寸上二

# List the four columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Set1")
1
2
3
4
5
6
7
8

# List the four columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Set2")
1
2
3
4
5
6
7
8

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Set3")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Pastel2")
1
2
3
4
5
6
7

# List the four columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Pastel1")
1
2
3
4
5
6
7
8

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Paired")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Accent")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="Spectral")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="PuOr")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="YlOrRd")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="YlOrBr")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="YlGnBu")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="YlGn")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="RdPu")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="PuRd")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="RdYlGn")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="RdYlBu")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="RdGy")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="RdBu")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="PuOr")
1
2
3
4
5
6
7

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="PRGn")
1
2
3
4
5
6
7

# List the four columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="PiYG")
1
2
3
4
5
6
7
8

ggplot(heightweight, aes(x=ageYear, y=heightIn, size=weightLb, colour=sex)) +
  
  geom_point(alpha=.5) +
  
  scale_size_area() + # Make area proportional to numeric value
  
  scale_colour_brewer(palette="BrBG")
1
2
3
4
5
6
7

参考文献：Practical Receipes for Visualizing Data----R Graphics Cookbook —Winston Chang O’REILLY
搜狐博客：R语言学习ggplot2之颜色设置，你学会了吗？

开发环境：RStudio和微信截屏工具