```r
ggplot(cryptoart, aes(x = Start.Price, y = End.Price, colour = Platform))+ geom_point()

ggplot(cryptoart, aes(x = Start.Price, y = End.Price, colour = Platform)) + geom_point() +facet_grid(.~Platform)
```