```r
p1 <- ggplot(data = cryptoart, aes(x = Start.Price, y = End.Price, colour = Platform)) +
    geom_point() +
    ggtitle("End Price vs Start Price by Platform") +
    theme(
        legend.position = "bottom"
    )
p1

ggsave("yourturn.pdf", plot = p1)
```