如何在绘图R中的SPLOM绘图中添加线

Question

我使用SPLOM选项绘制了散点图矩阵。我最终想要的是还在每个面板中添加线条以指示每个变量的平均值。但是我不确定该怎么做。

这是我想要的想法：

我用于生成散点图矩阵的代码如下：

axis = list(showline=FALSE,
        zeroline=FALSE,
        gridcolor='#ffff',
        ticklen=4)

p <- mean_vec %>%
     plot_ly() %>%
     add_trace(
     type = 'splom',
     dimensions = list(
         list(label=TeX("\\theta"), values=~theta),
         list(label=TeX("\\alpha"), values=~alpha),
         list(label=TeX("\\delta \\ \\text{(pc)}"), values=~delta),
         list(label=TeX("\\sigma \\ \\text{(pc)}"), values=~sigma)
       ),
       marker = list(
         color = 'black',
         size = 3,
         line = list(
           width = 1,
           color = 'rgb(230,230,230)'
         )
       )
     ) %>%
     layout(
       hovermode='closest',
       dragmode= 'select',
       plot_bgcolor='rgba(240,240,240, 0.95)',
       xaxis=list(domain=NULL, showline=F, zeroline=F, gridcolor='#ffff',                             ticklen=4),
       yaxis=list(domain=NULL, showline=F, zeroline=F, gridcolor='#ffff', ticklen=4),
       xaxis2=axis,
       xaxis3=axis,
       xaxis4=axis,
       yaxis2=axis,
       yaxis3=axis,
       yaxis4=axis
     ) %>%
     config(mathjax = 'cdn')


   p <- p %>% style(diagonal = list(visible = F), showupperhalf = F)

我使用的数据可以在这里找到： mean_vec

非常感谢您！