在R Markdown中使用plotly绘制scattergl散点图无点显示问题求助

我在R中用Plotly绘制散点图时，将完全相同的代码放到R Markdown中运行，输出结果差异极大：

• R环境中的散点图
• R Markdown中的散点图

原数据超过8000条，以下为前20条示例数据及绘图代码：

示例数据 #

structure(list(indice = 1:20, Media_Recomendacao = c(9, 7, 8, 
8, 7, 7, 9, 8, 0, 0, 9, 9, 6, 7, 4, 7, 8, 8, 9, 7), Media_CSAT = c(8.43, 
6.14, 7.5, 8, 6.79, 7.79, 6.93, 7.79, 5.64, 4.21, 9.29, 7.93, 
6.14, 6.29, 5.14, 6.86, 8, 7.71, 8.64, 7.21)), row.names = c(NA, 
-20L), class = c("tbl_df", "tbl", "data.frame"))

绘图代码 #

fig <- 
plot_ly(
    data = dispersion, 
    x = ~Media_CSAT,
    y = ~Media_Recomendacao,
    type = 'scattergl',
    mode = "markers",
    marker = list(color = 'grey')) %>%
layout(
    xaxis = list(
        title = "Valor CSAT",
        tickmode = "array",
        tickvals = 1:10,
        ticktext = 1:10), 
    yaxis = list(title = "Recomendação",
        tickmode = "array",
        tickvals = 1:10,
        ticktext = 1:10)
  )

fig

我无法排查问题原因，怀疑R Markdown中绘制的是x、y的均值而非散点。

内容的提问来源于stack exchange，提问作者Radupi