R 贴标机用ggplot2删除的科学符号

我想使用在facet_网格中解析的label_更改标签，但它正在删除科学符号

以下是一个简单的可复制示例：

library(ggplot2)
mtcars$cyl2 <- factor(mtcars$cyl, 
    labels = c('atop(atop(a),1.123e-2)','atop(atop(b),1e-3)','atop(atop(c),2.91e-4)'))
ggplot(mtcars, aes(wt, mpg)) + geom_point() + facet_grid(. ~ cyl2, labeller=label_parsed)

库（ggplot2）
mtcars$cyl2您是否只想这样（在plotmath表达式中使用字符而不是数字参数：

mtcars$cyl2 <- factor(mtcars$cyl, 
    labels = c('atop(atop(a),"1.123e-2")','atop(atop(b),"1e-3")',
                'atop(atop(c),"2.91e-4")'))

mtcars$cyl2您是否可以添加一个可复制的示例，其中
选项（“scipen”=-999，“数字”=4）
不起作用？