plot_ly不显示散点图上的数据点

Question

我使用以下行汇总了我的数据集

d3.aggr<-aggregate(cbind(TotalGreenhouseGases,Amount) ~ AssetName+Branch,data 
= d3.filter,FUN=function(d3.filter) c(mn =sum(d3.filter), n=length(d3.filter) ) )

当我做str（d3.aggr）时，我得到以下结果

'data.frame':   165 obs. of  4 variables:
$ AssetName           : chr  "Arts Centre - Meat Market" "Arts Centre - Nth   Melb Town Hall" "Arts Centre - Nth Melb Warehouse" "Arts Centre - Signal Box" ...
$ Branch              : chr  "Arts and Culture" "Arts and Culture" "Arts and Culture" "Arts and Culture" ...
$ TotalGreenhouseGases: num [1:165, 1:2] 30.29 23.7 1.15 4.17 4.43 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : NULL
.. ..$ : chr  "mn" "n"
 $ Amount              : num [1:165, 1:2] 22.942 17.951 0.867 3.263 3.777 ...
 ..- attr(*, "dimnames")=List of 2
 .. ..$ : NULL
 .. ..$ : chr  "mn" "n"

我的数据集看起来像这样，

但是当我尝试使用plot_ly绘制它时，

plot_ly(data = d3.aggr, x = Amount, y = TotalGreenhouseGases, mode = "markers",
    color = Branch)

我的情节中没有数据点，

我收到以下警告，

警告讯息 在RColorBrewer :: brewer.pal（N，“Set2”）中：   n太大，允许最大调色板Set2为8 使用那么多颜色返回你要求的调色板

对此问题的任何帮助都将不胜感激。