Игнорирование неизвестных параметров: label.x.np c, label.y.np c при использовании stat_fit_glance () в ggpmisc

Question

Я рисую данные временного ряда из файла CSV в R. Сам временной ряд строится хорошо без каких-либо ошибок с этим кодом:

data <- read.csv("SSSA_SSS.csv",
                 header = T,
                 sep = ",",
                 dec = ".")
head(data)
data$Year <- as.Date(data$ï..Date, format = "%m/%d/%Y")
class(data$Year)
time_plot <- ggplot(data, aes(x = Year, y = SSSA)) +
    geom_line(color = '#2b83e7', size = 1) + geom_point(color = "red", size =
                                                            1) +
    scale_x_date(date_labels = "%Y", date_breaks = "5 year") +
    theme_bw() + stat_smooth(
        method = "lm",
        formula = y ~ x,
        size = 0.75,
        se = T,
        color = '#1ac179'
    ) + stat_poly_eq(
        face = "bold",
        parse = T,
        aes(label = ..eq.label..),
        formula = y ~ x,
        label.x.npc = 0.5,
        label.y = 0.2,
        size = 6,
        coef.digits = 4
    ) + stat_fit_glance(
    method = 'lm',
    method.args = list(formula = y ~ x),
    geom = 'text',
    aes(label = paste(
        "P-value = ", signif(..p.value.., digits = 4), sep = ""
    )),
    size = 5.7,
    label.x.npc = 0.5,
    label.y.npc = 0.9,
) + theme(
    # LABLES APPEARANCE
    plot.title = element_text(
        size = 14,
        face = "bold",
        colour = "black"
    ),
    axis.title.x = element_text(
        size = 17,
        face = "bold",
        colour = "black"
    ),
    axis.title.y = element_text(
        size = 17,
        face = "bold",
        colour = "black"
    ),
    axis.text.x = element_text(
        size = 15,
        face = "bold",
        colour = "black"
    ),
    # axis.text.y = element_text(size=12,  colour = "black"), # unbold
    axis.text.y = element_text(
        size = 15,
        face = "bold",
        colour = "black"
    ),
    # bold
    strip.text.x = element_text(
        size = 13,
        face = "bold",
        colour = "black"
    ),
    strip.text.y = element_text(
        size = 13,
        face = "bold",
        colour = "black"
    ),
    axis.line.x = element_line(color = "black", size = 1),
    axis.line.y = element_line(color = "black", size = 1),
    axis.ticks = element_line(color = "black", size = 1.2),
    panel.border = element_rect(
        colour = "black",
        fill = NA,
        size = 1
    )
print(time_plot)

Как видите, я могу изменить положение уравнения с помощью stat_poly_eq(), однако текст «значение p» не отвечает на используемую мной команду:

stat_fit_glance(
        method = 'lm',
        method.args = list(formula = y ~ x),
        geom = 'text',
        aes(label = paste(
            "P-value = ", signif(..p.value.., digits = 4), sep = ""
        )),
        size = 5.7,
        label.x.npc = 0.5,
        label.y.npc = 0.9,
    )  

Следовательно, я Я не могу переместить заголовок, даже если он перекрывается с кривой, поскольку возвращается со следующей ошибкой:

1: Ignoring unknown parameters: face 
2: Ignoring unknown parameters: label.x.npc, label.y.npc 

Я понимаю эту ошибку "лица", но хочу вручную изменить положение "p-значение". Буду признателен, если кто-нибудь укажет мне на мою ошибку, спасибо.