我有一个图，其中每个轴都经过log10转换。对于我的一个轴标题，我想同时使用方括号（[]）和上标。我该怎么做呢？
示例数据

library(dplyr)
library(ggplot2)
set.seed(123)
df <- data.frame(matrix(ncol = 2, nrow = 20))
colnames(df)[1:2] <- c('x','y')
df$x <- rnorm(20,1000,100)
df$y <- rnorm(20,1000,100)
df <- df %>%
  mutate(log_x = log10(x),
         log_y = log10(y))

下面是我要画的图形的一个例子。我需要知道如何把x轴上的-2标上上标。

df %>%
  ggplot(aes(x = log_x, y = log_y)) +
  geom_point() +
  labs(x = expression(log[10]~"[Area (m^-2)]"),
       y = expression(log[10]~"[ Time Variable (months)]")) +
  theme_bw() +
  theme(axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_text(size = 16, color = "black"),
        axis.title = element_text(size = 16, color = "black"),
        panel.grid = element_blank(),
        panel.background = element_blank())