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