计算机技术资料题

I

x<-c(5.1,4.9,4.7,4.6,5.0,3.5,3.0,3.2,3.1,3.6)#创建一个向量x

【？】#查询向量x中序号为3,6,9的元素

A<-matrix(x,nrow=5,ncol=2,[?])#创建一个5行2列的矩阵,元素为向量x,按

列填充

K<-[?]#将矩阵写入数据框K

P<-[?1#创建一个重复序列P,将0.2重复五次

正确答案

第一空：

x[c(3,6,9)]

第二空：

byrow=F;byrow=FALSE;

第三空：

data,frame(A)

第四空：

rep(0.2,5);rep(0.2,times=5)

2

x<-[?](1.7,by=0.1,length=6)#创建向量x,首项为L7,公差为0.1,长度

为6

y<-[?](x,each=2,len=6)#创建向量y,各元素重复两次，序列长度为

A<-matrix(y,3,2,[?])#建立矩阵A,数据按行读取

[?]#删除矩阵A的第一行

正确答案

第一空：

seq

第二空：

rep

第三空：

byrow=TRUE;byrow二T

第四空：

A[-l,]

3

[?)#设定种子数12

data<-[?]#随机生成10个标准正态分布的数据，赋值给data

[?]#查看data的值域

[?]#对data求和

正确答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

#iris是一个关于莺尾花的统计信息的列表。

[?)#查看列表iris的前六行

[?)#查看列表iris的列名称

*对Sepal.Length列，查看元素的个数

[?]#对Sepal.Length列，求均值

正确答案

第一空：

head(iris)

第二空：

colnames(iris);names(iris)

第三空：

length(iris$Scpal.Length)

第四空：

mean(iris$Sepal.Length)

plot(c(0:10),col="【？】")#绘制空白画布

[?J#绘制线段，起点(2,1)终点(4,8)

[?](4,0,7,3,angle=30,colored*)#绘制带箭头的红色线段，从(4,0)到(7,3),箭头

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加网格线

正确答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

3

[?]#设定种子数12

data<-[?]#随机生成10个标准正态分布的数据，赋值给data

[?)#查看data的值域

[?]#对data求和

正确答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

创建如下的数据框，并增加样本数据

Sepal.LengthSepal.WidthPetal.LengthPe.tai.Width

15.13.51.40.2

24.93.01.40.2

34.73.21.30.2

44.63.11.50.2

datairis<-data,frame(Sepal.Length=c(5.1,4.9,4.7,4.6),

Sepal.Width=c(3.5,3.0,3.2,3.1),

Petal.Length=c(l.4,1.4,1.3,1.5),

Pe.tai.Width=[?](0.2,4))

[?]#显示数据框

(datairis<-[?](datairis,list(3.0,2.6,0.4,0.2)))#增加样本数据

正确答案

第一空：

rep

第二空：

data_iris

第三空：

rbind

2

将窗口分割成2X1的窗格，在第一个、第二个窗口中分别绘制出正弦、余弦函数的图像,

并画出X轴。

---------------------------------------------------------------*/

x<-[?](0,2*pi,by=pi/20)

yl<-sin(x)

y2<-cos(x)

【？】(nifrow二c⑵1))#将窗口分割成2X1的窗格

[?]#绘制出正弦函数的图像,typ。为线型，颜色为红色

[?](c(0,3*pi),c(0,0))#画出X轴

/***********SPACE***********/

[?]#绘制余弦函数的图像，type为线型，颜色为蓝色

正确答案

第一空：

seq

第二空：

par

第三空：

plot(x,y1,type="1",colored");plot(x,yl,col=*redA,lype二T)

第四空：

lines

第五空：

plot(x,y2,type=T,col="bluc");plot(x,y2,col="blue”,typc=T)

3

[?J#列出在基本程序包(base)中所有可利用的数据集

[?](iris,file=，/iris.txt")#将数据集iris存储为.txt文件

【？】(iris,file=/，iris.csv")#将数据集iris存储为.csv文件

mydata<-[?]("iris,txt",head=TRUE)#读取iris,txt到对象mydata中

正确答案

第一空：

data()

第二空：

write.table

第三空：

write.csv

第四空：

read,table

I___________________________________

在同一张图上画出函数yl=2x,y2=x'2的曲线，添加标题“2x和-2的曲线〃，并添加到例

，，yl=2x,y2=x-2〃

x<-[?](0,10,by=0.5)

yl=2*x

y2=x"2

plot(x,yl,type^o",[?])能会制困数yl=2x的曲线，type类型为"o〃，点样式为8

lines(x,y2,type=/，oz，,[1?],pch=24)#绘制函数y2=x2的曲线，type类

型为"o"，点样式为24,颜色为红色

[?]("topright",c("2*x”,col=c("black","red"),pch=c(8,24),lty=l)#添

加图例

[?)#添加标题

正确答案

第一空：

seq

第二空：

pch=8

第三空：

col="red"

第四空：

legend

第五空：

title(main="z2x和x"2的曲线”)

2

x<-c(1,3,5)#创建向量

[?]#查看第一个元素

[?]#查看除了第二个元素之外的所有元素

[?]#向量x中等于3的元素所在的位置

[?]#向量x中的最大元素

正确答案

第一空：

x[l];x[-c(2,3)];x[c(-2,-3)]

第二空：

x[-2];x[c(l,3)]

第三空：

which(x==3)

第四空：

max(x)

3

#iris是一个关于莺尾花的统计信息的列表。

[?)#查看列表iris的前六行

[9)#查看列表iris的列名称

[?]#对Sepal.Length列，查看元素的个数

[?]#对Sepal.Length列，求均值

正确答案

第一空：

head(iris)

第二空：

colnames(iris);names(iris)

第三空：

length(iris$Sepal.Length)

第四空：

mean(iris$Sepal.length)

1

绘制空白画布

绘制线段，起点(2,1)终点(4,8)

绘制带箭头的红色线段，从(4,0)到(7,3),箭头角度30

添加网格线

plot(c(0:10),col="【？】")#绘制空白画布

[?]他会制线段，起点(2,1)终点(4,8)

[?](4,0,7,3,angle=30,colored")#绘制带箭头的红色线段,从(4,0)到(7,3),箭头

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加网格线

正确答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

2

x<-c(2,4,6,8,10,NA)3建立向量x

[?1#判断向量x中是否存在缺失值，要求返回一个与x等长的逻辑向量

#判断向量X中是否存在缺失值，要求返回TRUE或FALSE

y<-matrix(x,2,3)#以*为数据，建立一个2行3列的矩阵y,数据按列读取

z<-[?)#将矩阵y转化为数据框

[?!#删除z中存在缺失值的行

正确答案

第一空：

is.na(x)

第二空：

anyNA(x)

第二空：

data,frame(y)

第四空：

na.omit(z)

3

status<-c("Poor","Improved","Excellent","Poor")#创建字符型向量

S<-factor(status,[?]=TRUE)#创建有序因子序列

[?J#查看序列S的存储模式

[?)#将序列S转化为数值型向量

[?]#查看序列5的因子水平

正确答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

9

x<-c(2,4,6,8,10,NA)彳建立向量x

[?]#判断向量X中是否存在缺失值，要求返回一个与X等长的逻辑向量

[?]#判断向量X中是否存在缺失值，要求返回TRUE或FALSE

y<-matrix(x,2,3)#以乂为数据，建立一个2行3列的矩阵y,数据按列读取

z<-[?]#将矩阵y转化为数据框

[?)#删除z中存在缺失值的行

正确答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na,omit(z)

答案解析：

2

[?]#列出在基本程序包(base)中所有可利用的数据集

[?](iris,file="iris.txt")#将数据集iris存储为.txt文件

[?J(iris,file=〃iris.csv〃)#将数据集iris存储为.csv文件

mydata<-[?]("iris,txt",head=TRUE)#读取iris,txt到对象mydata中

正确答案

第一空：

data()

第二空：

write.table

第三空：

write.csv

第四空：

read,tabi

3

创建如下的数据框，并增加样本数据

datairis<-data,frame(Sepal.Length=c(5.1,4.9,4.7,4.6),

Sepal.Width=c(3.5,3.0,3.2,3.1),

Petal.Length=c(l.4,1.4,1.3,1.5),

Pe.tai.Width=[?](0.2,4))

[?]#显示数据框

(data.iris<-[?](data_iris,1ist(3.0,2.6,0.4,0.2)))#增加样本数据

正确答案

第一空：

rep

第二空：

data_iris

第三空：

rbind

I____________

gender—c(〃M〃，〃M〃，〃F〃，"F〃)

math<-c(90,70,80,60)

Eng<-c(88,78,69,98)

chinese<-c(66,59,NA,88)

score<-[?](student,gender,math,Eng,Chinese)#构建数据框

[?](score$chinese,na.last=TRUE)#对score的Chinese列按照从小到大排列，并把

缺失值放在最后

[?]#对score$ma计升序排列，返回的值表示对应值在原向量中的位置

正确答案

第一空：

data,frame

第二空：

sort

第三空：

order(score$math)

9

在同一张图上画出函数yl=2x,y2=x,2的曲线，添加标题〃2x和-2的曲线”，并添加弱例

〃yl=2x,y2=x'2"

x<-[?](0,10,by=0.5)

yl=2*x

y2=x-2

plot(x,yl,type="o",【？】)#绘制函数yl=2x的曲线，type类型为〃o〃，点样式为8

lincs(x,y2,typc='，o，z,[?],pch=24)#绘制函数y2=x2的曲线，type类

型为〃。〃，点样式为24,颜色为红色

[?]("topright”,c("2*x","x"2"),col=c("black","red"),pch=c(8,24),lty=l)#添

加图例

[7!#添加标题

正确答案

第一空：

seq

第二空：

pch=8

第三空：

col=，，red，/

第四空：

legend

第五空：

title(main=，，2x和x2的曲线〃)

2

x<-c(2,4,6,8,10,NA)，建立向量x

[?]#判断向量X中是否存在缺失值，要求返回一个与X等长的逻辑向量

[?]#判断向量X中是否存在缺失值，要求返回TRUE或FALSE

y<-matrix(x,2,3)才以x为数据，建立一个2行3列的矩阵y,数据按列读取

z<-[?]#将矩阵y转化为数据框

[?]#删除z中存在缺失值的行

正确答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na.omit(z)

3

[?]#设定种子数12

data<-[?]#随机生成10个标准正态分布的数据，赋值给data

[?]#查看data的值域

[?]#对data求和

正确答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

I___________

绘制空白画布

绘制线段，起点(2,1)终点(4,8)

绘制带箭头的红色线段，从(4,0)到(7,3),箭头角度30

添加网格线

----------------------------------------------------------*/

plot(c(0:10),col="【？】")#绘制空白画布

[?)把会制线段，起点⑵1)终点(4,8)

[?](4,0,7,3,angle=30,colored")#绘制带箭头的红色线段,从(4,0)到(7,3),箭头

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加网格线

正确答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

|__________________________________________________________

status<-c("Poor","Improved","Excellent","Poor")

#创建字符型向量

S<-factor(status,['?]=TRUE)

#创建有序因子序列

[?]

#查看序列S的存储模式

[?]

#将序列S转化为数值型向量

[?]

#查看序列S的因子水平

正确答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

2

[?]

#列出在基本程序包(base)中所有可利用的数据集

[?](iris,file=wiris.txt")

#将数据集iris存储为.txt文件

[?](iris,file=*iris.csv")

#将数据集iris存储为.csv文件

mydata<-[?]("iris,txt”,head二TRUE)

#读取iris,txt到对象mydata中

正确答案

第一-空：

data()

第二空：

write,tabic

第三空：

write.CSV

第四空：

read,table

3

today<-[?]#读取系统当前日期

NewChina<-[?]("1949-10-01")#将”1949年10月1日"转化为日期型变量

[?]力判断数据today是否为double型

typcof(NewChina)#显示数据NcwChina的类型

[?]

#将数据NewChina转化为字符型

正确答案

第一空：

Sys.DateO;date()

第二空：

as.Date

第二空：

is.double(today)

第四空：

as.character(NewChina)

4绘制空白画布

绘制线段,起点(2,1)终点(4,8)

绘制带箭头的红色线段，从(4,0)到(7,3),箭头角度30

添加网格线

plot(c(0:10),col="[?]")

并绘制空白画布

[?]

#绘制线段，起点(2,1)终点(4,8)|

[?](4,0,7,3,angle=30,cob""red")#绘制带箭头的红色线段,从(4,0)到

(7,3),箭头角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加网格线

正确答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

1

#iris是一个关于莺尾花的统计信息的列表。

[?]#杳看列表iris的前六行

[?]#查看列表iris的列名称

[?]#对Sepal.Length列，查看元素的个数

[?]Sepal.Length列，求均值

正确答案

第一空：

head(iris)

第二空：

colnames(iris);names(iris)

第三空：

length(iris$Sepal.Length)

第四空：

mean(iris$Sepal.Length)

2

x<-[?](1.7,by=0.1,length=6)#创建向量x,首项为1.7,公差为0.1,长度为

6

y<-【？】(x,cach=2,lcn=6)#创建向量y,各元素重复两次，序列长度为

A<matrix(y,3,2,[?])#建立矩阵A,数据按行读取

[?]#删除矩阵A的第一行

正确答案

第一空：

seq

第二空：

rep

第三空：

byrow=TRUE;byrow=T

第四空：

A[-l,]

3

x<-c(2,4,6,8,10,NA)*建立向量x

[?]#判断向量X中是否存在缺失值，要求返回一个与X等长的逻辑向量

[7]#判断向量X中是否存在缺失值，要求返回TRUE或FALSE

y<-matrix(x,2,3)#以*为数据，建立一个2行3列的矩阵y,数据按列读取

z<-[?]#将矩阵y转化为数据框

[?!#删除z中存在缺失值的行

正确答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na.omit(z)

4

status<-c("Poor","Improved","Excellent","Poor")#创建字符型向量

S<-factor(status,[?]=TRUE)#创建有序因子序列

[?]#查看序列S的存储模式

[?!#将序列S转化为数值型向量

[?]#查看序列S的因子水平

正确答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

|___________________________________________________________________________

status<-c("Poor","Improved","Excellent","Poor")#创建字符型向量

S<factor(status,[?!=TRUE)#创建有序因子序列

[?]#查看序列S的存储模式

[?!#将序列S转化为数值型向量

[?]#查看序列S的因子水平

正确答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

2

绘制空白画布

绘制线段，起点(2,1)终点(4,8)

绘制带箭头的红色线段，从(4,0)到(7,3),箭头角度30

添加网格线

*/

plot(c(0:10),col=[?]〃)#绘制空白画布

[?]，绘制线段，起点(2,1)终点(4,8)

[?](4,0,7,3,angle=30,colored")#绘制带笳头的红色线段，从(4,0)到(7,3),箭头

角度30

[?](nx=4,ny=8,Iwd=1,lty=2,col="blue")#添加网格线

正确答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

3

today<-[?]#读取系统当前日期

NewChina<-[?]("194970-01〃)#将“1949年10月1日“转化为日期型变量

[?]#判断数据today是否为double型

typeof(NewChina)#显示数据NewChina的类型

[?]#将数据Ne^hina转化为字符型

正确答案

第一空：

Sys.DateO;date()

第二空：

as.Date

第二空：

is.double(today)

第四空：

as.character(NewChina)

4

[?]二#列出在基本程序包(base)中所有可利用的数据集

[?](iris,file="iris.txt")#将数据集iris存储为.txt文件

[?](iris,file=〃iris.csv〃)#将数据集iris存储为.csv文件

mydata<-[?]("iris,txt”,head=TRUE)#读取iris,txt到对象mydata中

正确答案

第一空：

data()

第二空：

write.table

第三空：

write,csv

第四空：

read,table

2

创建如下形式的数据框dstasheet：

SiteSeasonPH

Awinter7.4

Bsummer6.3

Asummer8.6

Aspring7.2

Bfall8.9

.*/

Season〈-c("winter","summer","summer","spring","fall")

PH<-c(7.4,6.3,8.6,7.2,8.9)

datasheet<-[?](Site.Season,PH)#构建数据框

[?]#索引第一行

[?1#索引名称为PH的列(按名称索引)

[7]#查看数据框的列名称

[?)#删除第二列

(10.0分)10.0分

正确答案

第一空：

data,frame

第二空：

datasheet[1,]

第二空：

datasheet$PH;datasheet["PH”]

第四空：

names(datasheet);colnames(datasheet)

第五空：

datasheet[,-2]

x《c(l,3,5,4,2,8)#创建向量作为矩阵的数据

A<-matnx(x,nrow=3,[?]=T)#创建一个3行2列的矩阵,按行读取数据

[?]<-c(“cl”,“c2”)#定义列的名称为“cl”,“c2”

[?!<文”门,，32",上3")#定义行的名称为,,门，,,「2，什3”

[?]#检索矩阵第2行

(10.0分)10.0分

正确答案

第一空：

byrow

第二空：

colnames(A)

第三空：

rownames(A)

第四空：

A[2J

计算365+7的结果，将并将命令历史文件保存在D盘FI录下的文件夹myproject中。

（提示：创建文件夹命令dir.crcatc（）,保存历史文件命令savchistory（））

正确答案：

dir.create(ud:/myprojectM)#命令创建

setwd("d:/myproject")

365+7

savehistory(^myfile.Rhistory")

老万维全自动网络考试平台

程序填空.第4题（题号：1084）-20