library(ggplot2)
library(ggpubr)
datone<-read.delim("clipboard")
datone
ggplot(datone,aes(x=A,y=B))+
geom_point(size=3,shape=21,fill="red",color="black")+
#shape改气泡形状（不同数字代表不同形状）、colour改空心形状外圈线的颜色、fill填充形状内颜色（改了颜色图例一同更改）
geom_smooth(method=lm,size=1.5,colour="skyblue",fill="#BC5D7D") +
#size改线的粗细、colour改线的颜色、fill改置信区间颜色
stat_cor(method = "pearson")+
labs(title = "散点与回归拟合图")+
theme(axis.title = element_text(size = 20),
axis.text = element_text(size = 14),
axis.line = element_line(size = 1),
axis.ticks.x = element_line(size = 1))+
theme_bw()+#去掉灰色背景
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank())#去掉网格线
ggsave("散点与回归拟合图.png",width = 7,height = 6)#保存图片
#axis.title改坐标轴标题字的大小
#axis.text改坐标轴标数字的大小
#axis.line改坐标轴线的粗细
#axis.ticks.x改X轴刻度线的粗细
