使用ggplot2堆积条形图

Question

我在.csv文件中有以下数据：

我的代码：

data1 <- data.frame(read.csv("Graph1.csv"))
dfm <- melt(data1[, c('Week', 'Total.A', 'Total.B')], id.vars = 1)

ggplot(dfm,aes(x = Week,y = value)) +
  geom_bar(aes(fill = variable), stat = "identity")

当我运行这个时，我得到的Week值不在我的数据集中。例如：201760。

需要解决此问题。