Update graphic.R