新建一个脚本:
fun<-function(x){
if(x>=0 &x<=3) y=3*x+2
else y=2*x-0.5*x^2
y
}
保存为fun.R
然后在R界面里
>source("fun.R")
>x<-seq(0,6,0.01) 每隔0.01取一个点
>y<-fun(x)
>plot(x,y)
用于指定文本大小的参数cex：表示相对于默认大小缩放倍数的数值。默认大小为1，1.5表示放大为默认值的1.5倍。0.5表示做小为默认大小的0.5倍。
cex.axis：坐标轴刻度文字的缩放倍数。类似cex。
cex.lab：坐标轴标签（名称）的缩放倍数：
cex.main：标题的缩放倍数。
cex.sub：副标题的缩放倍数。
用于指定字体、字号、字样的参数
font：整数。用于指定绘图使用的字样。1 = 常规，2 = 粗体，3 = 斜体，4 = 粗斜体， 5 = 符号字体 （以adobe符号编码表示）
**font.axis：**坐标轴刻度文字的字体样式；
font.lab：坐标轴标签的字体样式；
font.main：标题的字体样式；
font.sub：副标题的字体样式；
**ps：**字体的磅值（1磅 = 1/72英寸）。文本的最终大小为平ps*cex；
family：绘制文本时候使用的字体簇。标准的取值为serif（衬线），sans（无衬线），mono（笔宽）
使用par（）函数来改变之后绘图的参数。
当需要恢复默认参数par（opar）
names（pdfFonts（））查看当前pdf可以使用的字体名称。
