内联输出：在 R Markdown 中将较小的 p 值更改为 p < 0.001答案

【问题标题】：Inline output: Change small p-values to p < 0.001 in R Markdown内联输出：在 R Markdown 中将较小的 p 值更改为 p < 0.001
【发布时间】：2023-01-10 15:00:42
【问题描述】：

我有一个对象 one，其中包含 kruskal-wallis 测试的结果。 p 值非常小，即 6.86e-09。 R markdown 中的内联代码有没有办法说 p < 0.0001 而不是写出确切的 p 值？

one <- kruskal.test(Petal.Width ~ Species, data = iris)

我努力了：

There was a statistically significant difference in the Petal Width between species
H(`r one[[2]]`) = `r round(one[[1]], 3)`, *p* = `r round(one[[3]], 11)`.

和：

`r if(one[[3]] < 0.0001){ print("< 0.0001") } else { round(one[[3]], 4) }`

期望的输出：

物种 H(2) = 131.19 之间的花瓣宽度存在统计学上的显着差异，p< 0.0001。

有很多关于如何重新编码为重要代码等的内容，但实际上并没有如何对内联代码执行此操作。我对此很陌生，因此不胜感激！

【问题讨论】：

标签： r r-markdown inline

【解决方案1】：

您可以为此使用矢量化的ifelse。添加 one[[2]] 用于演示值大于 0.0001 的情况。

---
title: "Untitled"
output: pdf_document
date: "2023-01-10"
---

```{r}
one <- kruskal.test(Petal.Width ~ Species, data = iris)
```

There was a statistically significant difference in the Petal Width between species H(`r one[[2]]`) = `r round(one[[1]], 3)`, p `r ifelse(one[[3]] < 0.0001, paste("<", 0.0001), paste("=", round(one[[3]], 4)))`.

There was a statistically significant difference in the Petal Width between species H(`r one[[2]]`) = `r round(one[[1]], 3)`, p `r ifelse(one[[2]] < 0.0001, paste("<", 0.0001), paste("=", round(one[[2]], 4)))`.

Rmarkdown PDF 输出示例：

【讨论】：

【解决方案2】：

其一，打印语句可能是不必要的。就我而言，它有助于将 ifelse 从内联中分离出来，将其结果写入一个变量，然后仅在内联中调用该变量

one <- kruskal.test(Petal.Width ~ Species, data = iris)
pval <- if(one[[3]] < 0.0001){"< 0.0001"}else{round(one[[3]], 4)}

物种 H(`r one[[2]]`) = `r round(one[[1]], 3)`, p = `r pval` 之间的花瓣宽度存在统计学上的显着差异。

如果你只有两个条件，你也可以使用 ifelse -

pval <- ifelse(one[[3]] < 0.0001, "< 0.0001", round(one[[3]],4))

【讨论】：