Create plot_network_stats.R