R语言ggplot2——散点图

BMI=read.table('/Users/zhangzhishuai/Downloads/33 lesson33 ggplot2散点图（一）/33_ggplot2/BMI.txt',sep = '\t', header = T,row.names = 1)
library(ggplot2)
# 散点图
ggplot(BMI,aes(x=height,y=weight))
ggplot(BMI,aes(x=height,y=weight)) + geom_point()
# 控制点大小
ggplot(BMI,aes(x=height,y=weight)) + geom_point(size=4)
# 控制点的形状
ggplot(BMI,aes(x=height,y=weight)) + geom_point(shape=15)
# 同时设置点的形状和大小
ggplot(BMI,aes(x=height,y=weight)) + geom_point(shape=15, size=4)
# 利用形状来标识分组
ggplot(BMI,aes(x=height,y=weight,shape=gender)) + geom_point(size=4)
ggplot(BMI,aes(x=height,y=weight,shape=gender)) + 
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) #控制形状

# 同时利用形状和颜色进行分组
ggplot(BMI,aes(x=height,y=weight,shape=gender,
               color = gender)) +  #同时设置形状的颜色
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) + #控制形状
  scale_color_manual(values = c('red','blue')) #控制颜色

ggplot(BMI,aes(x=height,y=weight,shape=gender,
               color = gender)) +  #同时设置形状的颜色
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) + #控制形状
  scale_color_brewer(palette = "Set1") #控制颜色

# 设置渐变填充色
ggplot(BMI,aes(x=height,y=weight,fill=age)) +
  geom_point(size=4,shape=21) +
  scale_fill_gradient(low='yellow',high = 'red') #设置渐变色

# 利用区段显示填充色
ggplot(BMI,aes(x=height,y=weight,fill=age)) +
  geom_point(size=4, shape=21) +
  scale_fill_gradient(low = 'yellow',
                      high = 'red',
                      breaks=seq(28,44,length.out=5),
                      guide = guide_legend()

BMI=read.table('/Users/zhangzhishuai/Downloads/33 lesson33 ggplot2散点图（一）/33_ggplot2/BMI.txt',sep = '\t', header = T,row.names = 1)
library(ggplot2)
# 散点图
ggplot(BMI,aes(x=height,y=weight))
ggplot(BMI,aes(x=height,y=weight)) + geom_point()
# 控制点大小
ggplot(BMI,aes(x=height,y=weight)) + geom_point(size=4)
# 控制点的形状
ggplot(BMI,aes(x=height,y=weight)) + geom_point(shape=15)
# 同时设置点的形状和大小
ggplot(BMI,aes(x=height,y=weight)) + geom_point(shape=15, size=4)
# 利用形状来标识分组
ggplot(BMI,aes(x=height,y=weight,shape=gender)) + geom_point(size=4)
ggplot(BMI,aes(x=height,y=weight,shape=gender)) + 
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) #控制形状

# 同时利用形状和颜色进行分组
ggplot(BMI,aes(x=height,y=weight,shape=gender,
               color = gender)) +  #同时设置形状的颜色
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) + #控制形状
  scale_color_manual(values = c('red','blue')) #控制颜色

ggplot(BMI,aes(x=height,y=weight,shape=gender,
               color = gender)) +  #同时设置形状的颜色
  geom_point(size=4) +
  scale_shape_manual(values = c(5,17)) + #控制形状
  scale_color_brewer(palette = "Set1") #控制颜色

# 设置渐变填充色
ggplot(BMI,aes(x=height,y=weight,fill=age)) +
  geom_point(size=4,shape=21) +
  scale_fill_gradient(low='yellow',high = 'red') #设置渐变色

# 利用区段显示填充色
ggplot(BMI,aes(x=height,y=weight,fill=age)) +
  geom_point(size=4, shape=21) +
  scale_fill_gradient(low = 'yellow',
                      high = 'red',
                      breaks=seq(28,44,length.out=5),
                      guide = guide_legend())

# 利用变量控制点大小
ggplot(BMI,aes(x=height,y=weight,size=age)) +
  geom_point()
# 利用变量设置点大小和颜色
ggplot(BMI,aes(x=height,y=weight,size=age,color=BMI)) +
  geom_point()

# 设置渐变色
ggplot(BMI,aes(x=height,y=weight,size=age,color=BMI)) +
  geom_point() +
  scale_color_gradient(low = 'yellow',high = 'red')

# 添加线性拟合直线
p = ggplot(BMI,aes(x=height,y=weight))
p + geom_point(
  colour = 'grey60',size=4
) + stat_smooth(method = lm,
                se=FALSE, # 取消置信区间
                colour='red', # 设置直线颜色
                size = 3 # 设置直线宽度
                               )
model <- lm(weight~height,BMI)
summary(model)
# 添加文字注释
p + geom_point(
  colour = 'grey60',
  size=4
) + stat_smooth(method = lm,
                se=FALSE, # 取消置信区间
                colour='red', # 设置直线颜色
                size = 3 # 设置直线宽度
) + annotate('text',
             label='r^2=0.8848\npvalue=0.006039', # 添加R方和P值
             x=162, #横坐标
             y=75 # 纵坐标
) + annotate('text',
             x=180,y=76,label='tom',colour='blue',cex=6
) + annotate('text', 
             x=165,y=59,label='cindy',colour='red',cex=5)

p + geom_point() +
  geom_text(vjust=-0.6, # 竖直方向调
            label=rownames(BMI) # 
            )

p + geom_point() +
  geom_text(label=round( # 保留两位小数
    BMI$BMI,2), # 显示数值
            vjust=-0.6)

示例输入数据：

name	height	weight	gender	BMI	age
tom	180	75	male	23.14814815	38
cindy	165	58	female	21.30394858	45
jimmy	175	72	male	23.51020408	43
sam	173	68	male	22.72043837	35
lucy	160	60	female	23.4375	32
lily	163	55	female	20.2020202	28