在R上用ggplot2生成紧凑的科学记数法

Question

我用ggplot2生成的图与左边的图类似，在y轴的每个刻度上都有完整的科学记数法。我怎样才能让它看起来更紧凑，就像右边的图一样，在角落里用红色圈出了科学记数法？

我没有在ggplot2包文档或堆栈溢出中看到过这一点。有没有人有变通办法？

科学记数法的两种格式

Answer 1

从类似的情节开始：

ggplot(mtcars, aes(wt, mpg * 1E-8)) +
  geom_point()

​

​

如果我们知道我们想要使用的比例，我们可以定义它，然后我们可以在进入的过程中缩放数据，或者更改y轴上的标签，看起来将是相同的，除了y轴标签(我们可以将其重命名为我们想要的任何名称)：

divisor = 1E-8

ggplot(mtcars, aes(wt, mpg * 1E-8 / divisor)) +
  geom_point() +
  labs(title = formatC(divisor, format = "e", digits = 0))

​

​

ggplot(mtcars, aes(wt, mpg * 1E-8)) +
  geom_point() +
  scale_y_continuous(labels = function(x) x / divisor) +
  labs(title = formatC(divisor, format = "e", digits = 0))

​

​

编辑：

如果您还想要一个标题，您也可以使用

要在绘图区之外写入文本，然后向上移动标题，请执行以下操作：

ggplot(mtcars, aes(wt, mpg * 1E-8)) +
  geom_point() +
  scale_y_continuous(labels = function(x) x / divisor) +
  annotate("text", x = -Inf, y = Inf, hjust = 0, vjust = -0.5,
           label = formatC(divisor, format = "e", digits = 0)) +
  coord_cartesian(clip = "off") +
  labs(title = "Title here") +
  theme(plot.title = element_text(margin = margin(0,0,20,0)))

​

​