订购并填充 2 个不同的变量 geom_bar ggplot2 R
order and fill with 2 different variables geom_bar ggplot2 R
我对 ggplot2 包 geom_bar 中的填充字段有疑问。
我想用一个变量填充我的 geom_bar（在下一个示例中，该变量称为 var_fill）但是用另一个变量（称为 [=19] =] 在示例中）。
我该怎么做？
非常感谢！
示例：
rm(list=ls())
set.seed(1)
library(dplyr)
data_ex <- diamonds %>%
group_by(cut, clarity) %>%
summarise(count = n()) %>%
ungroup() %>%
mutate(var_fill= LETTERS[sample.int(3, 40, replace = TRUE)])
head(data_ex)
# A tibble: 6 x 4
cut clarity count var_fill
<ord> <ord> <int> <chr>
1 Fair I1 210 A
2 Fair SI2 466 B
3 Fair SI1 408 B
4 Fair VS2 261 C
5 Fair VS1 170 A
6 Fair VVS2 69 C
我想要这个盒子的顺序[清晰度]：
library(ggplot2)
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=clarity),stat = "identity", position = "fill", color="black")
使用方框的这种填充（颜色）[var_fill]：
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill),stat = "identity", position = "fill", color="black")
EDIT1：误用找到的答案：
p1 <- ggplot(data_ex) + geom_bar(aes(x = cut, y = count, group = clarity, fill = var_fill), stat = "identity", position = "fill", color="black")+ ggtitle("var fill")
p2 <- ggplot(data_ex) + geom_bar(aes(x = cut, y = count, fill = clarity), stat = "identity", position = "fill", color = "black")+ ggtitle("clarity")
library(cowplot)
cowplot::plot_grid(p1, p2)
EDIT2：现在我尝试在 missuse
的帮助下使用 ggmosaic 扩展来做到这一点
rm(list=ls())
set.seed(1)
library(ggplot2)
library(dplyr)
library(ggmosaic)
data_ex <- diamonds %>%
group_by(cut, clarity) %>%
summarise(count = n()) %>%
ungroup() %>%
mutate(residu= runif(nrow(.), min=-4.5, max=5)) %>%
mutate(residu_classe = case_when(residu < -4~"< -4 (p<0.001)",(residu >= -4 & residu < -2)~"[-4;-2[ (p<0.05)",(residu >= -2 & residu < 2)~"[-2;2[ non significatif",(residu >= 2 & residu < 4)~"[2;4[ (p<0.05)",residu >= 4~">= 4 (p<0.001)")) %>%
mutate(residu_color = case_when(residu < -4~"#D04864",(residu >= -4 & residu < -2)~"#E495A5",(residu >= -2 & residu < 2)~"#CCCCCC",(residu >= 2 & residu < 4)~"#9DA8E2",residu >= 4~"#4A6FE3"))
ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist() +
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")
但我想在图的右侧添加这个图例（下方），但我不知道该怎么做，因为填充字段在 aes 之外，所以 scale_fill_manual 不起作用。 ..
你快到了！你只需在 aes 中指定顺序，所以它会是这样的：
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill, order=clarity),stat = "identity", position = "fill", color="black")
一切顺利。
使用群体审美：
p1 <- ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, group = clarity, fill = var_fill),
stat = "identity", position = "fill", color="black") + ggtitle("var fill")
p2 <- ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill = clarity), stat = "identity", position = "fill", color = "black")+
ggtitle("clarity")
library(cowplot)
cowplot::plot_grid(p1, p2)
编辑：使用 ggmosaic
library(ggmosaic)
p3 <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill=var_fill), na.rm=T)+
scale_x_productlist()
p4 <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill=clarity,), na.rm=T)+
scale_x_productlist()
cowplot::plot_grid(p3, p4)
在我看来，对于 ggmosaic，根本不需要该组，两个图都颠倒了
geom_bar.
的版本
编辑 3：
在 aes 之外定义 fill 修复了以下问题：
1) X轴可读性
2) 删除每个矩形边框中非常小的彩色线条
data_ex %>%
mutate(color = ifelse(var_fill == "A", "#0073C2FF", ifelse(var_fill == "B", "#EFC000FF", "#868686FF"))) -> try2
ggplot(try2) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = try2$color, na.rm=T)+
scale_x_productlist()
要添加 y 轴标签，需要一些争论。这是一个方法：
ggplot(try2) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = try2$color, na.rm=T)+
scale_x_productlist()+
scale_y_continuous(sec.axis = dup_axis(labels = unique(try2$clarity),
breaks = try2 %>%
filter(cut == "Ideal") %>%
mutate(count2 = cumsum(count/sum(count)),
lag = lag(count2)) %>%
replace(is.na(.), 0) %>%
rowwise() %>%
mutate(post = sum(count2, lag)/2)%>%
select(post) %>%
unlist()))
EDIT4：添加图例可以通过两种方式完成。
1 - 通过添加一个假图层来生成图例 - 然而这会产生 x 轴标签问题（它们是切割和填充的组合）因此我定义了手动中断和标签
data_ex 来自 OP edit2
ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill = residu_classe), alpha=0, na.rm=T)+
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist()+
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")+
scale_fill_manual(values = unique(data_ex$residu_color), breaks = unique(data_ex$residu_classe))+
guides(fill = guide_legend(override.aes = list(alpha = 1)))+
scale_x_productlist(breaks = data_ex %>%
group_by(cut) %>%
summarise(sumer = sum(count)) %>%
mutate(sumer = cumsum(sumer/sum(sumer)),
lag = lag(sumer)) %>%
replace(is.na(.), 0) %>%
rowwise() %>%
mutate(post = sum(sumer, lag)/2)%>%
select(post) %>%
unlist(), labels = unique(data_ex$cut))
2 - 通过从一个图中提取图例并将其添加到另一个图中
library(gtable)
library(gridExtra)
为传说制作假情节：
gg_pl <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill = residu_classe), alpha=1, na.rm=T)+
scale_fill_manual(values = unique(data_ex$residu_color), breaks = unique(data_ex$residu_classe))
做出正确的情节
z = ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist()+
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")
a.gplot <- ggplotGrob(gg_pl)
tab <- gtable::gtable_filter(a.gplot, 'guide-box', fixed=TRUE)
gridExtra::grid.arrange(z, tab, nrow = 1, widths = c(4,1))
在当前版本的 ggplot2 3.3.0 中这应该可以工作
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill, group=clarity),stat = "identity", position = "fill", color="black")
我对 ggplot2 包 geom_bar 中的填充字段有疑问。
我想用一个变量填充我的 geom_bar（在下一个示例中，该变量称为 var_fill）但是用另一个变量（称为 [=19] =] 在示例中）。
我该怎么做？
非常感谢！
示例：
rm(list=ls())
set.seed(1)
library(dplyr)
data_ex <- diamonds %>%
group_by(cut, clarity) %>%
summarise(count = n()) %>%
ungroup() %>%
mutate(var_fill= LETTERS[sample.int(3, 40, replace = TRUE)])
head(data_ex)
# A tibble: 6 x 4
cut clarity count var_fill
<ord> <ord> <int> <chr>
1 Fair I1 210 A
2 Fair SI2 466 B
3 Fair SI1 408 B
4 Fair VS2 261 C
5 Fair VS1 170 A
6 Fair VVS2 69 C
我想要这个盒子的顺序[清晰度]：
library(ggplot2)
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=clarity),stat = "identity", position = "fill", color="black")
使用方框的这种填充（颜色）[var_fill]：
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill),stat = "identity", position = "fill", color="black")
EDIT1：误用找到的答案：
p1 <- ggplot(data_ex) + geom_bar(aes(x = cut, y = count, group = clarity, fill = var_fill), stat = "identity", position = "fill", color="black")+ ggtitle("var fill")
p2 <- ggplot(data_ex) + geom_bar(aes(x = cut, y = count, fill = clarity), stat = "identity", position = "fill", color = "black")+ ggtitle("clarity")
library(cowplot)
cowplot::plot_grid(p1, p2)
EDIT2：现在我尝试在 missuse
的帮助下使用 ggmosaic 扩展来做到这一点rm(list=ls())
set.seed(1)
library(ggplot2)
library(dplyr)
library(ggmosaic)
data_ex <- diamonds %>%
group_by(cut, clarity) %>%
summarise(count = n()) %>%
ungroup() %>%
mutate(residu= runif(nrow(.), min=-4.5, max=5)) %>%
mutate(residu_classe = case_when(residu < -4~"< -4 (p<0.001)",(residu >= -4 & residu < -2)~"[-4;-2[ (p<0.05)",(residu >= -2 & residu < 2)~"[-2;2[ non significatif",(residu >= 2 & residu < 4)~"[2;4[ (p<0.05)",residu >= 4~">= 4 (p<0.001)")) %>%
mutate(residu_color = case_when(residu < -4~"#D04864",(residu >= -4 & residu < -2)~"#E495A5",(residu >= -2 & residu < 2)~"#CCCCCC",(residu >= 2 & residu < 4)~"#9DA8E2",residu >= 4~"#4A6FE3"))
ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist() +
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")
但我想在图的右侧添加这个图例（下方），但我不知道该怎么做，因为填充字段在 aes 之外，所以 scale_fill_manual 不起作用。 ..
你快到了！你只需在 aes 中指定顺序，所以它会是这样的：
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill, order=clarity),stat = "identity", position = "fill", color="black")
一切顺利。
使用群体审美：
p1 <- ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, group = clarity, fill = var_fill),
stat = "identity", position = "fill", color="black") + ggtitle("var fill")
p2 <- ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill = clarity), stat = "identity", position = "fill", color = "black")+
ggtitle("clarity")
library(cowplot)
cowplot::plot_grid(p1, p2)
编辑：使用 ggmosaic
library(ggmosaic)
p3 <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill=var_fill), na.rm=T)+
scale_x_productlist()
p4 <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill=clarity,), na.rm=T)+
scale_x_productlist()
cowplot::plot_grid(p3, p4)
在我看来，对于 ggmosaic，根本不需要该组，两个图都颠倒了 geom_bar.
的版本编辑 3：
在 aes 之外定义 fill 修复了以下问题：
1) X轴可读性
2) 删除每个矩形边框中非常小的彩色线条
data_ex %>%
mutate(color = ifelse(var_fill == "A", "#0073C2FF", ifelse(var_fill == "B", "#EFC000FF", "#868686FF"))) -> try2
ggplot(try2) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = try2$color, na.rm=T)+
scale_x_productlist()
要添加 y 轴标签，需要一些争论。这是一个方法：
ggplot(try2) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = try2$color, na.rm=T)+
scale_x_productlist()+
scale_y_continuous(sec.axis = dup_axis(labels = unique(try2$clarity),
breaks = try2 %>%
filter(cut == "Ideal") %>%
mutate(count2 = cumsum(count/sum(count)),
lag = lag(count2)) %>%
replace(is.na(.), 0) %>%
rowwise() %>%
mutate(post = sum(count2, lag)/2)%>%
select(post) %>%
unlist()))
EDIT4：添加图例可以通过两种方式完成。
1 - 通过添加一个假图层来生成图例 - 然而这会产生 x 轴标签问题（它们是切割和填充的组合）因此我定义了手动中断和标签
data_ex 来自 OP edit2
ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill = residu_classe), alpha=0, na.rm=T)+
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist()+
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")+
scale_fill_manual(values = unique(data_ex$residu_color), breaks = unique(data_ex$residu_classe))+
guides(fill = guide_legend(override.aes = list(alpha = 1)))+
scale_x_productlist(breaks = data_ex %>%
group_by(cut) %>%
summarise(sumer = sum(count)) %>%
mutate(sumer = cumsum(sumer/sum(sumer)),
lag = lag(sumer)) %>%
replace(is.na(.), 0) %>%
rowwise() %>%
mutate(post = sum(sumer, lag)/2)%>%
select(post) %>%
unlist(), labels = unique(data_ex$cut))
2 - 通过从一个图中提取图例并将其添加到另一个图中
library(gtable)
library(gridExtra)
为传说制作假情节：
gg_pl <- ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut), fill = residu_classe), alpha=1, na.rm=T)+
scale_fill_manual(values = unique(data_ex$residu_color), breaks = unique(data_ex$residu_classe))
做出正确的情节
z = ggplot(data_ex) +
geom_mosaic(aes(weight= count, x=product(clarity, cut)), fill = data_ex$residu_color, na.rm=T)+
scale_y_productlist()+
theme_classic() +
theme(axis.ticks=element_blank(), axis.line=element_blank())+
labs(x = "cut",y="clarity")
a.gplot <- ggplotGrob(gg_pl)
tab <- gtable::gtable_filter(a.gplot, 'guide-box', fixed=TRUE)
gridExtra::grid.arrange(z, tab, nrow = 1, widths = c(4,1))
在当前版本的 ggplot2 3.3.0 中这应该可以工作
ggplot(data_ex) +
geom_bar(aes(x = cut, y = count, fill=var_fill, group=clarity),stat = "identity", position = "fill", color="black")