组合分组/堆叠条形图的不同颜色条 - 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)

R grouped stacked bar chart

上图的问题是每个面的 4 个单独的条是相同的颜色，唯一的分离是堆叠的地方。如何更改我的 ggplot2 线，为构面中的 4 个条形中的每一个赋予不同的颜色，同时仍将空白和非空白之间的分隔显示为堆叠？

我已尝试将填充选项更改为“类别”，这将提供所需的配色方案，但不会将空白与非空白拆分为堆叠图表。一如既往地感谢任何帮助。

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)

HTH 托尼