library(tidyverse)
data_to_viz <- read_csv("data/data-to-explore.csv")
install.packages("here")
library(here)
 data_to_viz <- read_csv(here("data", "data-to-explore.csv"))

 ggplot(data_to_viz, aes(x = time_spent_hours, y = proportion_earned,
                         fill = "pink")) +
   geom_point() +
   geom_smooth(mapping = aes(x = time_spent_hours, y = proportion_earned), method = lm, color = "blue") +
   labs(title = "Relationship between the amount of time students spend and the proportion they earn",
        caption = "The more students study, the better score they earn?")

According to our scatter plot, we can see the straight relationship between the amount of time students spend and the result they earned. Students who study more between 10_50 hours earned the most proportion. Our smooth line shows that the more you study, the better you get result.