How change the label 2e-16 to 2x10^-16 using stat_cor

[Gabbi]

Hello everone,

How can I change the scientific notation in R label using stat_cor, it's a request from the paper revisor and I can´t figure how to do so, and also I need to change the size of only one word in the label strip text.
Can someone help me please?

Here is a data for example:

library("tidyverse")
# Create example data -----------------------------------------------------
n <- 91
set.seed(232153)
my_data <- tibble(
  x1 = as.integer(seq(1940,2030,1)),
  x2 = as.integer(seq(1,91)),
  g1 = sample(LETTERS[1:3], size = n, replace = TRUE),
  g2 = sample(LETTERS[4:6], size = n, replace = TRUE),
)

# Augment data ------------------------------------------------------------
my_data <- my_data %>% 
  mutate(x1_A_D = case_when(g1 == "A" & g2 == "D" ~ x1),
         x2_A_D = case_when(!is.na(x1_A_D) ~ x2))

# Visualise ---------------------------------------------------------------
my_data %>% 
  ggplot(aes(x = x1, y = x2)) + 
  geom_line() +
  geom_smooth(aes(x = x1_A_D, y = x2_A_D),
              method = "lm", linetype = "dashed") +
  stat_regline_equation(aes(x = x1, y = x2), label.x=1995, label.y=75, size = 2) +
  stat_cor(aes(x = x1, y = x2, label = ..p.label..),
           label.y= Inf, label.x = Inf, vjust = 3.3, hjust = 1.8, size = 2) +
  facet_grid(vars(g2), vars(g1), scales = "free_y", switch = "y")