如何在ggplot标签中使用自然对数而不是log10？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(x = c(1, 2, 3, 4, 5),
                   y = c(10, 100, 1000, 10000, 100000))

# 使用ggplot创建散点图
plot <- ggplot(data, aes(x = x, y = y)) +
  geom_point()

# 设置x轴为对数刻度，使用自然对数
plot <- plot + scale_x_log10(labels = function(x) formatC(exp(x), format = "e"))

# 设置y轴为对数刻度，使用自然对数
plot <- plot + scale_y_log10(labels = function(x) formatC(exp(x), format = "e"))

# 显示图形
print(plot)