0

我想在我的文字图中添加各种饼图

我的地图基地：

malDF <- data.frame(country = c("USA", "CAN", "MEX","ALA","GRL",
                            "NIC","GUY","SUR","GUF", "URY","VEN","HND","ARG","BMU","BOL","BRA","CHL","COL","CRI","CUB","ECU","SLV","PAN","PRY","PER","TTO", "GTM","HTI","DOM", "PAN","NIC",
                            "AND","AUT","BEL","BLR","BGR","HRV","CZE","DNK","EST","FIN","FRA","GEO","DEU","GRC","ISL","HUN","IRL","ITA","LVA","LIE","LTU","LUX","MLT","MCO","MNE","NLD","NOR","POL","PRT","MDA","ROU","SRB","SVK","SVN","ESP","TUR","GBR","SWE","CHE","ALB","BIH","UKR",
                            "ZAF","DZA","AGO","BEN","BWA","BFA","BDI","CMR","TCD","CAF","COG","CIV","COD","DJI","ERI","ETH","EGY","GAB","GMB","GHA","GNB","KEN","LBR","MRT","MAR","MOZ","NAM","NGA","RWA","SEN","SYC","MDG","TGO","UGA","TZA","ESH","ZMB","ZWE","MLI","LBY","NER","SOM","SDN","TUN","GIN","SLE","MWI",
                            "CXR","COK","AUS","FJI","KIR","NRU","NZL","PLW","PNG","WSM","SLB","TON","TUV","VUT","GUM","FSM",
                            "AFG","ARM","AZE","BGD","HKG","IND","IDN","IRN","IRQ","JPN","KAZ","PRK","KOR","KWT","KGZ","LSO","LBN","MAC","MYS","OMN","PAK","PSE","PHL","QAT","RUS","SAU","SGP","LKA","SYR","TWN","TJK","THA","UZB","VNM","YEM","KHM","CHN","MNG","MMR","LAO","TKM","ARE","SYR"),
                North_america = c("North America", "North America","North America", "North America","North America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America","Central/South America",
                                  "Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe","Europe",
                                  "Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa","Africa",
                                  "Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands","Oceania/Pacific Islands",
                                  "Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia","Asia"))

malMap <- joinCountryData2Map(malDF, joinCode = "ISO3",
                          nameJoinColumn = "country")
map <-mapCountryData(malMap, nameColumnToPlot="North_america", catMethod = "categorical", addLegend='FALSE',
                 missingCountryCol = gray(.8),border = NA, colourPalette = c("red","blue","green","yellow","brown","pink"))

我有各种饼图可以添加到这张地图中

Oceania2 <- Oceania2 %>% group_by(Implementation) %>% summarise(costes= sum(cost_bil))

Oceania2

costes <- Oceania2$costes

Implementation <- Oceania2$Implementation

pie(costes ,labels = Implementation, col = rainbow(length(costes)))

例如在澳大利亚

structure(list(Implementation = c("Observed", "Potential"), costes = c(3.45520843706, 
6.8769402446)), row.names = c(NA, -2L), class = c("tbl_df", "tbl", 

"data.frame"))

感谢所有帮助，

4

0 回答 0