R-如何制作具有所有值标签的堆叠条形图，或可格式化的文本表格

我有一些数据由三列组成——代码、结果和类别。我想创建一个堆叠条形图，每个独特的类别有一个“条形图”，其中“条形图”实际上是一个代码列表，按结果进行颜色编码。本质上是一个带有文本而不是条形图的堆叠条形图。若这是不可能的，我想创建代码表，按结果进行颜色编码（在R中也可能不可能）

数据示例：

 code<-c("ABC1","ABC2","ABC3","DEF1","DEF2","ABC2","ABC2","XYZ5")
 result<-c("Correct","Incorrect","Correct","Blank","Out of date","Correct","Incorrect","Blank")
 category<-c("Cat","Cat","Cat","Cat","Dog","Dog","Dog","Fish")
 x<-cbind(code,result,category)
 x
 code   result        category
[1,] "ABC1" "Correct"     "Cat"   
[2,] "ABC2" "Incorrect"   "Cat"   
[3,] "ABC3" "Correct"     "Cat"   
[4,] "DEF1" "Blank"       "Cat"   
[5,] "DEF2" "Out of date" "Dog"   
[6,] "ABC2" "Correct"     "Dog"      
[7,] "ABC2" "Incorrect"   "Dog"   
[8,] "XYZ5" "Blank"       "Fish"  

---

code在ggplot中，尝试一种类似“条形图”的方法，使用“堆叠的”彩色编码代码

#create a dataframe, easier for plotting
x <- data.frame(code,result,category)

#create y-variable
x <- x %>% group_by(category) %>% mutate(y = 1:n())

p1 <- ggplot(x[order(x$code),], aes(x = category, y = y)) +
  geom_text(aes(label = code, color = result)) +
  theme_bw() + theme(
    axis.text.y=element_blank(),
    axis.ticks.y=element_blank()
  )
p1

#创建一个更易于打印的数据框
x%突变（y=1:n（））
p1在ggplot中，尝试使用“堆叠”颜色编码的“条形图”方法

#create a dataframe, easier for plotting
x <- data.frame(code,result,category)

#create y-variable
x <- x %>% group_by(category) %>% mutate(y = 1:n())

p1 <- ggplot(x[order(x$code),], aes(x = category, y = y)) +
  geom_text(aes(label = code, color = result)) +
  theme_bw() + theme(
    axis.text.y=element_blank(),
    axis.ticks.y=element_blank()
  )
p1

#创建一个更易于打印的数据框
x%突变（y=1:n（））
你能详细说明一下预期的产出吗？它需要有一定的顺序吗？你自己试过什么？每个代码应该具有相同的高度吗？你想要传达的信息是什么？你能详细说明一下预期的输出吗？它需要有一定的顺序吗？你自己试过什么？每个代码应该具有相同的高度吗？你想要传达的信息是什么？