r - 更改堆积条形图的颜色,但保持每个类的堆栈按递增顺序排列
问题描述
我一直在尝试创建一个堆积条形图,其中绘图的颜色与地图中的颜色相关。基本上,我有一个给定多边形覆盖的区域的比例。我已经提前对我的dfProportion
进行了排序,因此每个堆栈都按降序排列Class
。如果将填充的值设置为连续变量,即Cluster
(但我不能更改堆栈的特定颜色),并且如果我将它们转换为因子Clu
,那么堆栈的顺序就会丢失或者我可以管理对它们进行排序,但不是针对每个类对整个图进行排序......同样的Cluster
情况可能发生在不同的类中,即集群二
Num Class Cluster Proportion Clu Order consec
1 9 Class_9 2 0.859 Two 1 1
2 9 Class_9 5 0.141 Five 2 2
3 10 Class_10 2 0.622 Two 1 3
4 10 Class_10 1 0.179 One 2 4
5 10 Class_10 7 0.165 Seven 3 5
6 10 Class_10 6 0.034 Six 4 6
7 11 Class_11 7 1.000 Seven 1 7
8 12 Class_12 2 0.571 Two 1 8
9 12 Class_12 8 0.289 Eight 2 9
10 12 Class_12 1 0.140 One 3 10
11 13 Class_13 8 0.581 Eight 1 11
12 13 Class_13 4 0.210 Four 2 12
13 13 Class_13 2 0.112 Two 3 13
14 13 Class_13 3 0.079 Three 4 14
15 13 Class_13 5 0.018 Five 5 15
我已经设法用代码走了这么远。
cols<-c(One='Blue',Two='Red',Three='Yellow',Four='lightblue',Five='darkgrey',Six='Black', Seven='cyan',Eight='Green')
ggplot(Tx, aes(x=Class, y=Proportion, fill= Clu)) +
geom_col(width = .7, colour="black", lwd=0.1) +
geom_text(aes(label=ifelse(Proportion >= 0.05, sprintf("%.2f",Proportion),"")),
position=position_stack(vjust=0.5), colour="white") +
coord_flip() +
scale_y_continuous(labels = function(y) paste0(y))+
scale_fill_manual(values = cols)+
labs(y="", x="")
总而言之,我想要一个图表,其中每个类的比例按递增顺序排列,但我为每个集群指定颜色
解决方案
一种选择(与您的想法略有不同)是使用position.dodge
and tidytext::reorder_within
。
library(tidyverse)
library(tidytext)
cols<-c('Blue','Red','Yellow','lightblue','darkgrey','Black', 'cyan', 'Green')
Tx %>%
mutate(Cluster2 = reorder_within(Cluster, Proportion, Class)) %>%
ggplot(aes(Cluster2, Proportion, fill = as.factor(Cluster))) +
geom_col(position = position_dodge2(preserve = "single")) +
scale_x_reordered() +
scale_fill_manual(values = cols) +
coord_flip() +
facet_grid(Class~., scales = 'free_y', space = 'free')
如果您确实需要具有不同顺序的堆叠条,另一种选择是分别为每个类生成图(允许正确的顺序),然后将它们全部堆叠在一起。这可以使用cowplot::plot_grid
和来完成cowplot::get_legend
。
生成具有正确顺序的绘图列表并将它们堆叠到一个绘图中。
library(tidyverse)
library(cowplot)
Tx2 <- Tx %>%
mutate(Cluster = factor(Cluster))
cols<-c(One='Blue',Two='Red',Three='Yellow',Four='lightblue',Five='darkgrey',Six='Black', Seven='cyan',Eight='Green')
p_list <- lapply(unique(Tx2$Class), function(x){
p <- Tx2 %>%
filter(Class == x) %>%
ggplot(aes(Class, Proportion, fill = reorder(Clu, -Proportion))) +
geom_col(color = 'black') +
geom_text(aes(label=ifelse(Proportion >= 0.05, sprintf("%.2f",Proportion),"")),
position=position_stack(vjust=0.5),
color = 'white') +
coord_flip() +
scale_fill_manual(values = cols) +
labs(x = NULL, y = NULL) +
theme_minimal() +
theme(legend.position = 'none')
if (x != 'Class_13') p <- p + theme(axis.text.x = element_blank())
p
})
p_col <- plot_grid(plotlist = p_list,
ncol = 1,
align = 'v',
rel_heights = c(rep(1,4), 1.2))
生成要使用的图例。
p <- ggplot(Tx2, aes(Class, Proportion, fill = reorder(Clu, as.numeric(Cluster)))) +
geom_col(color = 'black') +
scale_fill_manual(values = cols, labels= 1:8, name = 'Cluster')
l <- cowplot::get_legend(p)
将堆叠的图和图例放在一起。
plot_grid(p_col, l, rel_widths = c(3, .4))
数据
Tx <- read.table(text =
' Num Class Cluster Proportion Clu Order consec
1 9 Class_9 2 0.859 Two 1 1
2 9 Class_9 5 0.141 Five 2 2
3 10 Class_10 2 0.622 Two 1 3
4 10 Class_10 1 0.179 One 2 4
5 10 Class_10 7 0.165 Seven 3 5
6 10 Class_10 6 0.034 Six 4 6
7 11 Class_11 7 1.000 Seven 1 7
8 12 Class_12 2 0.571 Two 1 8
9 12 Class_12 8 0.289 Eight 2 9
10 12 Class_12 1 0.140 One 3 10
11 13 Class_13 8 0.581 Eight 1 11
12 13 Class_13 4 0.210 Four 2 12
13 13 Class_13 2 0.112 Two 3 13
14 13 Class_13 3 0.079 Three 4 14
15 13 Class_13 5 0.018 Five 5 15')
推荐阅读
- android - 在 Android Kivy 上隐藏时将键盘绑定到 TextInput
- r - 使用 ggplot 和 plotly 在 R 中绘制 2 个数据集时出错
- sas - SAS 中的智能感知
- excel - vba 损坏文件的验证列表
- javascript - 如何在 Javascript 中读取 { [native code] }?
- scala - 从 Scala 运行时,第二个 CLI 命令不起作用
- linux - 使用 fail2ban 保护 VPS
- python - 拆分python列表并与特定项目大小合并在一起
- sql - CrossTab 查询空的地方
- javascript - 如何通过具有相同字符串的属性对嵌套对象进行排序,以升序移动值并在 JavaScript 中创建 ID