R语言使用形状或颜色按变量对数据点进行分组

library(gcookbook) # For the data set
# List the two columns we'll use

heightweight[, c("ageYear", "heightIn")]
ggplot(heightweight, aes(x=ageYear, y=heightIn)) + geom_point(color="purple")

heightweight[, c("ageYear", "heightIn")]
ggplot(heightweight, aes(x=ageYear, y=heightIn)) + geom_point(size=3,shape=21,color="purple")

heightweight[, c("sex", "ageYear", "heightIn")]

ggplot(heightweight, aes(x=ageYear, y=heightIn, colour=sex)) + geom_point(size=3)+geom_smooth(method = 'lm',formula ='y ~ x')

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex,colour = "smooth")) + geom_point(size=3)+geom_smooth(method = 'lm',formula ='y ~ x')

heightweight[, c("sex", "ageYear", "heightIn")]

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex,fill = "Cyan")) + 
  geom_point(size=3,color = "violet")+geom_smooth(method = 'lm',formula ='y ~ x')

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex,fill = "Cyan")) + 
  geom_point(size=3,color = "purple")+geom_smooth(method = 'lm',formula ='y ~ x')
 

# List the two columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Set2")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Set2")

# List the two columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Set3")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Pastel2")

# List the two columns we'll use
ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Pastel1")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Paired")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Dark2")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Accent")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Spectral")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="Oranges")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="RdYlBu")

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex, colour=sex)) +
  
  geom_point(size=2) +geom_smooth(method = 'lm',formula ='y ~ x')+
  
  scale_shape_manual(values=c(1,2)) +
  
  scale_colour_brewer(palette="RdGy")

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

                 搜狐博客：R语言学习ggplot2之颜色设置，你学会了吗？ 

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