R统计绘图: 拟合区间统计图表绘制

今天这篇推文小编写一些基础的内容：如何绘制在散点图上显示其线性模型线性模型的拟合结果及其置信区间。这里小编使用R和Python分别绘制，主要内容如下：

• R-ggplot2::geom_smooth()函数绘制

• Python-seaborn::lmplot()函数绘制

R-ggplot2::geom_smooth()函数绘制

小编这里将结合R-ggpubr包进行必要图表元素的的添加，首先，我们使用ggplot2进行基本的绘制，如下：

「样例一」：单一类别

library(tidyverse)
library(ggtext)
library(hrbrthemes)
library(wesanderson)
library(LaCroixColoR)
library(RColorBrewer)
library(ggsci)
 # 读取数据
library(readxl)
test_df<-read_excel("test_data.xlsx")
# 可视化绘制
 ggplot(data = test_df,aes(x = total_bill,y = tip)) +
  geom_point(shape=21,fill="#0073C2",colour="black",size=3,stroke=.5) +
  geom_smooth(fill="#868686",colour="#CD534C") +
  labs(
    title = "Example of <span style='color:#D20F26'>ggplot2::geom_smooth function&