gpt4 book ai didi

r - 使用ggplot2在 map 上绘制条形图?

转载 作者:行者123 更新时间:2023-12-03 14:00:38 25 4
gpt4 key购买 nike

我想使用 ggplot2 为 map 上的每个位置生成一个条形图,
正如 xingmowang 使用基本图形和一些软件包所做的那样:

http://nzprimarysectortrade.wordpress.com/2011/10/02/let-r-fly-visualizing-export-data-using-r/

enter image description here

这与 Embedding a miniature plot within a plot 有关.

目前,我能做的最好的是将值与抖动点图中的点大小匹配:

require(ggplot2)
require(maps)

#Get world map info
world_map <- map_data("world")

#Creat a base plot
p <- ggplot() + coord_fixed()

#Add map to base plot
base_world <- p + geom_polygon(data=world_map,
aes(x=long,
y=lat,
group=group))


#Create example data
geo_data <- data.frame(long=c(20,20,100,100,20,20,100,100),
lat=c(0,0,0,0,0,0,0,0),
value=c(10,30,40,50,20,20,100,100),
Facet=rep(c("Facet_1", "Facet_2"), 4),
colour=rep(c("colour_1", "colour_2"), each=4))

#Creat an example plot
map_with_jitter <- base_world+geom_point(data=geo_data,
aes(x=long,
y=lat,
colour=colour,
size=value),
position="jitter",
alpha=I(0.5))

#Add faceting
map_with_jitter <- map_with_jitter + facet_wrap(~Facet)

map_with_jitter <- map_with_jitter + theme(legend.position="none")

print(map_with_jitter)

Example map plot with ggplot2

使用不优雅的解决方法:
subset_data <- geo_data[geo_data$Facet=="Facet_1" &
geo_data$long=="20",]
subplot <- qplot(data=subset_data,
x=colour,
y=value,
fill=colour,
geom="bar",
stat="identity")+theme(legend.position="none")

print(base_world)
print(subplot, vp=viewport((200+mean(subset_data$long))/400,(100+mean(subset_data$lat))/200 , .2, .2))

enter image description here

最佳答案

2016 年 12 月 23 日更新 : ggsubplot -package 不再被积极维护并且是 archived on CRAN :

Package ‘ggsubplot’ was removed from the CRAN repository.>
Formerly available versions can be obtained from the archive.>
Archived on 2016-01-11 as requested by the maintainer garrett@rstudio.com.


ggsubplot不适用于 R 版本 >= 3.1.0。安装 R 3.0.3 以运行以下代码:

您确实可以通过 ggsubplot 来实现此目的。像巴蒂斯特建议的包装。
library(ggsubplot)
library(ggplot2)
library(maps)
library(plyr)

#Get world map info
world_map <- map_data("world")

#Create a base plot
p <- ggplot() + geom_polygon(data=world_map,aes(x=long, y=lat,group=group))

# 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.
# Create simulation data of the age distribution per region and merge the two.

centres <- ddply(world_map,.(region),summarize,long=mean(long),lat=mean(lat))
mycat <- cut(runif(1000), c(0, 0.1, 0.3, 0.6, 1), labels=FALSE)
mycat <- as.factor(mycat)
age <- factor(mycat,labels=c("<15","15-30","20-60",">60"))
simdat <- merge(centres ,age)
colnames(simdat) <- c( "region","long","lat","Age" )

# Select the countries where you want a subplot for and plot
simdat2 <- subset(simdat, region %in% c("USA","China","USSR","Brazil", "Australia"))
(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))

结果: enter image description here

关于r - 使用ggplot2在 map 上绘制条形图?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16028659/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com