par(family="MLingWaiMedium-TC")
x<-c(1,2,3)
plot(x,main="你今天好嗎")