R：堆积条形图

Question

我正在尝试制作一个堆积的条形图，堆积的条形图中的每个标记都对应于数据中的每一行。 每个条对应一个小时，因此每分钟包含60个标记。 我认为将使用barplot函数，但如何弄清楚呢？ 另外还有一列包含一些值。 如果该列中有值，我希望该值代替标记。 这是我正在使用的数据

RowNo   State   Bar
  1        a    1
  2             1
  3             1
  .
  .
 59             1
 60             1
 61             2
 62             2
 .
 .
 1199           20
 1200           20
 1201      c    21

这就是我想要的

任何帮助，将不胜感激。

Answer 1

与此类似：

library(tidyverse)
data = expand.grid(list(row = 1:20, bar=1:20)) %>% 
        as_tibble() %>% 
        mutate(state = ifelse(row == 1 & bar == 1, "a", ifelse(row == 20 & bar == 1, "c", NA)),
               row = factor(row))

data  %>% 
    ggplot(aes(x=row, y=bar, fill=state)) + 
    geom_tile(colour="white", width=.6) + 
    geom_text(aes(label=state)) +
    scale_y_reverse()