错误：较长的对象长度不是较短对象长度的倍数

Question

我有一个数据集，它具有英国不同地方的多个经度和纬度。我试图使用那些想法在地图上创建多个饼图。什么是必要的只是在地图上制作饼图。注意：如果我对纬度和经度进行硬编码，我可以制作单个饼图。

代码：

floating.pie(xpos = area$longditude,  ypos = area$Latitude,x=1,  radius=0.2, col="orange")

区域：

area <- sqlQuery(con, "SELECT top 3 geo.Latitude, geo.longditude FROM dbo.[Geography]")

数据集是：

55.9500, 3.1833
54.8659, -2.3522
54.0167, 2.6333
53.5667, 1.2000
52.8311, 1.3278
52.5000, 1.8333
52.3555, -1.1743
51.5000, 51.5000
51.4833, 3.1833
51.3167, 0.5000
50.9600, -3.2200

我得到的错误是：

Warning messages:
1: In cos(t2p) * radius + xpos :
longer object length is not a multiple of shorter object length
2: In sin(t2p) * yradius + ypos :
longer object length is not a multiple of shorter object length

注意：使用以上所有代码，我根本不会得到单独的饼图。不知道怎么做，请帮忙。 作为示例视图     plotting pie graphs on map in ggplot

你在webpaghe中看到的是我想要它几乎工作，只需要知道如何告诉R区分我使用Area提供的值并将它们正确地绘制为单个饼图。

Answer 1

我能够绘制多个浮动饼图，但我不得不使用臭名昭着的for循环。

area1<-data.frame(Longitude = c(10,30, 50), 
Latitude = c(5, 25, 50))

plot(0:100,type="n",main="Floating Pie test",xlab="",ylab="",axes=FALSE)
for(i in 1:length(area1$Longitude)){
    floating.pie(xpos = area1$Longitude[i],  
    ypos = area1$Latitude[i],edges = 200, x=1,  radius=10, col="orange")
}