有什么办法可以对ggplot2
geom_rect()
图层进行百分比堆积图?我有坐标,所以我创建了一个形状,我也有我的分离变量t
,现在我想根据的出现填充该形状t
。换句话说,我想使用百分比堆叠的条形图,但是要用条形图而不是自定义形状(在我的情况下是简单的矩形)。我一直在试验position="fill"
,stat="identity"
以及它们的品种,但没有成功。我想知道是否可能,如果可以,我如何实现?
df <- structure(list(x1 = c(4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3,
3, 3), x2 = c(6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 4, 4, 4, 4, 4), y1 = c(3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1), y2 = c(5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 2, 2, 2, 2, 2), t = structure(c(1L, 1L, 1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 1L), .Label = c("a",
"b"), class = "factor")), row.names = c("1", "2", "3", "4", "5",
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15"), class = "data.frame")
library(ggplot2)
ggplot() +
geom_rect(data=d, mapping=aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2, fill = t))
感谢您的时间!
这是所需图的工作代码,它使用进行了一些编码dplyr
,但是可以工作。
library(ggplot2)
library(tidyverse)
df1<-df %>%
group_by(x1,y1,x2,y2,t) %>%
count() %>%
ungroup() %>%
group_by(x1,y1) %>%
mutate(perc = n / sum(n),
percLabel = paste(100 * perc,"%",sep = " "),
transf = abs(x2-x1) * perc,
newx1 = ifelse(t == "a", x1,x2-transf),
newx2 = ifelse(t == "a", x1+transf,x2))
ggplot(df1,aes(xmin = newx1,
xmax = newx2,
ymin = y1,
ymax = y2,
fill = t)) +
geom_rect(col = "black") +
geom_text(aes(x = newx1 + ((newx2 - newx1)/2),
y = y1 + ((y2 - y1)/2),
label = percLabel)) +
labs(x="X",y="Y")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句