.locale <- local({
  val <- FALSE  # All automatic graphs will initially have English titles
  function(new){
  if(!missing(new))
     val <<- new
     else
     val
  }                 
})               

谢谢！