如何在R语言ggplot折线图中添加百分号且不将变量转为离散类型

问题核心原因 #

你之前的操作直接将数值类型的yearly_change修改为带%的字符串类型，导致geom_line映射的y轴变为离散型，无法绘制连续折线。正确思路是保留原始字段的数值属性，仅在文本标签/轴刻度显示时添加百分号，不要修改原始数据字段。

具体解决方法 #

方法1：使用scales包官方函数（推荐） #

scales包是ggplot2官方配套的刻度处理包，直接在标签映射中调用即可，无需修改原始数据：

• 如果你的yearly_change本身是百分比数值（如12代表12%），参数设置为scale=1
• 如果你的yearly_change是小数比例（如0.12代表12%），参数设置为scale=100
• accuracy参数控制保留的小数位数，按需调整即可。

方法2：手动拼接百分号 #

不想额外加载包的话，直接在geom_text的label参数中拼接%，同样不要修改原始字段。

修改后的完整代码 #

library(ggplot2)
# 如果用方法1需要先加载scales包：library(scales)

ggplot(table)  + 
    geom_bar(aes(x=year, y=order_cnt_in_thousends),stat="identity", fill="tan1", colour="sienna3")+
    # 折线y轴依旧映射数值型的yearly_change，不修改原始字段
    geom_line(aes(x=year, y=yearly_change ),stat="identity")+
    # 仅在文本标签处加%，这里用方法1的scales写法，也可以替换为方法2的paste0(yearly_change, "%")
    geom_text(aes(label = scales::percent(yearly_change, scale = 1, accuracy = 0.1), x=year, y=yearly_change), colour="black")+
    geom_text(aes(label=order_cnt_in_thousends, x=year, y=order_cnt_in_thousends), colour="black", vjust = -0.5) +   
    scale_x_date(date_breaks = "1 year")

额外可选设置 #

如果需要给折线对应的y轴刻度也添加百分号，可添加对应刻度设置（如果是双轴场景需匹配双轴参数，此处仅为单轴示例）：

+ scale_y_continuous(labels = scales::percent_format(scale = 1, accuracy = 0.1))

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