Create plotNeo4j.R