R课件3-数据操作.ppt

3.10.5 保存统计图形 第一种方法，保存为 pdf 文件 # save as a PDF file pdf(myPlot1.pdf) x - 1:50 plot(x, log(x)) dev .off( ) 第二种方法，保存为图形文件 # Save as a figure file png(myPlot2.png) x - 5:20 plot(x, sin(x)) dev .off( ) 3.11 循环控制和条件操作 3.11.1 条件语句 if (conditon) { expr1 } else { expr2 } 如果 condition 条件为真，则执行 expr1，否则执行 expr2。 例子 # 找出 100 以内的质数 x - 1:100 y - rep(T, 100) for ( i in 3:100 ) { if ( all( i %% (2:(i-1)) != 0 )){ y - TRUE } else { y - FALSE } } print(x[y]) 3.11.2 循环语句 for 循环 for (n in x) { expr } 其中，n 为循环变量，x 通常是一个序列。 x - c(1, 1) for ( i in 3:30 ) { x - x[i-1] + x[i-2] } 3.12 自编函数 ######## 自编函数 exsum() ############ exsum - function(x){ n = length(x) m = mean(x) v = round(var(x), 2) data.frame( N = n, MEAN = m, VAR = v ) } ######## 调用自编函数 exsum() ########## x - c(1:10) exsum(x) # N MEAN VAR # 10 5.5 9.17 练习三 查看数据集stu.df的数据结构：数据集的维度，变量名，首尾6行数据； 统计一下grade的计数，并绘制饼图； 计算下height，weight，arml，legl的相关性。 将上面的饼图输出为图形文件grade1.png； 利用for循环和if条件语句，输出20以内的所有奇数。 思考题 自编一个函数，并运行它。 * R软件与数据分析及绘图 Tel QQQQ群： 345276262 E-mail 林元震 华南农业大学林学院 全校选修课 第三讲 数据操作 内容提要 变量创建与删除 变量重命名 缺失值 数据类型转化 数据排序 数据合并 数据子集提取 数据重构 常用函数 数据探索 常见循环 自编函数 3.1 变量创建与删除 mydata - data.frame( x1 = c(2, 2, 6, 4), x2 = c(3, 4, 2, 8) ) # 方法一 mydata$sum - mydata$x1 + mydata$x2 mydata$mean - (mydata$x1 + mydata$x2)/2 # 方法二 mydata - transform( mydata, sum = x1 + x2, mean = (x1 + x2)/2 ) # 变量删除 mydata$ mean - NULL 3.2 变量的重命名 df - mydata 第一种方法：调用编辑器重命名 fix(df) 第二种方法：使用函数 names( )重命名 names(df) names(df)[1:3] - c(“A”, ”B”, ”C”) 3.3 缺失值的处理 缺失值：NA (Not Available，不可用) 不可能出现的值： NaN(Not a Number，非数值) 函数 is.na()可检测缺失值是否存在。 例子 x - c(1:3, 5,7, NA, 9) sum(x) # 结果为 NA sum( x, na.rm = T ) # 结果为 27 缺失值图形化 library(VIM) matrixplot(sleep) matrixplot ( )函数对数值型数据转化到[0, 1]区间，并用灰度来表示大小： 浅色表示值小，深色表示值大。 缺失值默认是红色。 3.4 数据类型的转换 数据转换例子 Rep - c( 1:6 ) # Rep 赋值 is.numeric