如何在R中打印数值并设置大小颜色，实现在Viewer面板展示的效果

方案1：使用htmltools包（轻量灵活，无额外依赖） #

直接通过生成自定义HTML元素实现样式调整，运行后自动渲染到Viewer面板，可完全自定义尺寸、颜色、字体等样式。

# 安装依赖（如未安装）
# install.packages("htmltools")
library(htmltools)

# 替换为你计算得到的数值X
X <- 1234.56

# 构建指标卡片
index_card <- div(
  # 卡片容器样式
  style = "padding: 30px; width: 300px; margin: 0 auto; border-radius: 8px; background: #f8f9fa;",
  # 数值部分
  div(
    style = paste0(
      "font-size: 72px;",
      "color: #1a73e8;",
      "font-weight: 800;",
      "text-align: center;"
    ),
    round(X, 2) # 可自定义小数保留位数
  ),
  # 可选：添加指标名称
  div(
    style = "font-size: 18px; color: #666; text-align: center; margin-top: 12px;",
    "月度销售额（万元）"
  )
)

# 输出到Viewer面板
print(index_card, browse = FALSE)

方案2：使用gt包（适合表格体系下的指标展示） #

专门用于格式化表格的工具包，自带丰富的样式预设，也可快速生成单值指标卡片，支持批量调整样式。

# 安装依赖（如未安装）
# install.packages("gt")
library(gt)

X <- 1234.56

# 生成指标卡片
gt(data.frame(指标值 = X)) |>
  # 隐藏列名
  cols_hide(columns = 1) |>
  # 添加指标标题
  tab_header(title = "月度销售额（万元）") |>
  # 格式化数值
  fmt_number(columns = 指标值, decimals = 2) |>
  # 设置数值样式
  tab_style(
    style = cell_text(
      size = px(72),
      color = "#ea4335",
      weight = "bold",
      align = "center"
    ),
    locations = cells_body(columns = 指标值)
  ) |>
  # 设置标题样式
  tab_style(
    style = cell_text(
      size = px(18),
      color = "#666",
      align = "center"
    ),
    locations = cells_title(groups = "title")
  ) |>
  # 隐藏所有表格边框
  opt_table_lines("none")

运行后会自动在Viewer面板渲染出指标卡片。

方案3：使用flexdashboard（适合搭建完整数据看板） #

如果需要同时展示多个指标形成完整看板，可以用flexdashboard的valueBox组件，自带看板风格的样式预设，支持自定义颜色、图标等配置。
使用时将以下代码保存为后缀为.Rmd的文件，点击Knit按钮即可在Viewer面板生成完整看板：

---
title: "业务数据看板"
output: flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
# 替换为你计算得到的数值X
X <- 1234.56

月度销售额（万元） #

valueBox(
  value = round(X, 2),
  # 自定义颜色，支持内置主题色或十六进制颜色值
  color = "#34a853",
  # 可选：添加图标，不需要可删除该参数
  icon = "fa-sack-dollar"
)

---
内容的提问来源于stack exchange，提问作者Udo Gniß