如何在knitr编译时调整message()/print()输出的字体大小与颜色？

当然可以实现，下面提供两种实用方案：

方案1：自定义带样式的输出函数 #

直接替换原生的message()，用HTML标签包裹输出内容，让knitr直接渲染样式。需要在代码块中设置results='asis'，确保HTML被正确解析：

# 自定义带样式的消息函数
my_message <- function(text) {
  # 自定义样式：红色、1.2倍字号
  cat(sprintf('<span style="color:#dc3545; font-size:1.2em;">%s</span><br>', text))
}

a <- sum(rnorm(10))
trigger <- a > 0  # 简化判断逻辑，无需ifelse转布尔值

if (trigger) {
  my_message("positive")
} else {
  my_message("negative")
}

注意：代码块开头要声明{r, results='asis'}，否则HTML会被当成普通文本输出。

如果要调整print()的输出，原理完全一致，编写对应的my_print()函数即可。

方案2：全局CSS样式修改 #

如果希望所有message()输出统一应用样式，无需修改R代码，直接在R Markdown文档中添加CSS规则即可。在YAML配置块之后插入以下代码：

<style>
/* 针对knitr生成的message输出容器 */
div.message {
  font-size: 1.2em;
  color: #28a745;  /* 绿色示例 */
  font-weight: bold; /* 可选：添加加粗效果 */
}
</style>

这样所有通过message()输出的内容都会自动应用该样式，完全兼容你的原有代码逻辑。

补充说明 #

• 以上两种方案仅针对HTML输出有效，若需适配PDF输出，需改用LaTeX语法（如\textcolor、\fontsize）调整样式。
• 颜色值可使用十六进制代码、RGB值或标准颜色名称，字号支持em、px、%等单位，可按需调整。

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