如何在中国地图的省份上绘制柱状图

xingzhaoh 发表于 2013-9-5 16:11
可以分享一下codes吗？不胜感激

1. library(ggsubplot)
   
2. library(ggplot2)
   
3. library(maps)
   
4. library(plyr)
   
5. 
   
6. #Get world map info
   
7. world_map <- map_data("world")
   
8. 
   
9. #Create a base plot
   
10. p <- ggplot()  + geom_polygon(data=world_map,aes(x=long, y=lat,group=group))
    
11. 
    
12. # Calculate the mean longitude and latitude per region, these will be the coördinates where the plots will be placed, so you can tweak them where needed.
    
13. # Create simulation data of the age distribution per region and merge the two.
    
14. 
    
15. centres <- ddply(world_map,.(region),summarize,long=mean(long),lat=mean(lat))
    
16. mycat <- cut(runif(1000), c(0, 0.1, 0.3, 0.6, 1), labels=FALSE)
    
17. mycat <- as.factor(mycat)
    
18. age <- factor(mycat,labels=c("<15","15-30","20-60",">60"))
    
19. simdat <- merge(centres ,age)
    
20. colnames(simdat) <- c( "region","long","lat","Age" )
    
21. 
    
22. # Select the countries where you want a subplot for and plot
    
23. simdat2 <- subset(simdat, region %in% c("USA","China","USSR","Brazil", "Australia"))
    
24. (testplot <- p+geom_subplot2d(aes(long, lat, subplot = geom_bar(aes(Age, ..count.., fill = Age))), bins = c(15,12), ref = NULL, width = rel(0.8), data = simdat2))

复制代码

ggplot2, ggsubplot, plotrix 也不错... 顺道分享一下没有代码的分享。
http://stackoverflow.com/questio ... a-map-using-ggplot2

我称这种图表为地图上的迷你图，哈哈，之前做过一些~ 应该是你想要的



可以参考一下这个：数据地图+迷你图（http://t.cn/R09jCeu）

其实不太难，就是统计地图。

地图上实现柱状图、条形图和饼图，在可视化工具BDP中都是可以通过拖拽实现的，不需要代码，不会的可以交流~