labs(x = "Temperature (°F)", y = "Season") 调整条带(曲线下区域AUC, 置信区域CI等) 在这个例子中,我们将使用filter()函数创建一个30天的平均运行时间,这样我们的ribbon就不会有太多噪音。 chic$o3run <- as.numeric(stats::filter(chic$o3, rep(1/30, 30), sides = 2)) ggplot(chic, aes(x...