R plotly subplot 警告 'layout' 对象没有这些属性：'NA'

Question

我正在尝试组合两个情节图（type = 'mesh3d' 和 type = 'scatter3d'）。每个单独的地块都非常好，没有任何警告。在我使用 subplot 之后，每次我尝试显示绘图时都会出现警告。

警告 'layout' 对象没有这些属性：'NA'

我试过suppressWarning但是没有任何效果。

有什么想法可以消除警告吗？

情节版本：4.9.3 R 版本：4.0.1

# plot data
plt_data <- data.frame(maturity=rep(1:10, each=10),
                   tenor=rep(1:10, 10),
                   value=rnorm(100))

# plot 1
fig11 <- plot_ly(
           data=plt_data, x=~maturity, y=~tenor, z = ~value,
           type = "mesh3d",intensity = ~value,
           colors = colorRamp(c(
              rgb(168, 191, 173, max = 255),
              rgb(100, 181, 117, max = 255),
              rgb(0,100,80, max = 255)
           )),
           contour=list(show=T, width=4, color="#fff"),
           showscale = F,
           scene='scene1', 
           lighting = list(ambient = 0.9),
           hoverinfo="skip",
           source="myID"
) 


# plot 2
fig12 <- plot_ly(
           data=plt_data, x=~maturity, y=~tenor, z = ~value,
           type = "scatter3d",
           mode="markers",
           hovertemplate="Maturity: %{x:.f}<br>Tenor: %{y:.f}<br>Value: %{z:.4f}<extra></extra>",
           marker=list(
             symbol="square-open",
             size=4,
             color="#3d543f"
           ),
           scene='scene1',
           source="myID",showlegend=F
) 

# subplot which does throw a warning
subplot(fig11, fig12)

Answer 1

关于警告有an open issue。这是隐藏此案例警告的解决方法 -

function_to_hide_plotly_warning <- function(...) {
  plot <- subplot(...)
  plot$x$layout <- plot$x$layout[grep('NA', names(plot$x$layout), invert = TRUE)]
  plot
}

function_to_hide_plotly_warning(fig11, fig12)

Answer 2

对于 R 和 Shinyapps，要抑制这样的警告：

options(warn = -1)

R plotly subplot 警告 'layout' 对象没有这些属性：'NA'

R plotly subplot warning 'layout' objects don't have these attributes: 'NA'

warnings

r

plotly

r-plotly