R中特殊的条形图

Question

想象一下，我有以下矩阵，其中每列对应一个条。

     1  1  3 
     1  3  1 
     1  2  2 

我想制作一个堆叠条形图，其中每个数字将决定一个不同颜色的单位块。

例如，如果1 =红色2 =蓝色，3 =绿色，我希望得到以下结果：

Answer 1

library(ggplot2)
library(reshape2)

chartset <- matrix(c(1,1,1,1,3,2,3,1,2), nrow = 3)
chartsetmelted <- data.frame(melt(chartset))

ggplot(chartsetmelted) + geom_tile(aes(x = Var2, y = Var1, fill = factor(value)), width = 0.8)

您可以查看scale_fill_manual以专门为值指定颜色。