gpt4 book ai didi

r - 根据geom_map 或ggplot2 中的列联表(2x2)创建一个独特的图例?

转载 作者:行者123 更新时间:2023-12-04 14:39:42 25 4
gpt4 key购买 nike

我怎样才能根据这个列联表做到这一点?我不完全确定如何根据我制作的指标表(犯罪)在 R 中创建自定义图例。

What I want to do

R 中的可重现代码:

       require(maps)

set.seed(123)
# randomly assign 2 variables to each state
mappingData <- data.frame(state = tolower(rownames(USArrests)),
iceCream = (sample(c("Likes Ice Cream","Doesn't Like Ice Cream"),50, replace=T)),
hotDogs = (sample(c("Likes Hot Dogs","Doesn't Like Hot Dogs"),50, replace=T)))

# create a 'legend' key for an indicator variable
mappingDataDF<-data.frame(
expand.grid(iceCream=c("Likes Ice Cream","Doesn't Like Ice Cream"),
hotDogs=c("Likes Hot Dogs","Doesn't Like Hot Dogs")),
indicator=c("0","1","2","3"))

mappingData<-mappingData %>% inner_join(mappingDataDF)

mappingDatam <- reshape2::melt(mappingData, id = 1)

states_map <- map_data("state")

ggplot(mappingData, aes(map_id = state)) +
geom_map(aes(fill = indicator), map = states_map) +
expand_limits(x = states_map$long, y = states_map$lat)

最佳答案

我更改了您的一些数据设置以简化示例。

library(maps)
library(dplyr)
library(ggplot2)

set.seed(123)
# randomly assign 2 variables to each state
mappingData <- data.frame(state = tolower(rownames(USArrests)),
iceCream = (sample(c("No", "Yes"), 50, replace=T)),
hotDogs = (sample(c("No", "Yes"), 50, replace=T))) %>%
mutate(indicator = interaction(iceCream, hotDogs, sep = ":"))

mappingData

            state iceCream hotDogs indicator
1 alabama No No No:No
2 alaska Yes No Yes:No
3 arizona No Yes No:Yes
4 arkansas Yes No Yes:No
...

states_map <- map_data("state")

从数据生成独立的图例
legend_ic.hd <- ggplot(mappingData, aes(iceCream, hotDogs, fill = indicator)) +
geom_tile(show.legend = F) +
scale_x_discrete("Ice cream?", expand = c(0,0)) +
scale_y_discrete("Hot dogs?", expand = c(0,0)) +
theme_minimal() +
theme(axis.text.y = element_text(angle = 90, hjust = 0.5)) +
coord_equal()

legend_ic.hd

enter image description here

然后将其用作原始 map 中的自定义注释
ggplot(mappingData, aes(map_id = state)) +
geom_map(aes(fill = indicator), map = states_map, show.legend = F) +
expand_limits(x = states_map$long, y = states_map$lat) +
coord_quickmap() +
annotation_custom(grob = ggplotGrob(legend_ic.hd),
xmin = -79, xmax = Inf,
ymin = -Inf, ymax = 33)

enter image description here

您必须手动调整注释的位置,或者:

使用 gridExtra (或 cowplot):
plot_ic.hd <- ggplot(mappingData, aes(map_id = state)) +
geom_map(aes(fill = indicator), map = states_map, show.legend = F) +
expand_limits(x = states_map$long, y = states_map$lat) +
coord_quickmap()

gridExtra::grid.arrange(grobs = list(plot_ic.hd, legend_ic.hd),
ncol = 2, widths = c(1,0.33))

enter image description here

关于r - 根据geom_map 或ggplot2 中的列联表(2x2)创建一个独特的图例?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46063337/

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