Swimming

The echo: false option disables the printing of code (only output is displayed).

ggplot(swim) +
  geom_area(aes(x = day, y = miles), fill = "#25CED1", color = "#25CED1", alpha = 0.8) +
 # geom_point(aes(x = day, y = miles)) +
  labs(title = "swimming") +
 # theme_linedraw() +
    theme(axis.line = element_line(linewidth = 0.6, colour = "#1085AA", arrow = arrow(angle = 30, length = unit(0.1, "inches"), ends = "last", type = "open")),
    plot.background = element_rect(fill = "#DBF5FC", colour = "#400C3E", linewidth = 1.6),
    plot.margin = margin(0.8, 0.8, 0.8, 0.8, "cm"),
    legend.background = element_rect(fill = "#000", linewidth = 0.3),
    legend.ticks = element_line(color = "transparent", size = unit(1, "inches")),
    legend.ticks.length = unit(3, "inches"),
    panel.background = element_rect(fill = "#F6FDFF"),
    panel.grid = element_line(color = "#93CADB"))

  #geom_text(aes(x =2013, y = 1, label="your mom"), size = 10)