Update graphic.R

from graphicV3.R