Update graphic.R

from graphicV4.R