r - 凡例で geom_point と geom_line を分離する

Question

列と点が重ねられたデータセットがあります。プロットはかなり単純ですが、geom_point を別の凡例として表示することができないようです。代わりに、デフォルトで 2 つを組み合わせます。

ポイントを別のデータフレームとして追加し、ポイントを因子としてマッピングし、フォーラムで見つけた無限の関数を試しました。ヒントはありますか？

以下の単純化された例:

library(ggplot2)
Site <- c("A", "B", "C", "A", "B", "C")
Year <- c(2020, 2020, 2020, 2019, 2019, 2019)
Geomean <- c(65,184,27,21,67,51)
Historical.Geomean <- c(76,81,44,76,81,44)

df <- data.frame(Site, Year, Geomean, Historical.Geomean)

df$Year <- as.factor(df$Year)

fw_ecoli_plot <-
  ggplot(df) +
  geom_col(aes(x=Site, y=Geomean, fill=Year), position="dodge") +
  geom_point(aes(x=Site, y=Historical.Geomean),
             color="black", pch=18, show.legend = T) +
  theme_bw()

fw_ecoli_plot