R：堆积条形图

Question

I am trying to make a stacked bar chart with each mark in stacked bar corresponds to each row in the data. Each bar corresponds to one hour thus contains 60 marks for each minute. I think barplot function will be used but able to figure it out how? Also there's another column with some values. If there's value in that column I want that value in place of mark. Here's the data i am using

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

And this is what I am looking for

Any Help would be appreciated.

Answer 1

Something along the line of this:

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