ggplot因子型x轴统一科学计数法及数值型等间距显示方案

我有一个数据框，其中Value列数值差距极大，原本适合采用对数刻度绘图，数据如下：

df <- data.frame(
  Type = c("A", "B", "C", "D"),
  Value = c(1e3, 2e3, 4e5, 8e6),
  Efficiency = c(70, 72, 80, 88)
)

为使4个数据点在x轴上等间距分布（而非连续对数刻度无法精准显示每个值），我将Value列转换为factor类型：

# Convert set columns to specified data type
factor_cols <- c("Type", "Value")
df[factor_cols] <- lapply(df[factor_cols], factor)

但绘图时x轴标签出现部分为普通数字、部分为科学计数法的问题，使用的绘图代码如下：

# Plot summary graph
ggplot(df, aes(x = Value, y = Efficiency, color = Type)) +
  geom_point(size = 3, alpha = 0.7) 

尝试scale_x_discrete()未解决问题。请问：

1. 如何让所有因子型x轴标签统一显示为科学计数法？
2. 若采用数值型Value，如何实现x轴数据点等间距且显示对应刻度值？

一、因子型Value统一科学计数法标签 #

问题根源是数值转因子时，标签保留了原数值的默认显示格式。可以通过两种方式统一标签：

方法1：转换因子时直接指定科学计数标签 #

在转因子前，先把数值格式化为统一的科学计数字符串：

# 将Value格式化为科学计数字符串后转因子
df$Value <- factor(sprintf("%.1e", df$Value))

# 绘图
ggplot(df, aes(x = Value, y = Efficiency, color = Type)) +
  geom_point(size = 3, alpha = 0.7)

sprintf("%.1e", x)可生成保留1位小数的科学计数格式，若不需要小数，可改成"%.0e"。

方法2：绘图时通过scale_x_discrete重置标签 #

如果已经完成因子转换，可在绘图环节重新生成标签：

ggplot(df, aes(x = Value, y = Efficiency, color = Type)) +
  geom_point(size = 3, alpha = 0.7) +
  scale_x_discrete(labels = function(x) sprintf("%.1e", as.numeric(x)))

二、数值型Value实现等间距点+对应刻度 #

若保留Value为数值型，可通过映射整数位置或强制刻度实现需求：

方法1：强制显示数据点对应的刻度（按数值顺序排列） #

ggplot(df, aes(x = Value, y = Efficiency, color = Type)) +
  geom_point(size = 3, alpha = 0.7) +
  scale_x_continuous(
    breaks = df$Value,  # 仅显示数据点的Value值作为刻度
    labels = sprintf("%.1e", df$Value),  # 统一科学计数标签
    expand = c(0.1, 0)  # 调整轴边距避免点贴边
  )

方法2：完全等间距排列（忽略数值大小） #

把每个Value映射到连续整数位置，再替换成原数值的科学计数标签：

ggplot(df, aes(x = as.integer(factor(Value)), y = Efficiency, color = Type)) +
  geom_point(size = 3, alpha = 0.7) +
  scale_x_continuous(
    breaks = 1:nrow(df),
    labels = sprintf("%.1e", df$Value)
  ) +
  labs(x = "Value")  # 还原x轴标题

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