组合成组/叠加条形图的不同颜色条-R

Question

我有一个组合成组/堆叠的条形图，我用这个数据用ggplot2创建了它：

Type    Category    Count   Blank
CAT1    Total   36  Not Blank
CAT1    Researched  36  Not Blank
CAT1    Structured  36  Not Blank
CAT1    Ingested    36  Not Blank
CAT1    Researched  0   Blank
CAT1    Structured  0   Blank
CAT1    Ingested    0   Blank
CAT2    Total   36  Not Blank
CAT2    Researched  36  Not Blank
CAT2    Structured  36  Not Blank
CAT2    Ingested    36  Not Blank
CAT2    Researched  0   Blank
CAT2    Structured  0   Blank
CAT2    Ingested    0   Blank
CAT3    Total   72  Not Blank
CAT3    Researched  72  Not Blank
CAT3    Structured  72  Not Blank
CAT3    Ingested    72  Not Blank
CAT3    Researched  0   Blank
CAT3    Structured  0   Blank
CAT3    Ingested    0   Blank
CAT4    Total   36  Not Blank
CAT4    Researched  36  Not Blank
CAT4    Structured  36  Not Blank
CAT4    Ingested    36  Not Blank
CAT4    Researched  0   Blank
CAT4    Structured  0   Blank
CAT4    Ingested    0   Blank
CAT5    Total   108 Not Blank
CAT5    Researched  108 Not Blank
CAT5    Structured  108 Not Blank
CAT5    Ingested    108 Not Blank
CAT5    Researched  0   Blank
CAT5    Structured  0   Blank
CAT5    Ingested    0   Blank
CAT6    Total   18  Not Blank
CAT6    Researched  18  Not Blank
CAT6    Structured  18  Not Blank
CAT6    Ingested    18  Not Blank
CAT6    Researched  0   Blank
CAT6    Structured  0   Blank
CAT6    Ingested    0   Blank
CAT7    Total   36  Not Blank
CAT7    Researched  36  Not Blank
CAT7    Structured  36  Not Blank
CAT7    Ingested    36  Not Blank
CAT7    Researched  0   Blank
CAT7    Structured  0   Blank
CAT7    Ingested    0   Blank
CAT8    Total   210 Not Blank
CAT8    Researched  150 Not Blank
CAT8    Structured  150 Not Blank
CAT8    Ingested    150 Not Blank
CAT8    Researched  60  Blank
CAT8    Structured  60  Blank
CAT8    Ingested    60  Blank
CAT9    Total   60  Not Blank
CAT9    Researched  36  Not Blank
CAT9    Structured  36  Not Blank
CAT9    Ingested    36  Not Blank
CAT9    Researched  24  Blank
CAT9    Structured  24  Blank
CAT9    Ingested    24  Blank
CAT10   Total   120 Not Blank
CAT10   Researched  90  Not Blank
CAT10   Structured  90  Not Blank
CAT10   Ingested    90  Not Blank
CAT10   Researched  30  Blank
CAT10   Structured  30  Blank
CAT10   Ingested    30  Blank

使用这段代码，我得到了这个图像，它显示了分组和堆叠的图表，这正是我想要看到的。

library(ggplot2)
example <- read.delim("example.txt")
example$Category <- factor(example$Category, levels = c("Total", "Researched", "Structured", "Ingested"))
ggplot(data = example, aes(x=Category, y = Count, fill = Blank)) + geom_bar(stat = "identity") + facet_grid(~Type)

分组叠加条形图

​

​

上述图像的问题是，每个面中的4个单独的条是相同的颜色，唯一的分离是关于堆叠。我如何改变我的ggplot2线，使四个条在侧面的每一个不同的颜色，同时仍然显示空白和空白之间的分隔堆叠？

我尝试过将填充选项更改为“类别”，这将给出所需的配色方案，但不会将空白与非空白作为堆叠图表。一如既往，任何帮助都是值得感激的。

Answer 1

你可以试试这样的东西：

ggplot(data = example, aes(x = Category, y = Count, group = Category, fill = Category, alpha = Blank)) + 
geom_bar(stat = "identity",  color = "black") +
facet_grid(~ Type)

​

​

汤尼