R 使用ggvis根据一列更改点的大小

我正在寻找根据列的值绘制点的方法，因此一些点会比其他点大。我可以在ggvis中完成，如下所示，但大小之间的差异还不够显著

我试图在ggvis中重现这个情节。

server%
添加_轴（“y”，title=“生育率”）%>%
添加图例（“填充”，title=“Region”，properties=legend\u props（图例=列表（y=150）））%>%
添加_图例（“大小”，title=“人口”，属性=图例_道具（图例=列表（y=50）））%>%
添加工具提示（悬停，“悬停”）%>%
缩放数值（“x”，域=c（限制$lifemin，限制$lifemax），尼斯=F）%>%
缩放数值（“y”，域=c（限制$FELTITYMIN，限制$FELTITYMAX），nice=F）%>%
设置选项（持续时间=0）%>%
绑定闪亮（“ggvis”、“ggvis\u ui”）
}

我的情节是这样的：

有关数据，请访问：

---

谢谢你的帮助

scale\u numeric

函数控制最大和最小尺寸

mtcars  %>% 
   ggvis(~wt,~mpg,size=~mpg) %>% 
   scale_numeric('size',domain = c(10,40),range=c(100,1000)) %>%
   layer_points()

range

设置最小和最大大小，

domain

设置数据范围。默认情况下，您不需要这样做

---

关于您的可复制示例的一些注意事项：作为一个试图提供帮助的人，我无法运行您的代码并对其进行修补，因为1。它作为闪亮应用程序的一半（仅服务器代码）和2提供。数据不容易访问。您的问题是无法设置数据范围。如果第三方能够以最简单的形式复制您的问题，他们会更容易帮助您

请显示您正在使用的代码。还要添加一个小样本数据，使所有内容都可复制。@RomanLuštrik添加了详细信息！谢谢图的大小似乎有所不同。问题是，ggvis是绘制圆的大小，还是绘制绘图的半径？您能否以易于复制/粘贴的方式提供数据和代码？闪亮的应用程序对于演示您所追求的东西并不是真正必要的。

mtcars  %>% 
   ggvis(~wt,~mpg,size=~mpg) %>% 
   scale_numeric('size',domain = c(10,40),range=c(100,1000)) %>%
   layer_points()