时间序列的R ggplot堆叠条形图

Question

我已尝试按照问题28557393的说明进行操作，但它们似乎对我不起作用。我的数据（转换为我认为的long table）
我已经尝试过此代码

ggplot(table_long, aes(x=Year, y=ktoe, fill=factor(energy_type))) +  
geom_col()

，看起来像。

或这个

ggplot(table_long, aes(x = Year, y = ktoe, fill=energy_type)) +  
geom_bar(stat='identity')

，看起来像这样。我究竟做错了什么？ 我希望我的数据格式正确为

table_long %>%
  ggplot() +
  geom_point(aes(x=Year, y=ktoe, col=energy_type))

大致看起来像我希望条形图看起来像：