R中一类特殊的条形图

假设我有下面的矩阵，其中每列对应一个条

     1  1  3 
     1  3  1 
     1  2  2 

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

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

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)

库（ggplot2）
图书馆（E2）
这正是我要找的。非常感谢。