r - RのonRender（）htmlWidgetsの散布図で線の太さと不透明度を変更する

Question

R パッケージ htmlwidgets の onRender() 関数を使用して、ユーザーが点をクリックすると線が描画されるプロットを作成したいと考えています。私は現在、灰色の線がデフォルトの太さで、おそらくデフォルトの不透明度で描かれているという核心を持っています。

ただし、線の太さを変更することに固執しています（線の不透明度を変更する可能性がありますが、機能している可能性があり、線が非常に細いため表示できません）。線を非常に太く、かなり透明にしたいです。線幅と不透明度についていくつかのパラメーターとアプローチを試しましたが (一部は以下にコメントアウトされています)、違いはないようです。私が見逃している可能性のあるアイデアはありますか？ありがとうございました。

library(plotly)
library(broom)

dat <- mtcars
dat$mpg <- dat$mpg * 10

p <- ggplot(data = dat, aes(x=disp,y=mpg)) + geom_point(size=0.5)

ggplotly(p) %>%
  onRender("
           function(el, x, data) {
            // reduce the opacity of every trace except for the hover one
            el.on('plotly_click', function(e) {

              var trace1 = {
                 x: [100, 400],
                 y: [100, 400],
                 mode: 'lines',
                 //line: dict(color: 'gray', width: 100)
                 marker: {
                   color: 'gray',
                   size: 200,
                   width: 1000,
                   opacity: 0.5
                 }
              }
              Plotly.addTraces(el.id, trace1);
           })
          }
          ", data=dat)