R绘制不同颜色的散点图

library(gcookbook) # For the data set

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3) + scale_shape_manual(values=c(1, 4))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(0, 6))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(13,12))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(15,16))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(17,23))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(10,11))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(13,14))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(24,25))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c(7,8))

ggplot(heightweight, aes(x=ageYear, y=heightIn, shape=sex)) +
  
  geom_point(size=3,colour='red') + scale_shape_manual(values=c('+','%'))

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

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