Fixed stringsAsFactors, added plot 3