R 通过使用ggplot2从excel工作表中调用，无法获取变量的绘图和日期

我正试图绘制两个变量的几何坐标，这是我从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

我也希望所有的日期都在x实验室，但对我来说，我知道我只能有一个月

所需的绘图输出

---

关于堆叠条形图：

看起来您需要将数据集放在长格式中（在TCJ和Johor的过滤器之后）：

---

非常感谢你的帮助。我避免转换长格式的数据集。我没有任何函数可以直接将现有数据集转换为长数据集格式。我会研究pivot_longer（），但可能我误解了你的问题

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="")

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