如何在R Markdown中通过sprintf实现置信区间换行显示

首先修正你函数中的语法错误：R的函数名不能包含空格，需要把my function改为my_function。

关于换行无效的问题：在R Markdown中，纯文本的\n不会被渲染为换行，需要使用HTML的<br>标签来实现换行效果。修改后的函数如下：

my_function <- function(x){
  mean_val <- mean(x, na.rm = TRUE)
  sd_val <- sd(x, na.rm = TRUE)
  ci <- qwraps2::mean_ci(x, na_rm = TRUE)
  # 使用<br>实现换行，并明确标注95%置信区间
  formatted_output <- sprintf("%.1f ± %.1f <br> [95% CI: %.1f, %.1f]", mean_val, sd_val, ci[2], ci[3])
  return(formatted_output)
}

渲染注意事项 #

在R Markdown的代码块中，需要设置results='asis'参数，让输出的HTML标签被直接解析渲染：

```{r results='asis'}
# 示例数据
set.seed(123)
sample_data <- rnorm(100, mean=20, sd=3)
# 输出格式化结果
cat(my_function(sample_data))

这样渲染后，均值±标准差会显示在第一行，95%置信区间会自动换行到下一行。

内容的提问来源于stack exchange，提问作者Ahmed Mabrouk