本文介绍了酒吧将在地图上绘制的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧! 问题描述 29岁程序员,3月因学历无情被辞! 我想在这个页面上绘制地图上的barchart: http://docs.oracle.com/cd/E16162_01/web.1112/e16181/dv_map.htm#BEHHAFEJI want to draw barchart over map as on this page: http://docs.oracle.com/cd/E16162_01/web.1112/e16181/dv_map.htm#BEHHAFEJ我使用以下数据和代码,但它不工作。I used following data and code but it is not working.ddf = read.table(header=T, sep=",", text="country, val1, val2, val3Nigeria,5,10,8China,8,12,20Brazil,15,9,20Italy,9,25,5Australia,15,5,25")require (rworldmap)sPDF <- joinCountryData2Map(ddf , joinCode = "NAME" , nameJoinColumn = "country" , verbose = TRUE)mapBars( sPDF, , nameZs=c(ddf$val1, ddf$val2, ddf$val3) , symbolSize=4 )我该如何更正?请帮忙。How can I correct this? Please help.编辑:我尝试使用下面的答案中的代码,但我收到一个空的窗口,错误: par(plt = c(xyx,xyy),new = TRUE)中的错误:为图形参数plt指定的无效值I tried using code in answer below but I am getting an empty window plot with error: Error in par(plt = c(xyx, xyy), new = TRUE) : invalid value specified for graphical parameter "plt"推荐答案你可以尝试使用子图:# ...plot(getMap())df <- merge(x=ddf, y=sPDF@data[sPDF@data$ADMIN, c("ADMIN", "LON", "LAT")], by.x="country", by.y="ADMIN", all.x=TRUE)require(TeachingDemos)for (i in 1:nrow(df)) subplot(barplot(height=as.numeric(as.character(unlist(df[i, 2:4], use.names=F))), axes=F, col=rainbow(3), ylim=range(df[,2:4])), x=df[i, 'LON'], y=df[i, 'LAT'], size=c(.3, .3))legend("topright", legend=names(df[, 2:4]), fill=rainbow(3)) 这篇关于酒吧将在地图上绘制的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持! 上岸,阿里云!
09-05 15:22
查看更多