In ThinkR-open/rmd4j: Knitr Engine for Neo4j

rmd4j::set_neo4j_engine(neo4j_home = "/Users/colin/neo4j", # Insert the path to your Neo4J home
                        neo4j_passwd = "pouetpouet", 
                        neo4j_user = "neo4j")
knitr::opts_chunk$set(echo = TRUE)

Create

CREATE 
(ancient:Band {name: "Ancient", formed: 1992}),
(acturus:Band {name: "Arcturus", formed: 1991}),
(burzum:Band {name: "Burzum", formed: 1991}),
(carpathianforest:Band {name: "Carpathian Forest", formed: 1990}),
(darkthrone:Band {name: "Darkthrone", formed: 1986}),
(emperor:Band {name: "Emperor", formed: 1986}),
(enslaved:Band {name: "Enslaved", formed: 1991}),
(gorgoroth:Band {name: "Gorgoroth", formed: 1992}),
(hades:Band {name: "Hades", formed: 1992}),
(immortal:Band {name: "Immortal", formed: 1991}),
(mayhem:Band {name: "Mayhem", formed: 1984}),
(satyricon:Band {name: "Satyricon", formed: 1984}),
(taake:Band {name: "Taake", formed: 1993}),
(bergen:City {name: "Bergen"}),
(oslo:City {name: "Oslo"}),
(sandnes:City {name: "Sandnes"}),
(rogaland:City {name: "Rogaland"}),
(euronymous:artist {name: "Euronymous", born: 1968}),
(vikernes:artist {name: "Vikernes", born: 1973}),
(fenriz:artist {name: "Fenriz", born: 1971}),
(gaahl:artist {name: "Gaahl", born: 1975}),
(euronymous)-[:PLAYED_IN]->(mayhem),
(vikernes)-[:PLAYED_IN]->(burzum),
(fenriz)-[:PLAYED_IN]->(Darkthrone),
(gaahl)-[:PLAYED_IN]->(gorgoroth),
(ancient)-[:IS_FROM]->(bergen),
(acturus)-[:IS_FROM]->(oslo),
(burzum)-[:IS_FROM]->(bergen),
(carpathianforest)-[:IS_FROM]->(rogaland),
(emperor)-[:IS_FROM]->(sandnes),
(enslaved)-[:IS_FROM]->(rogaland),
(gorgoroth)-[:IS_FROM]->(bergen),
(hades)-[:IS_FROM]->(bergen),
(immortal)-[:IS_FROM]->(bergen),
(mayhem)-[:IS_FROM]->(oslo),
(satyricon)-[:IS_FROM]->(oslo),
(taake)-[:IS_FROM]->(bergen);

Band from 1990

MATCH (b:Band) WHERE b.formed = 1990 RETURN *;

formed before 1992

MATCH (b:Band) WHERE b.formed < 1992 RETURN *;

From Oslo

MATCH (r:Band) -[f:IS_FROM] -> (c:City {name:"Oslo"}) RETURN *;

Emperor albums

MATCH (r:record) -[:WAS_RECORDED] -> (b:Band) where b.name = "Emperor" RETURN b, r;

Several counting

MATCH (r:Band) -[f:IS_FROM] -> (c:City {name:"Bergen"}) RETURN COUNT(*) AS Bergen_band;
MATCH (r:record) -[:WAS_RECORDED] -> (b:Band) where b.name = "Emperor" RETURN COUNT(*) AS how_much;