1、下面以一个例子来说明R语言编写自定义函数的过程。语言如下：myfun<-function(A,B){data<-read.table(B)plot(data&x,data&y,type="1")title("A")}这是一个自定义函数，可以用于上个经验
2、具体如下：layout(matrix(1:3,3,1))myfun("title1","data1")myfun("title2","data2")myfun("title13","data3")
3、或者用sapp盟敢势袂ly()来实现程序，具体如下：layout(matrix(1:3,3,1))names<-c("title1","title2","title3")file<-c("data1.dat","data2.dat","data1.dat")sapply(names,myfun,file)