Create plot_activity.r