首先你把横轴纵轴要打的东西分别放在2个向量month和sales
month<-paste(5,1:31,sep="/")
sales<-sample(100,31) #我随机从1到100里抽31个数
然后你把plot(1:31,sales,xaxt="n",xlab="Each day")打出来 xaxt="n"就是先不显示x的刻度
下面跟
>axis(1,labels=month,at=1:31,las=3) 1是你要对x轴作修改，labels就是你要打的内容，at就是你要多少个刻度(这里只能是1到31)，las是这些刻度的显示形式，3就是竖着
可以，比如：plot(1:3)
legend(locator(1),legend=1:3,cex=0.5)
其中参数cex=0.5将图例（及内含的文字、符号等）缩小为原来的一半
