annotations_challenge.R

# Run the below code to get the graph. The graph represents speed of car
# vs distance it travels before stopping (when brakes are applied)
# In this graph, write an insight stating that "The faster the car, 
# the longer it takes to stop"

gg <- ggplot(data=cars, aes(x=speed, y=dist, size=dist)) + 
  geom_point() + 
  geom_smooth() + 
  labs(title="Cars", x="Speed", y="Dist")
print(gg)