I

x<-c(5.1,4.9,4.7,4.6,5.0,3.5,3.0,3.2,3.1,3.6)#創(chuàng)建一個(gè)向量x

【？】#查詢向量x中序號(hào)為3,6,9的元素

A<-matrix(x,nrow=5,ncol=2,[?])#創(chuàng)建一個(gè)5行2列的矩陣,元素為向量x,按

列填充

K<-[?]#將矩陣寫(xiě)入數(shù)據(jù)框K

P<-[?1#創(chuàng)建一個(gè)重復(fù)序列P,將0.2重復(fù)五次

正確答案

第一空：

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)#創(chuàng)建向量x,首項(xiàng)為L(zhǎng)7,公差為0.1,長(zhǎng)度

為6

y<-[?](x,each=2,len=6)#創(chuàng)建向量y,各元素重復(fù)兩次，序列長(zhǎng)度為

A<-matrix(y,3,2,[?])#建立矩陣A,數(shù)據(jù)按行讀取

[?]#刪除矩陣A的第一行

正確答案

第一空：

seq

第二空：

rep

第三空：

byrow=TRUE;byrow二T

第四空：

A[-l,]

3

[?)#設(shè)定種子數(shù)12

data<-[?]#隨機(jī)生成10個(gè)標(biāo)準(zhǔn)正態(tài)分布的數(shù)據(jù)，賦值給data

[?]#查看data的值域

[?]#對(duì)data求和

正確答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

#iris是一個(gè)關(guān)于鶯尾花的統(tǒng)計(jì)信息的列表。

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

[?)#查看列表iris的列名稱(chēng)

*對(duì)Sepal.Length列，查看元素的個(gè)數(shù)

[?]#對(duì)Sepal.Length列，求均值

正確答案

第一空：

head(iris)

第二空：

colnames(iris);names(iris)

第三空：

length(iris$Scpal.Length)

第四空：

mean(iris$Sepal.Length)

plot(c(0:10),col="【？】")#繪制空白畫(huà)布

[?J#繪制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

[?](4,0,7,3,angle=30,colored*)#繪制帶箭頭的紅色線段，從(4,0)到(7,3),箭頭

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加網(wǎng)格線

正確答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

3

[?]#設(shè)定種子數(shù)12

data<-[?]#隨機(jī)生成10個(gè)標(biāo)準(zhǔn)正態(tài)分布的數(shù)據(jù)，賦值給data

[?)#查看data的值域

[?]#對(duì)data求和

正確答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

創(chuàng)建如下的數(shù)據(jù)框，并增加樣本數(shù)據(jù)

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))

[?]#顯示數(shù)據(jù)框

(datairis<-[?](datairis,list(3.0,2.6,0.4,0.2)))#增加樣本數(shù)據(jù)

正確答案

第一空：

rep

第二空：

data_iris

第三空：

rbind

2

將窗口分割成2X1的窗格，在第一個(gè)、第二個(gè)窗口中分別繪制出正弦、余弦函數(shù)的圖像,

并畫(huà)出X軸。

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

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

yl<-sin(x)

y2<-cos(x)

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

[?]#繪制出正弦函數(shù)的圖像,typ。為線型，顏色為紅色

[?](c(0,3*pi),c(0,0))#畫(huà)出X軸

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

[?]#繪制余弦函數(shù)的圖像，type為線型，顏色為藍(lán)色

正確答案

第一空：

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)中所有可利用的數(shù)據(jù)集

[?](iris,file=，/iris.txt")#將數(shù)據(jù)集iris存儲(chǔ)為.txt文件

【？】(iris,file=/，iris.csv")#將數(shù)據(jù)集iris存儲(chǔ)為.csv文件

mydata<-[?]("iris,txt",head=TRUE)#讀取iris,txt到對(duì)象mydata中

正確答案

第一空：

data()

第二空：

write.table

第三空：

write.csv

第四空：

read,table

I___________________________________

在同一張圖上畫(huà)出函數(shù)yl=2x,y2=x'2的曲線，添加標(biāo)題“2x和-2的曲線〃，并添加到例

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

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

yl=2*x

y2=x"2

plot(x,yl,type^o",[?])能會(huì)制困數(shù)yl=2x的曲線，type類(lèi)型為"o〃，點(diǎn)樣式為8

lines(x,y2,type=/，oz，,[1?],pch=24)#繪制函數(shù)y2=x2的曲線，type類(lèi)

型為"o"，點(diǎn)樣式為24,顏色為紅色

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

加圖例

[?)#添加標(biāo)題

正確答案

第一空：

seq

第二空：

pch=8

第三空：

col="red"

第四空：

legend

第五空：

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

2

x<-c(1,3,5)#創(chuàng)建向量

[?]#查看第一個(gè)元素

[?]#查看除了第二個(gè)元素之外的所有元素

[?]#向量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是一個(gè)關(guān)于鶯尾花的統(tǒng)計(jì)信息的列表。

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

[9)#查看列表iris的列名稱(chēng)

[?]#對(duì)Sepal.Length列，查看元素的個(gè)數(shù)

[?]#對(duì)Sepal.Length列，求均值

正確答案

第一空：

head(iris)

第二空：

colnames(iris);names(iris)

第三空：

length(iris$Sepal.Length)

第四空：

mean(iris$Sepal.length)

1

繪制空白畫(huà)布

繪制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

繪制帶箭頭的紅色線段，從(4,0)到(7,3),箭頭角度30

添加網(wǎng)格線

plot(c(0:10),col="【？】")#繪制空白畫(huà)布

[?]他會(huì)制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

[?](4,0,7,3,angle=30,colored")#繪制帶箭頭的紅色線段,從(4,0)到(7,3),箭頭

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加網(wǎng)格線

正確答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

2

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

[?1#判斷向量x中是否存在缺失值，要求返回一個(gè)與x等長(zhǎng)的邏輯向量

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

y<-matrix(x,2,3)#以*為數(shù)據(jù)，建立一個(gè)2行3列的矩陣y,數(shù)據(jù)按列讀取

z<-[?)#將矩陣y轉(zhuǎn)化為數(shù)據(jù)框

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

正確答案

第一空：

is.na(x)

第二空：

anyNA(x)

第二空：

data,frame(y)

第四空：

na.omit(z)

3

status<-c("Poor","Improved","Excellent","Poor")#創(chuàng)建字符型向量

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

[?J#查看序列S的存儲(chǔ)模式

[?)#將序列S轉(zhuǎn)化為數(shù)值型向量

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

正確答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

9

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

[?]#判斷向量X中是否存在缺失值，要求返回一個(gè)與X等長(zhǎng)的邏輯向量

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

y<-matrix(x,2,3)#以乂為數(shù)據(jù)，建立一個(gè)2行3列的矩陣y,數(shù)據(jù)按列讀取

z<-[?]#將矩陣y轉(zhuǎn)化為數(shù)據(jù)框

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

正確答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na,omit(z)

答案解析：

2

[?]#列出在基本程序包(base)中所有可利用的數(shù)據(jù)集

[?](iris,file="iris.txt")#將數(shù)據(jù)集iris存儲(chǔ)為.txt文件

[?J(iris,file=〃iris.csv〃)#將數(shù)據(jù)集iris存儲(chǔ)為.csv文件

mydata<-[?]("iris,txt",head=TRUE)#讀取iris,txt到對(duì)象mydata中

正確答案

第一空：

data()

第二空：

write.table

第三空：

write.csv

第四空：

read,tabi

3

創(chuàng)建如下的數(shù)據(jù)框，并增加樣本數(shù)據(jù)

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))

[?]#顯示數(shù)據(jù)框

(data.iris<-[?](data_iris,1ist(3.0,2.6,0.4,0.2)))#增加樣本數(shù)據(jù)

正確答案

第一空：

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)#構(gòu)建數(shù)據(jù)框

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

缺失值放在最后

[?]#對(duì)score$ma計(jì)升序排列，返回的值表示對(duì)應(yīng)值在原向量中的位置

正確答案

第一空：

data,frame

第二空：

sort

第三空：

order(score$math)

9

在同一張圖上畫(huà)出函數(shù)yl=2x,y2=x,2的曲線，添加標(biāo)題〃2x和-2的曲線”，并添加弱例

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

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

yl=2*x

y2=x-2

plot(x,yl,type="o",【？】)#繪制函數(shù)yl=2x的曲線，type類(lèi)型為〃o〃，點(diǎn)樣式為8

lincs(x,y2,typc='，o，z,[?],pch=24)#繪制函數(shù)y2=x2的曲線，type類(lèi)

型為〃。〃，點(diǎn)樣式為24,顏色為紅色

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

加圖例

[7!#添加標(biāo)題

正確答案

第一空：

seq

第二空：

pch=8

第三空：

col=，，red，/

第四空：

legend

第五空：

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

2

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

[?]#判斷向量X中是否存在缺失值，要求返回一個(gè)與X等長(zhǎng)的邏輯向量

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

y<-matrix(x,2,3)才以x為數(shù)據(jù)，建立一個(gè)2行3列的矩陣y,數(shù)據(jù)按列讀取

z<-[?]#將矩陣y轉(zhuǎn)化為數(shù)據(jù)框

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

正確答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na.omit(z)

3

[?]#設(shè)定種子數(shù)12

data<-[?]#隨機(jī)生成10個(gè)標(biāo)準(zhǔn)正態(tài)分布的數(shù)據(jù)，賦值給data

[?]#查看data的值域

[?]#對(duì)data求和

正確答案

第一空：

set.seed(12)

第二空：

rnorm(lO)

第三空：

range(data)

第四空：

sum(data)

I___________

繪制空白畫(huà)布

繪制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

繪制帶箭頭的紅色線段，從(4,0)到(7,3),箭頭角度30

添加網(wǎng)格線

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

plot(c(0:10),col="【？】")#繪制空白畫(huà)布

[?)把會(huì)制線段，起點(diǎn)⑵1)終點(diǎn)(4,8)

[?](4,0,7,3,angle=30,colored")#繪制帶箭頭的紅色線段,從(4,0)到(7,3),箭頭

角度30

[?](nx=4,ny=8,Iwd=1,Ity=2,col="blue")#添加網(wǎng)格線

正確答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

|__________________________________________________________

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

#創(chuàng)建字符型向量

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

#創(chuàng)建有序因子序列

[?]

#查看序列S的存儲(chǔ)模式

[?]

#將序列S轉(zhuǎn)化為數(shù)值型向量

[?]

#查看序列S的因子水平

正確答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

2

[?]

#列出在基本程序包(base)中所有可利用的數(shù)據(jù)集

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

#將數(shù)據(jù)集iris存儲(chǔ)為.txt文件

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

#將數(shù)據(jù)集iris存儲(chǔ)為.csv文件

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

#讀取iris,txt到對(duì)象mydata中

正確答案

第一-空：

data()

第二空：

write,tabic

第三空：

write.CSV

第四空：

read,table

3

today<-[?]#讀取系統(tǒng)當(dāng)前日期

NewChina<-[?]("1949-10-01")#將”1949年10月1日"轉(zhuǎn)化為日期型變量

[?]力判斷數(shù)據(jù)today是否為double型

typcof(NewChina)#顯示數(shù)據(jù)NcwChina的類(lèi)型

[?]

#將數(shù)據(jù)NewChina轉(zhuǎn)化為字符型

正確答案

第一空：

Sys.DateO;date()

第二空：

as.Date

第二空：

is.double(today)

第四空：

as.character(NewChina)

4繪制空白畫(huà)布

繪制線段,起點(diǎn)(2,1)終點(diǎn)(4,8)

繪制帶箭頭的紅色線段，從(4,0)到(7,3),箭頭角度30

添加網(wǎng)格線

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

并繪制空白畫(huà)布

[?]

#繪制線段，起點(diǎn)(2,1)終點(diǎn)(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")#添加網(wǎng)格線

正確答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

1

#iris是一個(gè)關(guān)于鶯尾花的統(tǒng)計(jì)信息的列表。

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

[?]#查看列表iris的列名稱(chēng)

[?]#對(duì)Sepal.Length列，查看元素的個(gè)數(shù)

[?]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)#創(chuàng)建向量x,首項(xiàng)為1.7,公差為0.1,長(zhǎng)度為

6

y<-【？】(x,cach=2,lcn=6)#創(chuàng)建向量y,各元素重復(fù)兩次，序列長(zhǎng)度為

A<matrix(y,3,2,[?])#建立矩陣A,數(shù)據(jù)按行讀取

[?]#刪除矩陣A的第一行

正確答案

第一空：

seq

第二空：

rep

第三空：

byrow=TRUE;byrow=T

第四空：

A[-l,]

3

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

[?]#判斷向量X中是否存在缺失值，要求返回一個(gè)與X等長(zhǎng)的邏輯向量

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

y<-matrix(x,2,3)#以*為數(shù)據(jù)，建立一個(gè)2行3列的矩陣y,數(shù)據(jù)按列讀取

z<-[?]#將矩陣y轉(zhuǎn)化為數(shù)據(jù)框

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

正確答案

第一空：

is.na(x)

第二空：

anyNA(x)

第三空：

data,frame(y)

第四空：

na.omit(z)

4

status<-c("Poor","Improved","Excellent","Poor")#創(chuàng)建字符型向量

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

[?]#查看序列S的存儲(chǔ)模式

[?!#將序列S轉(zhuǎn)化為數(shù)值型向量

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

正確答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

|___________________________________________________________________________

status<-c("Poor","Improved","Excellent","Poor")#創(chuàng)建字符型向量

S<factor(status,[?!=TRUE)#創(chuàng)建有序因子序列

[?]#查看序列S的存儲(chǔ)模式

[?!#將序列S轉(zhuǎn)化為數(shù)值型向量

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

正確答案

第一空：

ordered

第二空：

storage,mode(S)

第三空：

as.numeric(S)

第四空：

levels(S)

2

繪制空白畫(huà)布

繪制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

繪制帶箭頭的紅色線段，從(4,0)到(7,3),箭頭角度30

添加網(wǎng)格線

*/

plot(c(0:10),col=[?]〃)#繪制空白畫(huà)布

[?]，繪制線段，起點(diǎn)(2,1)終點(diǎn)(4,8)

[?](4,0,7,3,angle=30,colored")#繪制帶笳頭的紅色線段，從(4,0)到(7,3),箭頭

角度30

[?](nx=4,ny=8,Iwd=1,lty=2,col="blue")#添加網(wǎng)格線

正確答案

第一空：

white

第二空：

segments(2,1,4,8)

第三空：

arrows

第四空：

grid

3

today<-[?]#讀取系統(tǒng)當(dāng)前日期

NewChina<-[?]("194970-01〃)#將“1949年10月1日“轉(zhuǎn)化為日期型變量

[?]#判斷數(shù)據(jù)today是否為double型

typeof(NewChina)#顯示數(shù)據(jù)NewChina的類(lèi)型

[?]#將數(shù)據(jù)Ne^hina轉(zhuǎn)化為字符型

正確答案

第一空：

Sys.DateO;date()

第二空：

as.Date

第二空：

is.double(today)

第四空：

as.character(NewChina)

4

[?]二#列出在基本程序包(base)中所有可利用的數(shù)據(jù)集

[?](iris,file="iris.txt")#將數(shù)據(jù)集iris存儲(chǔ)為.txt文件

[?](iris,file=〃iris.csv〃)#將數(shù)據(jù)集iris存儲(chǔ)為.csv文件

mydata<-[?]("iris,txt”,head=TRUE)#讀取iris,txt到對(duì)象mydata中

正確答案

第一空：

data()

第二空：

write.table

第三空：

write,csv

第四空：

read,table

2

創(chuàng)建如下形式的數(shù)據(jù)框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)#構(gòu)建數(shù)據(jù)框

[?]#索引第一行

[?1#索引名稱(chēng)為PH的列(按名稱(chēng)索引)

[7]#查看數(shù)據(jù)框的列名稱(chēng)

[?)#刪除第二列

(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)#創(chuàng)建向量作為矩陣的數(shù)據(jù)

A<-matnx(x,nrow=3,[?]=T)#創(chuàng)建一個(gè)3行2列的矩陣,按行讀取數(shù)據(jù)

[?]<-c(“cl”,“c2”)#定義列的名稱(chēng)為“cl”,“c2”

[?!<文”門(mén),，32",上3")#定義行的名稱(chēng)為,,門(mén)，,,「2，什3”

[?]#檢索矩陣第2行

(10.0分)10.0分

正確答案

第一空：

byrow

第二空：

colnames(A)

第三空：

rownames(A)

第四空：

A[2J

計(jì)算365+7的結(jié)果，將并將命令歷史文件保存在D盤(pán)FI錄下的文件夾myproject中。

（提示：創(chuàng)建文件夾命令dir.crcatc（）,保存歷史文件命令savchistory（））

正確答案：

dir.create(ud:/myprojectM)#命令創(chuàng)建

setwd("d:/myproject")

365+7

savehistory(^myfile.Rhistory")

老萬(wàn)維全自動(dòng)網(wǎng)絡(luò)考試平臺(tái)

程序填空.第4題（題號(hào)：1084）-20