r - 如何使用多面图添加趋势线

Question

我制作了这个散点图，但在添加趋势线时遇到了麻烦。消息< geom_smooth()using method = 'loess' and formula 'y ~ x'> 不断出现，但没有趋势线。也许我把 geom_smooth 代码放在错误的地方？让我知道你们是否有任何想法！

library(cowplot)
library(tidyverse)
df_Number <- df %>% 
  pivot_longer(
    cols = 3:12,
    names_to = "names",
    values_to = "values"
  ) %>% 
  filter(grepl('Number', names))

df_Duration <- df %>% 
  pivot_longer(
    cols = 3:12,
    names_to = "names",
    values_to = "values"
  ) %>% 
  filter(grepl('Duration', names))

plot_Number <- ggplot(df_Number, aes(x=factor(names), y=values)) +
  geom_point(stat = "identity") + 
  xlab("Number") + 
  ylab("Value") +
  facet_wrap(~Group) +
  theme_bw()

plot_Duration <- ggplot(df_Duration, aes(x=factor(names), y=values)) +
  geom_point(stat = "identity") + 
  xlab("Duration") + 
  ylab("Value") +
  facet_wrap(~Group) +
  theme_bw()
plot_grid(plot_Number, plot_Duration, labels = "AUTO")

标签： r