Profvis 实战

# Load the data set
data(movies, package = "ggplot2movies") 

# Load the profvis package
___

# Profile the following code with the profvis function
___
  # Load and select data
  comedies <- movies[movies$Comedy == 1, ]

  # Plot data of interest
  plot(comedies$year, comedies$rating)

  # Loess regression line
  model <- loess(rating ~ year, data = comedies)
  j <- order(comedies$year)
  
  # Add fitted line to the plot
  lines(comedies$year[j], model$fitted[j], col = "red")
___     ## Remember the closing brackets!