如何更改绘图尖峰线周围的白色边框颜色

Question

有没有办法消除尖峰线周围的以下意外白色边框？当绘图放置在深色背景上时，就会出现此问题。

我已经看到这是一个悬而未决的问题，但我想知道这是否可以使用某种方式进行修改css。

代码：

library(shiny)
library(plotly)

ui <- fluidPage(
  fluidRow(style = "background-color:#000000;",
           plotlyOutput(outputId = "myplot")
  )
)

server <- function(input, output) {

  output$myplot <- renderPlotly({

    mydata <- data.frame(x = rnorm(10), y = rnorm(10))

    fig <- plot_ly(data = mydata, x = ~x, y = ~y) %>%
             layout(hovermode = "solid",
                    xaxis = list(showspikes=TRUE, spikethickness = 2),
                    paper_bgcolor = "transparent",  # Looks ok if set to "black"
                    plot_bgcolor = "transparent")
  })
}

shinyApp(ui = ui, server = server)

边界：