基于计数的组条形图

Question

我正在尝试制作条形图

数据在数据框中。在这些数据框中，我有几列，一列名为 ID，另一列计数。

首先，我试图对这个计数进行分组。在条形图中我们应该看到，count=0,count=1,count=2,count>=3

一些示例数据

data1 <- data.frame(ID="ID_1", count=(rep(seq(0,10,by=1),each=4)))
data2 <- data.frame(ID="ID_2", count=(rep(seq(0,10,by=1),each=4)))
data3 <- data.frame(ID="ID_3", count=(rep(seq(0,10,by=1),each=4)))

很明显，数据框的条形图看起来是一样的

我试图在 ggplot 中做这个（一点都不好）

ggplot(data1)+
geom_bar(aes(x = ID, fill = count),position = "fill")+
geom_bar(data=data2,aes(x = ID, fill = count),position = "fill")+
geom_bar(data=data3,aes(x = ID, fill = count),position = "fill")

我得到了类似的东西 我想要做的是在条形图中有不同的组，比如计数的比例为 0，计数的比例为 1,2，计数的比例大于（等于）到 3。

我期待这样的事情

当然，在我的示例中，条形图看起来是一样的。 另外，如果您有一些建议将 Y 轴从 1.00 更改为 100%。

我的另一个问题是我的真实数据帧的长度不相等，但这没关系，因为我试图获得计数组的百分比

Answer 1

您需要将所有数据以 long 格式放入 1 个数据帧中。然后将你的计数转换为因子，它就起作用了。

ggplot(bind_rows(data1, data2, data3)) +
geom_bar(aes(x = ID, fill = as.factor(count)), position = "fill") +
scale_y_continuous(labels=scales::percent)   # To get the Y axis in percentage

Answer 2

所以我做了一些尝试来创建我的条形图

data1$var="first"
data2$var="second"
data3$var="third"
data4$var="fourth"
data5$var="fifth"

full_data=rbind(data1,data2,data3,data4,data5)

ggplot(ppgk) +
geom_bar(aes(x = var, fill = as.factor(Count)), position = "fill")+
scale_y_continuous(labels=scales::percent)

所以我得到了类似的东西：

如果有人有办法进行不同的计数组：count=0,count=1,count=2,count>=3