Update plot_activity.r

Added weekly plots