R语言基于palmer penguins数据集的ggplot绘图不符预期问题求助

• 单位转换实现方式错误：当前代码采用手动替换坐标轴表层标签的方式做单位换算，没有同步转换映射变量的实际数值，会导致回归线计算位置、刻度间隔全部错位，和预期图表逻辑完全不符。
• 代码语法隐患：geom_smooth 的美学映射语句中，linetype=sex 末尾多写了一个冗余逗号，部分R环境下会触发解析报错。
• 刻度匹配逻辑错误：手动传入的x、y轴标签没有对应匹配的刻度位置，连续型坐标轴只会在默认生成的刻度点上替换文本，导致刻度间隔分布错乱。
• 绘图元素缺失：当前代码仅绘制平滑回归线，没有叠加对应散点层，和预期图表的元素组成不匹配。

放弃手动硬套假标签的方式，直接在美学映射层对变量做单位换算，从根源上保证数值逻辑和展示单位统一：

• x轴映射时将flipper_length_mm除以10，直接转换为厘米单位
• y轴映射时将body_mass_g除以1000，直接转换为千克单位
• 移除冗余语法，补全缺失的散点层，匹配预设的刻度范围

library(ggplot2)
library(palmerpenguins)

ggplot(data = penguins)+
  geom_smooth(mapping = aes(x = flipper_length_mm/10, y = body_mass_g/1000, linetype = sex))+
  geom_point(mapping = aes(x = flipper_length_mm/10, y = body_mass_g/1000), alpha = 0.5)+
  facet_wrap(~species)+
  labs(title = "Flipper length vs. Body mass",
       x = "flipper length (in cm)",
       y = "body mass (in kg)")+  
  scale_x_continuous(limits = c(18, 21), breaks = c(18, 19, 20, 21))+
  scale_y_continuous(limits = c(3, 6), breaks = c(3, 4, 5, 6))

注意：如果不需要改动变量原始数值，也可以通过scale_x_continuous的自定义转换函数实现单位换算，全程不会修改原始数据集，稳定性远高于手动替换文本标签的方式。

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