R语言初学 2021-01-23

R语言学习 输入数据

Rlearn_5.R



使用R语言输入如下表格：

学生ID	入学时间	年龄	专业
1	1/9/2020	22	数学
2	1/9/2020	24	统计
3	1/9/2019	24	数学
4	1/9/2019	25	统计

直接输入表格：

# 直接输入表格
# 1 每个变量储存一列数据
studentID <- c(1,2,3,4)
enrolldate <- c("1/9/2020","1/9/2020","1/9/2019","1/9/2019")
age <- c(22,24,24,25)
major <- c("数学","统计","数学","统计")

studentData <- data.frame(studentID,enrolldate,age,major)
print(studentData)

# 2 先定义好数据框 类似于sql的create table
studentData2 <- data.frame(studentID = character(0),enrolldate = character(0),age = numeric(),major = character())

studentData2 <- edit(studentData2)  # 使用edit对创建好的数据框进行编辑
print(studentData2)

读入文件(一)：

# 读入文件
setwd("E:/Rfile")  # 设置当前工作目录
read.csv("tempdub.csv")  # 直接读取工作目录下的文件 文件名一定要加引号
head(x)  # 截取前五行
tail(x)  # 截取后五行
head(x,n = 10)

tempdata <- read.table("E:/Rfile/stockdata.csv",header = F,sep = ",")  # header设置是否读取第一行作为变量名 sep为设置分隔符
print(tempdata)
tempdata <- read.table("E:/Rfile/stockdata.csv",header = F,sep = ",",skip = 5,nrows = 15)  # skip=5忽略前五行，从第六行开始读取,nrows=15读取到第20行
print(tempdata)

读入文件(二)

# 直接从网址上下载文件读取
studentTable <- read.table("http://gs.hust.edu.cn/system/_content/download.jsp?urltype=news.DownloadAttachUrl&owner=1610628769&wbfileid=4714152",header = T)

# 通过XML包读取网页上的表格
install.packages("XML")
library(XML)
readHTMLTable("https://baike.baidu.com/item/%E4%B8%96%E7%95%8C%E4%BA%BA%E5%8F%A3/831014?fr=aladdin",which = 2)  # which=2设置读取第二个表格

# 读取剪贴板上的数据 先右键复制数据
x <- read.table("clipboard",header = F,sep = "\t")

# R可以直接读取压缩包内的数据
read.table(gzfile("txtname.txt.gz"))

# 以文本格式按行读取
readLines("tempdub.csv",n = 15)

# scan函数可以使每一列读取的数据类型不同
scan("tempdub.csv",what = list(character(),numeric()))  # 使用what设置读取参数的数据类型

写入文件:

## 写入文件
write(rivers,file = "rivers.txt")
write.csv(iris,file = "E:/Rfile/iris.csv",row.names = F)  # 把R内置数据集iris导出为csv文件 row.name=F则不写行号
studentData
write.csv(studentData,file = "studentData.csv",quote = F)  # quote=F设置字符串不加引号 默认是加引号的

# Rdata文件可以保存当前工作空间 类似于project文件
save.image()  # 保存当前工作空间中的所有对象 会自动保存为.RData,下次自动读取
save.image("2020_1_23_Rdata.RData")
load("2020_1_23_Rdata.RData")  # 可以在右上角Environment窗口保存RData (save workspace as..)

save(iris,iris3,file = "E:/Rfile/iris.RData")  # 将iris和iris3两个数据集保存为RData
load("iris.RData")