SR-Editor-[C: \R\eigenes\scatterplot3d\R\scatterplot3dR] H Eile Edit Format Search Insert Iools Options window Help R 刃0日当。⑩ R日RR+R≡ scatterplot. R mem. par < par(mar mar x scal < y scal <-z scal <-1 xlabel < if (!i5512g(x))deparse( subs ti tute(x)) ylabel < if (!2552g( y)) deparse( subs ti tute(y)) zlabel < if (!issing( z))deparse( subs t2 tute( z)) #H verification, init, 界面 if(highlight. 3d &6 !missing( color)) warning( message ="color is ignored when highlight. 3d TRUE") if(length(x)< 2)stop( Minimal required length of x is 2 !") color as part of 'x'(data frame or list): if(!is.nu11(d<-an(x))&(2 ength(d)==2)(d[2]>4)) color<-x[ 4] else if(islist(x)&6!is null( xScolor) color < xScolor 并算 convert anything-> vector xyz <- xyz coords(x=x, y=y, z=z, lab=xlabel, ylabsylabel, zlabszlabelr if(is null(lab)) lab < xyzSxlab: if(is null(lab)) xlab<- if(is null(lab))f ylab < xyzSylab: if(is null( ylab)) ylab<- if(is null(lab))f zlab < xyzszlab: if(is null(zlab))zlab } if(length( c color < rep(color, length(xyzSx)) 1521306 Wrap Indent INS LINE Spell I 「M21Mz20011512 hp/ep地.edu.cn/yitang R语言与统计分析一上海师范大学(2004年2月)R语言与统计分析 – 上海师范大学(2004年2月) http://webpc.shtu.edu.cn/yctang 22 R_WinEdt 界 面