R 在地图上打印点，其大小取决于类别计数

我有一个关于动物服饰的数据集，在每个地方我都捕获了多种不同物种的动物。我想把这些信息绘制在地图上，这样每个点代表一个给定物种被捕获的位置，每个点的大小代表这个位置被捕获的这个物种的一些动物。除了最后一点，我可以做所有这些，根据每个类别和位置的计数区分点大小

数据：

标准ggmap绘图：

m<-get_map(location=c(lon=10.6858397, lat=32.7996318), zoom=7, color="bw")

ggmap(m, extent = "normal") +
  geom_point(aes(x = Long, y = Lat, colour = Species, size = 2), data = test)

---

m明白了！一旦你知道该去哪里找，就很容易找到；-）

继续进行对象测试：

> library(doBy)
> tdata<-summaryBy(test~Location+Species+Long+Lat, data=test, FUN=length)
> tdata

    Location  Species      Long      Lat test.length
1  Location1 Species1  7.555380 33.79994           1
2  Location1 Species1  7.564263 33.81079           1
3  Location1 Species1  7.584970 33.77976           1
4  Location1 Species2  7.542248 33.79943           3
5  Location1 Species2  7.555380 33.79994           1
6  Location1 Species2  7.562118 33.79340           1
7  Location2 Species1 13.834581 32.72319          20
8  Location2 Species1 13.857541 32.71680           3
9  Location3 Species2 11.377850 33.20891           5
10 Location4 Species1 13.179328 32.83438          14

> ggmap(m, extent = "normal") +
+     geom_point(aes(x = Long, y = Lat, colour = Species, size = test.length), data = data)

>库（doBy）
>tdata tdata
位置物种长Lat试验。长度
1位置1规格1 7.555380 33.79994 1
2位置1规格1 7.564263 33.81079 1
3位置1规格1 7.584970 33.77976 1
4位置1规格2 7.542248 33.79943 3
5位置1规格2 7.555380 33.79994 1
6位置1规范2 7.562118 33.79340 1
7位置2规格1 13.834581 32.72319 20
8位置2规格1 13.857541 32.71680 3
9位置3规格2 11.377850 33.20891 5
10位置4规格1 13.179328 32.83438 14
>ggmap（m，extent=“normal”）+
+几何点（aes（x=长度，y=纬度，颜色=种类，尺寸=试验长度），数据=数据）


非常感谢@MLavoie。
只需总结您的数据集，然后绘制这个新的总结数据集。您是指plyr软件包中的总结（）吗？是的，请参阅
> library(doBy)
> tdata<-summaryBy(test~Location+Species+Long+Lat, data=test, FUN=length)
> tdata

    Location  Species      Long      Lat test.length
1  Location1 Species1  7.555380 33.79994           1
2  Location1 Species1  7.564263 33.81079           1
3  Location1 Species1  7.584970 33.77976           1
4  Location1 Species2  7.542248 33.79943           3
5  Location1 Species2  7.555380 33.79994           1
6  Location1 Species2  7.562118 33.79340           1
7  Location2 Species1 13.834581 32.72319          20
8  Location2 Species1 13.857541 32.71680           3
9  Location3 Species2 11.377850 33.20891           5
10 Location4 Species1 13.179328 32.83438          14

> ggmap(m, extent = "normal") +
+     geom_point(aes(x = Long, y = Lat, colour = Species, size = test.length), data = data)