R语言学习（我命油我不油天）

19.如欲在 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）构造 4*5 矩阵 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），构造 5*3 矩阵 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