1 Share price performance and FX impacts

Merged_data <- Merged_data %>%
  mutate(Price_GBP_rescale = Price_GBP* 2)

p1 <- ggplot(Merged_data, aes(x = Date)) +
  geom_line(aes(y = Price, color = "Share price (AUD)"), linewidth= 0.8) +
  geom_line(aes(y = FX_shifted, color = "GBP vs AUD (rescaled)"), linewidth = 0.8) +
  geom_line(aes(y = Price_GBP_rescale, color = "Share price (GBP rescaled)"), linewidth = 0.8) +
  geom_line(aes(y = Price_GBP, color = "Share price (GBP)"), linewidth = 0.8) +

  scale_color_manual(values = c(
    "Share price (AUD)" = "#00BFC4",
    "GBP vs AUD (rescaled)" = "#F8766D",
    "Share price (GBP rescaled)" = "blue",
    "Share price (GBP)" = "steelblue"
  ))

p1