ditch graphs.R