令人费解的plotly散点图

项目场景：

以下是一张plotly官方网站的散点图（或叫做气泡图）及其代码（链接:https://plotly.com/r/bubble-charts/）

数据集如下:

代码如下：

library(plotly)

data <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/school_earnings.csv")

data$State <- as.factor(c('Massachusetts', 'California', 'Massachusetts', 'Pennsylvania', 'New Jersey', 'Illinois', 'Washington DC',
                          'Massachusetts', 'Connecticut', 'New York', 'North Carolina', 'New Hampshire', 'New York', 'Indiana',
                          'New York', 'Michigan', 'Rhode Island', 'California', 'Georgia', 'California', 'California'))

fig <- plot_ly(data, x = ~Women, y = ~Men, text = ~School, type = 'scatter', mode = 'markers', size = ~Gap, color = ~State, colors = 'Paired',
        marker = list(opacity = 0.5, sizemode = 'diameter'))
fig <- fig %>% layout(title = 'Gender Gap in Earnings per University',
         xaxis = list(showgrid = FALSE),
         yaxis = list(showgrid = FALSE),
         showlegend = FALSE)

fig

这张图有两个特点：
1、 点的大小各不相同，依赖于data$Gap
2、 点的颜色各不相同, 依赖于data$State

---

问题描述

运行官方代码后，图画的正确，但报出奇怪警告，4-31的颜色警告可以通过手动指定一个数量足够的颜色向量解决，但1-3的警告至今我没能理解是什么意思。

这时我将代码中的size = ~Gap放在marker = list()中，再次运行

line.width警告消失了，但更奇怪的是点的大小关系和第一次完全不同了（比如最左下角的两个红蓝点），经过与数据集的比对发现第一次的图是正确的。至今弄不明白这是怎么回事，在这里也向大家请教。