R语言一个变量映射到形状，另一个映射到填充

library(gcookbook) # For the data set

# Make a copy of the data

hw <- heightweight

# Categorize into <100 and >=100 groups

hw$weightGroup <- cut(hw$weightLb, breaks=c(-Inf, 100, Inf),
                      
                      labels=c("< 100", ">= 100"))

# Use shapes with fill and color, and use colors that are empty (NA) and 
# filled

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("cyan", "black"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("blueviolet", "cornflowerblue"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("chocolate", "blueviolet"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

hw$weightGroup <- cut(hw$weightLb, breaks=c(-Inf, 100, Inf),
                      
                      labels=c("< 100", ">= 100"))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("aquamarine", "bisque"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("blueviolet", "cadetblue"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

hw$weightGroup <- cut(hw$weightLb, breaks=c(-Inf, 100, Inf),
                      
                      labels=c("< 100", ">= 100"))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("beige", "chartreuse"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

古董白和珊瑚色

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("antiquewhite", "coral"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

hw$weightGroup <- cut(hw$weightLb, breaks=c(-Inf, 100, Inf),
                      
                      labels=c("< 100", ">= 100"))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("azure", "darkcyan"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

hw$weightGroup <- cut(hw$weightLb, breaks=c(-Inf, 100, Inf),
                      
                      labels=c("< 100", ">= 100"))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("green", "darksalmon"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

ggplot(hw, aes(x=ageYear, y=heightIn, shape=sex, fill=weightGroup)) +
  
  geom_point(size=2.5) +
  
  scale_shape_manual(values=c(21, 24)) +
  
  scale_fill_manual(values=c("darkorange", "darkorchid"),
                    
                    guide=guide_legend(override.aes=list(shape=21)))

参考文献：Practical Receipes for Visualizing Data----R Graphics Cookbook ---Winston Chang O'REILLY

                 百度文库---颜色大全：含中英文对照及色值

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