按照要求完成以下任务(30分，每小题各10分)：要求给出代码和运行结果的截图 （1）上表为5名同学的数据，请用数据框的形式读入数据。 （2）将上表的数据写成一个文本文件，并用函数read.table()在R中读取改文件； (3)利用函数 write.csv()函数将数据保存为一个能用Excel表打开的文件，并在R中读取该文件。

(1)

#生成数据
name <- c("Amy", "Bob", "Charlie", "David", "Eva")
age <- c(24, 25, 23, 26, 22)
score <- c(90, 88, 92, 85, 93)
#生成数据框
df <- data.frame(name, age, score)

(2)

#写入文本文件
write.table(df, "students.txt", sep="\t", row.names=FALSE)

#读取文本文件
df_read <- read.table("students.txt", header=TRUE, sep="\t")
df_read

运行结果截图：


(3)

#写入csv文件
write.csv(df, "students.csv", row.names=FALSE)

#读取csv文件
df_csv <- read.csv("students.csv", header=TRUE)
df_csv

运行结果截图：