R：图例未显示在ggplotly地图中

Question

我用ggplot制作了一个地图，根据我的数据帧中的Freq值，以不同的大小显示了地图上的点：

Longitude   Latitude    Result  Freq
4.690000    51.97400    Neg     1
6.040604    51.66494    Neg     23
6.87448     52.31593    Neg     4

我的ggplot代码：

TestObject = ggplot() + 
  geom_polygon(data=Neth, 
               aes(long,lat,group=group), 
               fill="whitesmoke")+
  geom_path(data=Neth, 
            aes(long,lat, group=group), 
            color="black", size=0.3) +
  theme(aspect.ratio=1)+
  theme_opts + 
  geom_point(data=df, 
             aes(x=Longitude, y=Latitude, size=Freq),
             colour="red", fill = "violetred2", pch=21, alpha=I(0.65)) + 
  scale_size(range = c(3,10)) 

“ Neth”是我下载的GADM地图。这就是我的ggplot与实际数据的外观：

当我在该ggplot上使用ggplotly时，表示点大小的图例消失了：

ggplotly(TestObject, width=700, height=700)

这是我的ggplotly最终的样子：

有什么方法可以向该ggplotly添加图例或维护我的ggplot图例？

Answer 1

您可以将 let data = { "list": [ { "name": "my Name", "id": 12, "type": "car owner" }, { "name": "my Name2", "id": 13, "type": "car owner2" }, { "name": "my Name4", "id": 14, "type": "car owner3" }, { "name": "my Name4", "id": 15, "type": "car owner5" } ] } let input='my Name' console.log(data.list.filter(record => record.name===input).map(record=>record.name));添加为layout