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()