R中的特殊条形图

Question

假设我有以下矩阵，其中每一列对应一个条形。

     1  1  3 
     1  3  1 
     1  2  2 

我想制作一个堆栈条图，其中每个数字将确定一个不同颜色的单元块。

例如，如果 1=red 2=blue 和 3=green 我想得到以下结果：

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 以专门为值分配颜色。