要给出不同阈值下的多个geom_smooth的代码示例，您可以使用ggplot2和dplyr包来实现。以下是一个示例代码：

library(ggplot2)
library(dplyr)

# 创建一个包含x和y变量的数据集
data <- data.frame(x = 1:10, y = c(2, 4, 6, 8, 10, 12, 14, 16, 18, 20))

# 创建一个包含不同阈值的向量
thresholds <- c(4, 8, 12)

# 使用dplyr的mutate和case_when函数根据阈值创建一个新的变量threshold_group
data <- data %>% 
  mutate(threshold_group = case_when(
    x <= thresholds[1] ~ 'group 1',
    x <= thresholds[2] ~ 'group 2',
    x <= thresholds[3] ~ 'group 3',
    TRUE ~ 'group 4'
  ))

# 创建一个ggplot对象，并使用facet_wrap函数按照不同的阈值分组
ggplot(data, aes(x, y)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  facet_wrap(~ threshold_group, ncol = 1)

在这个示例中，我们首先创建一个包含x和y变量的数据集。然后，我们定义了一个包含不同阈值的向量。接下来，我们使用dplyr的mutate和case_when函数根据阈值创建了一个新的变量threshold_group。最后，我们使用ggplot2的geom_point和geom_smooth函数创建了一个包含多个geom_smooth的图表，并使用facet_wrap函数按照不同的阈值分组展示。