Tạo các hình học tùy chỉnh để tính toán số liệu thống kê tóm tắt và hiển thị chúng *bên ngoài* vùng vẽ

In lại 作者：行者123 更新时间：2023-12-03 14:50:22 27 4

我是R包的创建者EnvStats .

有一个我经常使用的函数，叫做 stripChart .我刚开始学习ggplot2 ，并在过去几天里仔细研究了 Hadley 的书、Winston 的书、StackOverflow 和其他资源，试图创建一个 geom这近似于 stripChart做。我无法弄清楚如何在 geom 中，计算汇总统计量和测试结果，然后将它们放置在 x 轴刻度线下方以及图的顶部(绘图区域外)。这是一个使用内置数据集 mtcars 的简单示例:

library(EnvStats)
stripChart(mpg ~ cyl, data = mtcars, col = 1:3, 
  xlab = "Number of Cylinders", ylab = "Miles per Gallon", p.value = TRUE)

这是一个 geom 的早期草稿，用于尝试重现 stripChart 的大部分功能:

geom_stripchart <- 
function(..., x.nudge = 0.3, 
  jitter.params = list(width = 0.3, height = 0), 
  mean.params = list(size = 2, position = position_nudge(x = x.nudge)), 
  errorbar.params = list(size = 1, width = 0.1, 
  position = position_nudge(x = x.nudge)), 
  n.text = TRUE, mean.sd.text = TRUE, p.value = FALSE) {
    params <- list(...)
    jitter.params <- modifyList(params, jitter.params)
    mean.params <- modifyList(params, mean.params)
    errorbar.params <- modifyList(params, errorbar.params)

    jitter <- do.call("geom_jitter", jitter.params)
    mean <- do.call("stat_summary", modifyList(
      list(fun.y = "mean", geom = "point"), 
      mean.params)
    )
    errorbar <- do.call("stat_summary", modifyList(
      list(fun.data = "mean_cl_normal", geom = "errorbar"), 
      errorbar.params)
    )

    stripchart.list <- list(
      jitter, 
      theme(legend.position = "none"),
      mean, 
      errorbar
    )

    if(n.text || mean.sd.text) {
# Compute summary statistics (sample size, mean, SD) here?
      if(n.text) {
# Add information to stripchart.list to 
# compute sample size per group and add text below x-axis
      }
      if(mean.sd.text) {
# Add information to stripchart.list to 
# compute mean and SD and add text above top of plotting region
      }
    }
    if(p.value) {
# Add information to stripchart.list to 
# compute p-value (and 95% CI for difference if only 2 groups) 
# and add text above top of plotting region
    }
    stripchart.list
}


library(ggplot2)
dev.new()
p <- ggplot(mtcars, aes(x = factor(cyl), y = mpg, color = factor(cyl)))
p + geom_stripchart() + 
    xlab("Number of Cylinders") + 
    ylab("Miles per Gallon")

您可以看到这些图几乎相同。我遇到的问题是弄清楚如何在每组下方添加样本量，并在顶部添加均值和标准差，以及方差分析的结果(此时忽略不等方差的问题) .我知道计算汇总统计数据然后将它们绘制为绘图区域内的点或文本很简单，但我不想这样做。

我已经找到了展示如何将文本放置在图外的示例(例如，使用 annotation_custom() ):
How can I add annotations below the x axis in ggplot2?

Displaying text below the plot generated by ggplot2

问题在于示例展示了如何在用户预先定义注释是什么的情况下执行此操作。我的问题是在 geom_stripchart 内，我必须根据调用 ggplot() 时定义的数据计算汇总统计数据和测试结果。 ，然后将这些结果传递给 annotation_custom() .我不知道如何获取在对 ggplot() 的调用中定义的 x 和 y 变量。 .

1 Câu trả lời

我在这里发布了这个问题的简单版本:ggplot2: Adding sample size information to x-axis tick labels

我已经更新了 EnvStats包中包含 geom叫 geom_stripchartĐây là EnvStats 的改编版功能 stripChart .见 help filevì geom_stripchart有关更多信息和示例列表。下面是一个简单的例子:

library(ggplot2)
library(EnvStats)

p <- ggplot(mtcars, aes(x = factor(cyl), y = mpg, color = factor(cyl))) 

p + geom_stripchart(test.text = TRUE) + 
  labs(x = "Number of Cylinders", y = "Miles per Gallon")

关于r - 创建自定义几何图形来计算汇总统计数据并在绘图区域*外部*显示它们，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/39993117/

27 4 0

• css - 自定义 ID 元素 + 自定义 CSS

  好的，所以我编辑了以下... 只需将以下内容放入我的 custom.css #rt-utility .rt-block {CODE HERE} 但是当我尝试改变... 与 #rt-sideslid

• ios - 自定义 tableview 单元格的问题。自定义 tableview 单元格内的 Collectionview 未根据单元格的高度进行调整

  在表格 View 中，我有一个自定义单元格(在界面生成器中高度为 500)。在该单元格中，我有一个 Collection View ，我按 (10,10,10,10) 固定到边缘。但是在 tablev

• swift - 如何使用鼠标在另一个 IB 自定义 View 中进入/退出来控制一个 IB 自定义 View

  对于我的无能，我很抱歉，但总的来说，我对 Cocoa、Swift 和面向对象编程还很陌生。我的主要来源是《Cocoa Programming for OS X》(第 5 版)，以及 Apple 的充满

• python - 自定义 Python Wheel 文件的 Yocto Warrior 自定义 Bitbake 配方无法安装，因为找不到 pip3

  我正在使用 meta-tegra 为我的 NVIDIA Jetson Nano 构建自定义图像。我需要 PyTorch，但没有它的配方。我在设备上构建了 PyTorch，并将其打包到设备上的轮子中。现

• jquery序列化()+自定义？

  在 jquery 中使用 $.POST 和 $.GET 时，有没有办法将自定义变量添加到 URL 并发送它们？我尝试了以下方法: $.ajax({type:"POST", url:"file.php?

• 自定义 Traefik（本地）插件

  Traefik 已经默认实现了很多中间件，可以满足大部分我们日常的需求，但是在实际工作中，用户仍然还是有自定义中间件的需求，为解决这个问题，官方推出了一个 Traefik Pilot[1] 的功

• android - 自定义 TextInputLayout

  我想让我的 CustomTextInputLayout 将 Widget.MaterialComponents.TextInputLayout.OutlinedBox 作为默认样式，无需在 XML 中

• Emacs rgrep 自定义

  我在 ~/.emacs 中有以下自定义函数: (defun xi-rgrep (term) (grep-compute-defaults) (interactive "sSearch Te

• excel - 自定义 SUMPRODUCT()

  我有下表: 考虑到每个月的权重，我的目标是在 5 个月内分散 10,000 个单位。与 10,000 相邻的行是我最好的尝试(我在这上面花了几个小时)。黄色是我所追求的。 我试图用来计算的逻辑如下:计

• 自定义 Joomla 组件的文件上传表单

  我的表单中有一个字段，它是文件类型。当用户点击保存图标时，我想自然地将文件上传到服务器并将文件名保存在数据库中。我尝试通过回显文件名来测试它，但它似乎不起作用。另外，如何将文件名添加到数据库中？是在模

• Python邮箱 "from name"自定义

  我有一个 python 脚本来发送电子邮件，它工作得很好，但问题是当我检查我的电子邮件收件箱时。 我希望该用户名是自定义用户名，而不是整个电子邮件地址。 最佳答案 发件人地址应该使用的格式是: You

• r - 自定义 ggcorrplot

  我想减小 ggcorrplot 中标记的大小，并减少文本和绘图之间的空间。 library(ggcorrplot) data(mtcars) corr <- round(cor(mtcars), 1)

• gtk - 自定义 GtkFileChooser

  GTK+ noob 问题在这里: 是否可以自定义 GtkFileChooserButton 或 GtkFileChooserDialog 以删除“位置”部分(左侧)和顶部的“位置”输入框？ 我实际上要

• Magento 自定义 block

  我正在尝试在主页上使用 ajax 在 magento 中使用 ajax 显示流行的产品列表，我可以为 5 或“N”个产品执行此操作，但我想要的是将分页工具栏与结果集一起添加. 这是我添加的以显示流行产

• Django 自定义 PasswordResetForm

  我正在尝试使用 PasswordResetForm 内置函数。 由于我想要自定义表单字段，因此我编写了自己的表单: class FpasswordForm(PasswordResetForm):

• Angular:拖放树 - 自定义

  据我了解，新的 Angular 7 提供了拖放功能。我搜索了有关 DnD 的 Tree 组件，但没有找到与树相关的内容。 我在 Stackblitz 上找到的一个工作示例.对比drag'ndrop功能

• WPF 自定义 TabControl

  我必须开发一个自定义选项卡控件并决定使用 WPF/XAML 创建它，因为我无论如何都打算学习它。完成后应该是这样的: 到目前为止，我取得了很好的进展，但还有两个问题: 只有第一个/最后一个标签项应该有

• r - 自定义 xtable

  我要定制xtable用于导出到 LaTeX。我知道有些问题是关于 xtable在这里，但我找不到我要找的具体东西。 以下是我的表的外观示例: my.table <- data.frame(Specif

• ejs - EJS中的日期时间格式/自定义

  用ejs在这里显示日期 它给我结果 Tue Feb 02 2016 16:02:24 GMT+0530 (IST) 但是我需要表现为 19th January, 2016 如何在ejs中执行此操作？

• JavaFX 自定义 ListView

  我想问在 JavaFX 中使用自定义对象制作 ListView 的最佳方法，我想要一个每个项目如下所示的列表: 我搜了一下，发现大部分人都是用细胞工厂的方法来做的。有没有其他办法？例如使用客户 fxm