first working ggplot2 network function