ggstatsplot中的ggdotplotstats函数详解：数据探索与统计可视化-CSDN博客

本文链接：https://blog.csdn.net/gitblog_00259/article/details/148891756

ggstatsplot中的ggdotplotstats函数详解：数据探索与统计可视化

概述

ggstatsplot是一个基于ggplot2的扩展包，它集成了统计分析与可视化功能，能够帮助研究人员和数据科学家快速生成包含统计细节的图表。其中，ggdotplotstats函数是该包中一个强大的工具，专门用于创建带有统计信息的点图（dot plot）。

ggdotplotstats核心功能

ggdotplotstats主要用于数据探索和创建出版级点图，它特别适合处理带有标签的数值变量。与gghistostats函数类似，但针对的是不同类型的数据展示需求。

基本用法示例

我们以ggplot2包中的mpg数据集为例，展示如何分析不同汽车制造商的油耗分布：

# 加载必要库
library(ggstatsplot)
library(dplyr)
library(paletteer)

# 预处理数据
df <- filter(ggplot2::mpg, cyl %in% c("4", "6"))

# 创建颜色向量
paletter_vector <- paletteer_d(
  palette = "palettetown::venusaur",
  n = nlevels(as.factor(df$manufacturer)),
  type = "discrete"
)

# 绘制点图
ggdotplotstats(
  data = df,
  x = cty,  # 城市油耗
  y = manufacturer,  # 制造商
  xlab = "城市每加仑英里数",
  ylab = "汽车制造商",
  test.value = 15.5,  # 测试值
  point.args = list(
    shape = 16,
    color = paletter_vector,
    size = 5
  ),
  title = "汽车油耗分布",
  ggtheme = theme_dark()
)

这段代码会生成一个点图，其中：

每个点代表一个汽车制造商的平均城市油耗
统计测试会显示数据与15.5这个参考值的比较结果
使用自定义颜色和主题增强可视化效果

分组分析功能

当我们需要按不同组别分别进行分析时，可以使用grouped_ggdotplotstats函数：

# 分组分析不同气缸数的汽车
grouped_ggdotplotstats(
  data = df,
  grouping.var = cyl,  # 按气缸数分组
  x = cty,
  y = manufacturer,
  xlab = "城市每加仑英里数",
  ylab = "汽车制造商",
  type = "bayes",  # 使用贝叶斯方法
  test.value = 15.5,
  annotation.args = list(title = "燃油经济性数据"),
  plotgrid.args = list(nrow = 2)
)

这种方法会自动为每个分组创建单独的点图，并将它们组合在一个图形中展示。

高级定制：使用purrr实现更灵活的分组分析

虽然grouped_ggdotplotstats提供了便捷的分组分析功能，但在需要更灵活控制时（如为不同组设置不同的测试值或使用不同的统计方法），可以使用purrr包实现：

# 示例代码框架
library(purrr)

df %>%
  split(.$cyl) %>%  # 按气缸数分组
  map(~ ggdotplotstats(
    data = .x,
    x = cty,
    y = manufacturer,
    test.value = ifelse(unique(.x$cyl) == "4", 16, 15)  # 为不同组设置不同测试值
  )) %>%
  cowplot::plot_grid(plotlist = ., nrow = 2)

这种方法允许为每个分组完全自定义分析参数，提供了最大的灵活性。