数据下载来源于：
https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/10_OneNumSevCatSubgroupsSevObs.csv
数据下载至本地使用
代码参考:ggplot2 Based Plots with Statistical Details • ggstatsplot (indrajeetpatil.github.io)
用到两个包一个ggststsplot,一个是ggside
大家一起学习，共同进步，有一起学习R的小伙伴可以加和好友互相学习

library(ggstatsplot)
install.packages("ggside")
library(ggside)
getwd()
y <- read.table("D:/biolearning/Rcourse/happy.txt", header=T, sep=",")#加载数据
view(y)
colnames(y)
ggscatterstats(
  data  = y,#读取数据
  x     = tip,
  y     = total_bill,
  xlab  = "tip",
  ylab  = "income",
  title = "the relationship betwwen tip and income"#自己随便命的名字
)

base_scatter.png

组合在一起的

?dplyr::filter
library(dplyr)#筛选数据的函数
head(y)
grouped_ggscatterstats(
  data             = dplyr::filter(y, sex %in% c("Female", "Male")),
  x                = tip,
  y                = total_bill,
  grouping.var     = sex,
  xlab             = "tip",
  ggtheme          = ggplot2::theme_grey(),
  ggplot.component = list(ggplot2::scale_x_continuous(breaks = seq(2, 9, 1), limits = (c(2, 9)))),
  plotgrid.args    = list(nrow = 1),
  annotation.args  = list(title = "the relationship betwwen tip and income")
)

grouped_scatterplot.png