edit storm.R. perfect dot plot