render this (mybooks)

# accident plot i didnt mean to do this
ggplot(cleanbooks) +
  geom_point(aes(x = title, y = title, color = "amazon")) +
  geom_point(aes(x = title, y = goodreads, color = "goodreads")) +
  labs(x = "rating",
       color = "platform") +
  # scale_color_manual(values = c(
  #   "goodreads" = "#33a302",
  #   "amazon" = "#f3a3a3"
  # )) +
  theme(axis.text.y=element_blank(),
  axis.ticks.y=element_blank(),
  axis.title.y=element_blank())

ggplot(filteredbooks) +
  geom_line(aes(x = readdate, y = bookspermonth, alpha = 0.5, color = "Books read per month")) +
  geom_line(aes(x = readdate, y = authorcount, alpha = 0.5, color = "Authors per month"))

Warning: Removed 1 row containing missing values or values outside the scale range
(`geom_line()`).
Removed 1 row containing missing values or values outside the scale range
(`geom_line()`).