Create StoryGraphs.R