具有多个Y轴的Plotly R热图

Question

所以，我正试图在Plotly的热图上叠加几条曲线。如果新曲线没有不同的y轴，我可以这样做，但当我尝试添加第二个y轴时，热图消失。谁能告诉我我做错了什么？我已经玩了添加跟踪和各种控制参数的顺序，没有任何作用。下面是我正在使用的代码，以及一些图片。

# Basic heatmap, pic1            
p <- plot_ly() %>% add_heatmap(x=time, y=freq, z=log(spec, base=10))

# Adding first trace, pic2
for (i in cp3c279){
  p <- add_trace(p, y=c(0,0.5), x=i, name='Change Point',type='scatter', mode='lines', line=list(color='red', width=1), showlegend=FALSE)
}

# Add new curve, pic3
add_trace(p, x=time, y=flux, type='scatter', mode='lines', showlegend=FALSE, yaxis='y2')
# Format axes, pic4
p <- layout(p, xaxis=list(title='Time', showgrid=FALSE), yaxis=list(title='Frequency', type='log'), yaxis2=list(title='Flux', side='right', showgrid=FALSE)

我无法将图片嵌入到这篇文章中，所以这里有链接：

pic1：

pic2：

pic3：

pic4：