🤩 ggstatsplot | 一个满足你日常统计需求的高颜值R包（四）

rm(list=ls())
library(tidyverse)
library(ggstatsplot)
library(ggsci)

dat <- mpg

df <- dplyr::filter(ggplot2::mpg, cyl %in% c("4", "6"))

## 生成足够多的颜色
paletter_vector <-
  paletteer::paletteer_d(
    palette = "palettetown::venusaur",
    n = nlevels(as.factor(df$manufacturer)),
    type = "discrete"
  )

## 开始画图
ggdotplotstats(
  data = df,
  x = cty,
  y = manufacturer,
  xlab = "city miles per gallon",
  ylab = "car manufacturer",
  test.value = 15.5,
  point.args = list(
    shape = 16,
    color = paletter_vector,
    size = 5
  ),
  title = "Distribution of mileage of cars",
  #ggtheme = ggplot2::theme_dark()
)

grouped_ggdotplotstats(
  ## arguments relevant for ggdotplotstats
  data = df,
  grouping.var = cyl, ## grouping variable
  x = cty,
  y = manufacturer,
  xlab = "city miles per gallon",
  ylab = "car manufacturer",
  type = "bayes", ## Bayesian test
  test.value = 15.5,
  ## arguments relevant for `combine_plots`
  annotation.args = list(title = "Fuel economy data"),
  plotgrid.args = list(nrow = 2)
)

ggscatterstats(
  data = dat, 
  x = displ, 
  y = hwy, 
  xlab = "displ", ## label for the x-axis
  ylab = "hwy", ## label for the y-axis
  label.var = manufacturer, ## variable to use for labeling data points
  label.expression = displ > 5 & hwy> 24, ## which points to label
  point.label.args = list(alpha = 0.7, size = 4, color = "grey50"),
  xfill = "#CC79A7", ## fill for marginals on the x-axis
  yfill = "#009E73", ## fill for marginals on the y-axis
  title = "aaa",
  caption = "Source"
)

grouped_ggscatterstats(
  ## arguments relevant for ggscatterstats
  data = df, 
  x = displ, 
  y = hwy, 
  grouping.var = cyl,
  xlab = "displ", ## label for the x-axis
  ylab = "hwy", ## label for the y-axis
  label.var = manufacturer, ## variable to use for labeling data points
  type = "r",
  label.expression = displ > 5 & hwy> 24, ## which points to label
  point.label.args = list(alpha = 0.7, size = 4, color = "grey50"),
  xfill = "#CC79A7", ## fill for marginals on the x-axis
  yfill = "#009E73", ## fill for marginals on the y-axis
  # ggtheme = ggthemes::theme_tufte(),
  ## arguments relevant for combine_plots
  annotation.args = list(
    title = "title",
    caption = "Source"
    ),
  plotgrid.args = list(nrow = 2, ncol = 1)
)