R-ggplot2-在具有两个y轴的图形上执行双geom_smooth（）时，无法查看标准错误范围

我正在努力解决一个关于R的问题。我喜欢制作一个带有两个y变量的图形，指向两个不同的y轴。一切正常，但我无法获得错误带的深灰色区域。我不能理解原因，我做了几次试验

代码如下：

Dati <- data.frame("Vix" = c(62500, 87000, 122000, 140000, 154000), "monomer" = c(1.25,2.10,2.99,4.05,5.55), "Time" = c(30,60,90,120,135))
attach(Dati)
library(ggplot2)
library(readxl)


scaleFactor <- max(Vix) / max(monomer)
Graph <- ggplot(Dati, aes(x= Time)) +

geom_smooth(aes(y= Vix), method="loess", col='#f92410') +
geom_smooth(aes(y=monomer * scaleFactor), method="loess", col='#644196') +

  scale_y_continuous(name="Vix", sec.axis=sec_axis(~./scaleFactor, name="monomer")) +
  theme(
    axis.title.y.left=element_text(color='#f92410'),
    axis.text.y.left=element_text(color='#f92410'),
    axis.title.y.right=element_text(color='#644196'),
    axis.text.y.right=element_text(color='#644196')
  )

Graph

---

Dati您不会得到“错误带”，因为您只为每个x定义了一个y值。如果每个x有多个y值，则带区显示为默认设置

（为30、60和90添加了一些随机y值。代码简化以减少混乱。）

Dati如果这个答案对你有效，请确保你“接受”它，因为它解决了你的问题。
Dati <- data.frame("Vix" = c(40000, 62500, 80000, 60000, 87000, 12000, 122000, 180000, 80000, 140000, 154000), "Time" = c(30, 30, 30 ,60, 60, 60 ,90, 90, 90, 120, 135))
attach(Dati)
library(ggplot2)
library(readxl)

scaleFactor <- max(Vix) / max(monomer)
Graph <- ggplot(Dati, aes(x= Time)) +
     
     geom_smooth(aes(y=Vix), method="loess", col='#f92410') 

Graph