Невозможно получить график и дату по дням для переменных, вызвав из листа Excel с помощью ggplot2

Question

Я пытаюсь построить geom_col для двух переменных, которые я вызываю из таблицы Excel. Данные представлены в формате временных рядов.

Это мой набор данных. Я хочу отобразить обе переменные Johor и TCK на одной панели для всех дат.

head(df2)
# A tibble: 6 x 33
  date       Johor   TCJ Kedah  TCKe Kelantan TCKlntn Melaka  TCMk N.Sembilan  TCN9 Pahang
  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>   <dbl>  <dbl> <dbl>      <dbl> <dbl>  <dbl>
1 2020-01-25     1     1     0     0        0       0      0     0          0     0      0
2 2020-01-26     0     1     0     0        0       0      0     0          0     0      0
3 2020-01-27     0     1     0     0        0       0      0     0          0     0      0
4 2020-01-28     1     2     1     1        0       0      0     0          0     0      0
5 2020-01-29     0     2     0     1        0       0      0     0          0     0      0
6 2020-01-30     1     3     0     1        0       0      0     0          0     0      0

Это мой код для ggplot2

ggplot(df2,aes(x=date, y=Johor, col=c(TCJ+Johor), group=c(TCJ+Johor)))+ 
  geom_col(aes(fill=c(TCJ+Johor)),width=0.5
  )+
  theme(axis.text.x = element_text(angle=15, vjust=0.4)) +
  labs(title="",
       subtitle="")

Я также хочу, чтобы все даты в x lab, но я знаю, что у меня может быть только месяц

Требуемый вывод графика.

Answer 1

Что касается гистограммы с накоплением:

Похоже, вам нужно поместить набор данных в длинный формат (и после этого фильтра для TCJ и Джохора):

library("tidyverse")     
df2 %>%
      pivot_longer(-date, names_to = "name", values_to = "value") %>%
      filter(name %in% c("Johor", "TCJ")) %>%
      ggplot(aes(date, value, fill = name)) +
      geom_col(position = "stack")