如何在R语言图表轴及Shiny仪表板中添加分币（¢）符号？

基础输入方式 #

分币符号可以通过两种方式在R中使用：

• 直接复制粘贴：¢（大部分R环境如RStudio都支持）
• 使用Unicode编码："\u00A2"（兼容性更强，避免字体显示异常）

在ggplot2图表坐标轴添加¢符号 #

以y轴标签为例，两种方式都能快速实现：

library(ggplot2)

# 构造示例数据
df <- data.frame(
  商品 = c("甲", "乙", "丙"),
  单价 = c(12, 28, 19)
)

# 绘制带¢符号的柱状图
ggplot(df, aes(x = 商品, y = 单价)) +
  geom_col(fill = "#2E86AB") +
  ylab("单价（¢）")  # 直接使用¢符号
  # 也可以用Unicode：ylab("单价（\u00A2）")

在base R图表坐标轴添加¢符号 #

base R图表中，轴标签和刻度都能添加¢符号：

# 示例数据
单价 <- c(12, 28, 19)
商品 <- c("甲", "乙", "丙")

# 绘制柱状图，设置y轴标签
barplot(单价, names.arg = 商品,
        ylab = "单价 ¢",
        main = "商品单价对比")

# 自定义y轴刻度，添加¢符号
axis(2, at = seq(0, 30, 10), labels = paste0(seq(0, 30, 10), "\u00A2"))

在Shiny仪表板标题/组件中添加¢符号 #

Shiny的UI组件里，标题、文本、图表都能无缝使用¢符号：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "零售价格监控（单位：¢）"),  # 标题直接用¢
  dashboardSidebar(),
  dashboardBody(
    h4("今日核心数据"),
    p("最低单价：8\u00A2 | 最高单价：35\u00A2"),  # 用Unicode编码
    plotOutput("price_plot")
  )
)

server <- function(input, output) {
  output$price_plot <- renderPlot({
    df <- data.frame(商品 = c("甲", "乙", "丙"), 单价 = c(12,28,19))
    ggplot(df, aes(x=商品, y=单价)) +
      geom_col() +
      ylab("单价（\u00A2）")
  })
}

shinyApp(ui, server)

注意事项 #

• 若出现符号显示异常，检查当前使用的字体是否支持¢符号，可更换为Arial、Segoe UI等通用字体
• Unicode编码"\u00A2"是跨平台最稳妥的选择，能避免不同环境的显示差异

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