Code
BCHARTS %>%
ggplot() + geom_line(aes(x = date, y = Open, color = symbol)) +
theme_minimal() + xlab("") + ylab("Bitcoin Price") +
scale_x_date(breaks ="1 year",
labels = date_format("%b %Y")) +
scale_y_continuous(breaks = seq(0, 40000, 5000),
labels = dollar_format(ac = 1)) +
scale_color_manual(values = viridis(4)[1:3]) +
theme(legend.position = c(0.2, 0.9),
legend.title = element_blank())