如何在RStudio输出及RMarkdown编织文档中设置负数为红色？

嘿，作为R新手想给负数标红太正常啦！你之前试的那套HTML+CSS代码是针对网页里的独立表格元素的，自然在RStudio控制台和常规RMarkdown输出里起不了作用～下面分两个场景给你靠谱的解决方案：

RStudio控制台的输出样式得用专门的R包来控制，推荐用crayon——它就是用来给控制台文本加颜色的神器，操作超简单：

1. 先安装并加载包：

install.packages("crayon")
library(crayon)

2. 写个自定义打印函数，自动给负数上色：
   这个函数会判断输入的数值，小于0的就用红色输出，正数正常显示：

print_colored_numbers <- function(numbers) {
  # 先检查输入是否是数值型
  if (!is.numeric(numbers)) {
    message("输入得是数值哦～")
    return(NULL)
  }
  # 给负数套上红色样式
  colored_nums <- ifelse(numbers < 0, red(numbers), as.character(numbers))
  # 输出结果
  cat(colored_nums, sep = "\n")
}

3. 测试一下效果：

print_colored_numbers(c(123, -456, 789, -1011))

运行后你就能在控制台看到红色的负数啦！如果想让所有数值输出自动变色，还可以自定义print方法，但对新手来说上面的函数足够好用，灵活不复杂。

这个分HTML和PDF两种输出格式，方法略有不同：

针对HTML输出的RMarkdown #

我们可以内嵌CSS样式，配合R包来给负数上色：

1. 在文档开头的YAML下面加一个隐藏的CSS代码块，定义红色样式：

---
title: "带红色负数的HTML文档"
output: html_document
---

```{css, echo=FALSE}
/* 给文本中的负数标红 */
.negative-number {
  color: #ff4444;
}
/* 给表格里的负数标红 */
.table .negative-number {
  color: #ff4444;
  font-weight: normal;
}

2. 用`formattable`包处理表格输出：
这个包能轻松给表格里的指定元素加样式：
```r
install.packages("formattable")
library(formattable)

# 造个测试数据框
test_df <- data.frame(
  项目 = c("营收", "成本", "利润", "亏损"),
  金额 = c(20000, -8000, 12000, -3000)
)

# 给金额列的负数设置红色
formattable(test_df, list(
  金额 = formatter("span", 
                    style = x ~ ifelse(x < 0, "color: #ff4444", "color: #333333"))
))

如果是普通文本输出（非表格），可以手动给负数套上HTML标签：

cat("本月盈利：12000元，上月亏损：<span class='negative-number'>-3000</span>元")

针对PDF输出的RMarkdown #

PDF需要用LaTeX的颜色命令，我们可以用xtable包来实现：

1. 先在YAML里加载LaTeX的xcolor包：

---
title: "带红色负数的PDF文档"
output: 
  pdf_document:
    extra_dependencies: xcolor
---

2. 处理数据并输出表格：

install.packages("xtable")
library(xtable)

test_df <- data.frame(
  项目 = c("营收", "成本", "利润", "亏损"),
  金额 = c(20000, -8000, 12000, -3000)
)

# 给负数套上LaTeX红色命令
test_df$金额 <- ifelse(test_df$金额 < 0, 
                       paste0("\\textcolor{red}{", test_df$金额, "}"), 
                       as.character(test_df$金额))

# 输出表格，注意要关闭文本清理
print(xtable(test_df), sanitize.text.function = function(x) x)

这样编织出来的PDF里，负数就会变成红色啦！

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