实验二 数据对象与数据读写
【实验目的】1. 了解R语言中的数据结构。2. 了解R语言中数据类型的判别及转换函数，及其应用方法。3. 了解R语言中对数据结构操作的函数，及其应用方法。4. 了解R语言中读写数据文件的方法。
【实验内容与实现】
1.创建一个对象，并进行数据类型的转换、判别等操作，步骤如下。
① 创建一个对象X，内含元素为序列：1，3, 5, 6, 8。
② 判断对象x是否是数值型数据。
③ 将对象转换为逻辑型数据，记为x1。
④ 判断xl是否为逻辑型数据。
A1.
①x <- c(1,3,5,6,8)
x
②is.numeric(x)
③x1 <- as.logical(x)
④is.logical(x1)
2.创建多种数据结构，并进行数据结构的转换、索引、扩展等编辑操作，步骤如下。
① 设置工作空间目录。
② 创建一个向量x,内含元素为序列：11，23, 25, 46, 38, 30, 59, 47, 21, 67。
③ 查询向量x中序号为23和46的元素，查询向量x中大于35且小于等于50的元素的位置。
④ 创建一个重复因子序列Species：水平数为3,各水平重复两次，序列长度为5; 3个水平为 setosa、versicolor、virginica。
⑤ 创建一个5行2列的矩阵，元素为向量X，按列填充。
⑥ 将矩阵写入数据框data iris,更改列名为Sepal.Length、SepaLWidth。
⑦ 将数据框datajris保存为TXT文件，保存到工作空间的test目录下。
⑧ 将数据框data iris转换为向量y。
⑨ 判断是否转换成功。
A 2.
①getwd()setwd(‘D:/R’)
getwd()
②x <- c(11,23,25,46,38,30,59,47,21,67)
x
③which(x == 23)
which(x == 46)
which(x > 35 & x <= 50)
④Species <-rep(c(“setosa”,“versicolor”,“virginica”),each=2,length.out=5)
Species
⑤x <- matrix(1:10, ncol = 2, nrow = 5, byrow = F)
x
⑥data_iris <- data.frame(x)data_iris
names(data_iris) <-c(“Sepal.Length”,“Sepal.Width”)
data_iris
⑦dir.create(‘test’)
setwd(‘test’)
getwd()
write.table(data_iris,file=“data_iris.txt”)
⑧data_iris1 <- as.matrix(data_iris)
y <- as.vector(data_iris1)
y
⑨is.vector(y)
3.读取TXT文件，进行编辑操作，再写人另外一个CSV文件中，步骤如下。① 读取保存在test目录下的TXT文件data_iriso② 将R的示例数据集iris中的第6〜10行写人数据框datajrisl中。③ 将数据框data iris与data irisl合并为数据框data_iris2,并保存在CSV文件所在的目录下。
A3
.①datatxt=read.table(“D:/R/test/data_iris.txt”,header = TRUE)
datatxt
View(datatxt)
② data_iris1<-data.frame(iris[6:10,])
③data_iris2<cbind(data_iris,data_iris1)
write.csv(data_iris2,“data_iris2.csv”)
