本系列为R语言系统学习笔记，已收录至“R语言笔记”专栏，可戳右下角专栏目录订阅，空余时间会持续更新。往期文章：
0. R的下载与安装 vs Rstudio报错
1. R语言向量、矩阵、数组、数据框
2. R语言条件、循环、函数

数据的读取

读取csv

方法一：点击 File ——> Import Dataset ——> From xxx

• Name:可重新命名
• Skip：跳过前面几行
• First Row as Name：把第一行作为列名
• Dellmiter：选择分隔符 （Comma代表逗号分割）
• NA:定义缺失值用NA或其它表示

方法二：read.csv为内置函数

GB_RF_Apr <- read.csv(file = 'E:/α-2_冰箱/M4/COOLING_HITLIST_GB_JAN21_APR22.csv',header = T)
View(GB_RF_Apr) 
#*注read.csv(file = 完整路径, header = TRUE 第一行作为变量名，sep = ','逗号分割，
#*注col.names = 重新定义列名，na.strings = c('','000','999','_')定义缺失值表示方式,stringsAsFactors = 字符串转因子)
head(GB_RF_Apr) #查看表头

读取txt

GB_RF_Apr2 <- read.table(file = 'E:/α-2_冰箱/M4/GB_RF4.txt',header = T)

读取Excel

• 加载readxl包

install.packages('readxl')
library(readxl)
SI_WM_Mar <- read_xlsx(path = 'E:/α-2_冰箱/M4/WM_SI_MAR22.xlsx',sheet = 1) #默认第一行作为列名
head(SI_WM_Mar)

• XLConnect局部读取

install.packages("XLConnect")
install.packages('rJava')
library(XLConnect) #没有读取成功
SI_WM_Mar2 <- readWorksheetFromFile(file = 'E:/α-2_冰箱/M4/WM_SI_MAR22.xlsx',startRow = 5,endRow = 10,startCol = 2,endCol = 4)

• 键入函数
  x <- scan()
• 数据写出函数
  cat(1:10,file = 'E:/α-2_冰箱/M4/temp.txt')

读取SPSS

install.packages("foreign")
library(foreign)
my_SPSS <- read.spss(file = 'E:/α-2_冰箱/M4/temp.sav',to.data.frame = T,use.missings = T)
#to.data.frame = T 用数据框格式表示,use.missings = T 含有缺失值

文本的读取

方法一

my_text <- readLines('C:/Users/wangmanni/Desktop/List/List.txt')
my_text

方法二

install.packages("stringi")
library(stringi)
my_seq <- stri_read_lines('C:/Users/Desktop/List/List.txt')
head(my_seq)

数据的导出

csv格式导出

GB_RF_Apr <- read.csv(file = 'E:/α-2_冰箱/M4/COOLING_HITLIST_GB_JAN21_APR22.csv')
write.csv(GB_RF_Apr,file = 'E:/α-2_冰箱/M4/NEW_RF_GB_APR22.csv')  #导出csv格式

Excel导出为csv格式

SI_WM_Mar <- read_xlsx(path = 'E:/α-2_冰箱/M4/WM_SI_MAR22.xlsx')
write.csv(SI_WM_Mar,file = 'E:/α-2_冰箱/M4/NEW_RF_SI_Mar22.csv')

• cr.Leopard课程