r - Rで複数のポイント上のポイントを指定する

Question

Rで住宅費と住宅収入の比率の変数の時系列折れ線グラフを設定しましたが、他の投稿で提案されているように、変数ごとに異なるポイント記号を指定することに成功していません。次のエラー メッセージ「連続変数を形状にマッピングできません」が表示されます (2 つの変数で簡略化)。

ggplot(housing, aes(year)) + 
  geom_line(aes(y = Greenwich, colour = "Greenwich"))+
  geom_point(aes(y = Greenwich, colour = "Greenwich", shape = 1)) + 
  scale_shape_identity() + #added missing "+"
  geom_line(aes(y = median, colour = "median"))+
  geom_point(aes(y = median, colour = "median", shape = 2)) +  # added missing parenthesis
  scale_shape_identity() + # removed extra parenthesis 
  ylab("house price to earnings (lower quartile)")+ 
  theme(legend.title=element_blank())

どんな提案でも大歓迎です。