2021-06-22

9.如欲在 R 语言中安装第三方包，包的名字是“plyr”，则安装语句是？ 请写出代码： install.packages(“plyr”)20.若要加载这个包语句是？ 请写出代码： library(plyr) 1.（1）建立起始值=3，增量值=5.5，终止值=41.5 的一维数组下 x, 请写出代码： x <- seq(3,41.5,by=5.5) （2）创建 2 到 50 的向量，形式为 2，4，6，8…,48,50 并命名为 vector1 请写出代码： vector1 <- seq(2,50,by=2) （3）建立 a 向量，分量初值为 1，公差为 3 的等差数列值，长度为 10。 请写出代码： a <- seq(1,by=3,length=10) 5.（1）用函数 rep（）构造一个向量 x,它由 3 个 3，4 个 2，5 个 1 构成 请写出代码： x <- c(rep(3,3),rep(2,4),rep(1,5)) （2）构造一个向量 x,向量是由 5 个 1，3 个 2，4 个 3，2 个 4 组成。 请写出代码： x <- c(rep(1,5),rep(2,3),rep(3,4),rep(4,2)) 6.（1）构造 45 矩阵 A 和 B，其中 A 是将 1,2……20 按行输入，B 是按列输入， 请写出代码： A <- matrix(1:20,nrow = 4,ncol = 5,byrow=T) B <- matrix(1:20,nrow=4,ncol = 5) （2）设 x=（1,3,5,7,9），构造 53 矩阵 M，其中第 1 列全为 1，第 2 列为向量 x， 第 3 列的元素为 x^2，并给矩阵的 3 列命名，分别是 const,x 和 x2. x <- c(1,3,5,7,9) M <- matrix(c(rep(1,5),x,x^2),nrow = 5) colnames(M) <- c(“const”,“x”,“x2”)38.用来创建自定义坐标轴的函数名是什么？（只写函数名，不用写括号，注意 大小写） 正确答案：axis 9.怎么生成向量：“临床 2016 甲、临床 2016 乙、临床 2017 甲、临床 2017 乙、 临床 2018 甲、临床 2018 乙、临床 2019 甲、临床 2019 乙” paste(“临床”,rep(2016:2019,each=2),rep(c(“甲”,“乙”),3),sep="") 20，21.datasets 是 R 中一个重要的数据集，很多有用的数据都在这个集合中。尝试 写出 R 的代码，查看指定包“datasets”中的数据集。 library(datasets) data()6.写出 R 的代码，建立一个 4 行，3 列的矩阵，矩阵的名字是 matrix，每一行 的名字是 a、b、c、d，列的名字是 e、f、g。 matrix<- matrix(1:12,nrow=4,byrow=T,dimnames=list(c(“a”,“b”,“c”,“d”),c(“e”,“f” ,“g”))) 11.写出 R 的代码，创建一个名为 student 的数据框，包含这样几个元素： 学生的学号，名字：sno；值：2020001,2020002,2020003 学生的姓名，名字：sname；值：John，David，Kate 学生的年龄，名字：sage；值：20,21,22 学生的专业，名字：dept；值：cs, se, math student <- data.frame( sno=c(2020001,2020002,2020003), sname=c(“John”,“David”,“Kate”), sage=c(20,21,22), dept=c(“cs”, “se”," math"))13.写出 R 的代码，将问题 7 中的 student 数据框中的 sname 和 dept 两列放在 table()中输出。 table(student$sname,student$dept)18.创建对象 x，其值为 1：10，使用 write 函数将其写入文件 x.txt,删除 x setwd(“C:\王蕾\工作\教学\R 语言\2020 年\习题”) x <- 1:10 write.csv(x,“x.txt”) rm(x)20，21.读取 MASS 包的 cats 数据集， (1)并查看数据的维度信息。 (2)查看数据的前六行和后六行，。 (3)查看第 13,15,65，78,91 行的数据信息。 library(MASS) data(cats) dim(cats) head(cats) tail(cats,6) cats[c(13,15,65,78,91),] 16. 读取数据文件 stu.txt,记录了 19 名学生的身高体重数据，做如下几个处理：（1）统计男生、女生的个数 （2）计算每个人的 BMI 指数：体重（kg）除以身高（m）的平方，将结果增加 到数据框中. （3）BMI 指数>25 为肥胖，标记为 High, BMI 指数<18 为过轻标记为 Low，其 他为正常,标记为 Normal.将结果增加到数据框中。 （4）将所有男生的信息提取出来，写入一个 txt 文件中。 stu <- read.table(“stu.txt”,header = T) table(student$Sex)stu$BMI<-round(stu$Weight/((stu$Height/100)^2),1) stu$score<-"Normal"stu$score[stu$BMI>25]<-"High"stu$score[stu$BMI < 18] <- “Low”#### stu