线和辅助y轴不显示在带重叠折线图的plotly barplot中

我在下面创建了一个数据框，我想用它创建一个带有重叠折线图的条形图。第一个y轴将包括变量

Freq

，而第二个y轴将包括变量

rollmean

。但由于某些原因，不会显示直线和辅助y轴

数据帧

date<-c(as.Date("2020-09-15", "%Y-%m-%d"),as.Date("2020-09-14", "%Y-%m-%d"),
        as.Date("2020-09-13", "%Y-%m-%d"),as.Date("2020-09-12", "%Y-%m-%d"),
        as.Date("2020-09-15", "%Y-%m-%d"),as.Date("2020-09-14", "%Y-%m-%d"),
        as.Date("2020-09-13", "%Y-%m-%d"),as.Date("2020-09-12", "%Y-%m-%d"),
        as.Date("2020-09-16", "%Y-%m-%d"),as.Date("2020-09-17", "%Y-%m-%d"),
        as.Date("2020-09-18", "%Y-%m-%d"),as.Date("2020-09-19", "%Y-%m-%d"),
        as.Date("2020-09-20", "%Y-%m-%d"),as.Date("2020-09-21", "%Y-%m-%d"),
        as.Date("2020-09-22", "%Y-%m-%d"),as.Date("2020-09-23", "%Y-%m-%d"),
        as.Date("2020-09-24", "%Y-%m-%d"),as.Date("2020-09-25", "%Y-%m-%d"),
        as.Date("2020-09-26", "%Y-%m-%d"),as.Date("2020-09-27", "%Y-%m-%d"),
        as.Date("2020-09-28", "%Y-%m-%d"),as.Date("2020-09-29", "%Y-%m-%d"),
        as.Date("2020-09-30", "%Y-%m-%d"),as.Date("2020-10-01", "%Y-%m-%d"))
value<-c(5,6,7,8,-3,-5,6,8,5,6,7,8,-3,-5,6,8,5,6,7,8,-3,-5,6,8)
df<-data.frame(date,value)
df2<-data.frame(table(df$date))


library(data.table)

adaptiveparam2 <- c(1:6, rep(7, nrow(df2)-6))
df2$rollmean <- frollmean(df2$Freq, n=adaptiveparam2, adaptive = T)

library(hrbrthemes)

g<-ggplot(df2, aes(x=Var1)) +
  
  geom_bar( aes(y=Freq), stat="identity", size=.1, fill="steelblue", color="black", alpha=.4) + 
  geom_line( aes(y=rollmean), size=2, color="red") +
  
  scale_y_continuous(
    
    # Features of the first axis
    name = "Temperature (Celsius °)",
    
    # Add a second axis and specify its features
    sec.axis = sec_axis( ~.,name="Price ($)")
  ) + 
  
  theme_ipsum() +
  
  theme(
    axis.title.y = element_text(color = "steelblue", size=13),
    axis.title.y.right = element_text(color = "red", size=13)
  ) +
  
  ggtitle("Temperature down, price up")

ggplotly(g)

---

date您可以在
geom\u线的
aes
内设置
group=1
，但这就留下了x轴日期标签重叠的问题。我认为这里的最佳解决方案是将日期转换为实际的日期类：

ggplot（在（df2，Var1）中）您确定它现在创建了一条线吗？我看不到它。“rollmean”变量似乎不正确used@firmo23抱歉-我应该留下
geom_线路
呼叫-现在已更新。