将英语数字转换为波斯语以用于 ggplot答案

【问题标题】：Convert English numbers to Persian for ggplot将英语数字转换为波斯语以用于 ggplot
【发布时间】：2020-03-09 00:50:27
【问题描述】：

我正在使用ggplot 进行数据可视化项目。我有我的英文原始数据：

world_ecommerce <- data.frame(
    year = factor(c(2014, 2015, 2016, 2017, 2018)),
    score = c(1336, 1548, 1845, 2304, 2842)
)

我想将其可视化为条形图并以波斯语显示所有数字。我原来的条形图是：

ggplot(
    world_ecommerce, 
    aes(x = year, y = score, label = score), 
    fill = "#56c7da"
) +
    geom_bar(
        stat = "identity",
        fill = "#56c7da",
        position = position_dodge(),
        width = 0.5,
        size = 0
    ) +
    geom_text(
        aes(label = score),
        vjust = -1.5,
        color = "#555555",
        position = position_dodge(width = 0.5),
        size = 3.5
    ) +
    scale_y_continuous(
        expand = c(0,0),
        limits = c(0, 3150),
        breaks = c(
            500, 1000, 1500, 2000, 2500, 3000
        )
    ) +
    xlab("سال") +
    ylab("") +
    ggtitle("میلیارد دلار") +
    labs(
        subtitle = "اندازه بازار خرده فروشی آنلاین در دنیا",
        caption = "منبع: سایت تحلیلی-پژوهشی Statista"
    )

我需要 geom_text 标签和轴号为波斯语（例如，2015 而不是 2015）。

【问题讨论】：

标签： r ggplot2 localization farsi

【解决方案1】：

首先，我们需要编写一个函数将英文数字中的字符翻译到波斯文：

to_fa_numbers <- function(x) {
    persian <- "\u0660\u0661\u0662\u0663\u0664\u0665\u0666\u0667\u0668\u0669\u06F0\u06F1\u06F2\u06F3\u06F4\u06F5\u06F6\u06F7\u06F8\u06F9"
    english <- "\U0030\U0031\U0032\U0033\U0034\U0035\U0036\U0037\U0038\U0039\U0030\U0031\U0032\U0033\U0034\U0035\U0036\U0037\U0038\U0039"
    return(chartr(english,persian, x))
}

然后，我们可以轻松地将其应用到 ggplot 几何图形和图层：

ggplot(
    world_ecommerce, 
    aes(x = year, y = score, label = score), 
    fill = "#56c7da"
    ) +
    geom_bar(
        stat = "identity",
        fill = "#56c7da",
        position = position_dodge(),
        width = 0.5,
        size = 0
    ) +
    geom_text(
        aes(label = to_fa_numbers(score)),
        vjust = -1.5,
        color = "#555555",
        position = position_dodge(width = 0.5),
        size = 3.5
    ) +
    scale_x_discrete(
        labels = to_fa_numbers
    ) +
    scale_y_continuous(
        expand = c(0,0),
        limits = c(0, 3150),
        breaks = c(
            500, 1000, 1500, 2000, 2500, 3000
        ),
        labels = to_fa_numbers
    ) +
    xlab("سال") +
    ylab("") +
    ggtitle("میلیارد دلار") +
    labs(
        subtitle = "اندازه بازار خرده فروشی آنلاین در دنیا",
        caption = "منبع: سایت تحلیلی-پژوهشی Statista"
    )

【讨论】：