从零开始的异世界生信学习 R语言部分 04 文件的读写与认知

#1.读取ex1.txt
ex1 <- read.table("ex1.txt")  #列名不能正确表示，并且内容中的数值变为了字符串
ex1 <- read.table("ex1.txt",header = T)  #通常读取txt格式文件，header参数表示将文件的第一行作为列名，默认为F

#2.读取ex2.csv
ex2 <- read.csv("ex2.csv")

ex2 <- read.csv("ex2.csv",row.names = 1,check.names = F)
 #row.names= 表示第一列为行名，注意行名不能重复，如果行名有重复，需要处理处理数据
# check.names= 表示检查看列名是否存在特殊符号，F表示保持原文件的符号
#注意：数据框不允许重复的行名
rod = read.csv("rod.csv",row.names = 1)
rod = read.csv("rod.csv")

#3.读取soft.txt
soft <- read.table("soft.txt") #表格不规则，有部分是空白，出现报错

soft <- read.table("soft.txt",header = T,fill = T) #其实不对，会把部分第五列的数据删除掉

soft2 <- read.table("soft.txt",header = T,sep = "\t") #调整数据的分隔符
soft2_2 <- read.delim("soft.txt",header = T) #可以使用read.delim函数

#4.soft 的行数列数是多少？列名是什么
dim(soft)
colnames(soft)

#5.将soft导出为csv
write.csv(soft,file = "soft.csv")  #导出成csv格式
write.table(soft,file = "soft.txt")  #导出成txt格式

#6.将soft保存为Rdata并加载。
save(soft,file = "soft.Rdata")  # file=不可以省略
rm(list = ls()) 
load(file = "soft.Rdata") 
load("soft.Rdata") 

# save函数保存错了之后，可以用load打开
#文件后缀不一定表示文件的实际情况
save(ex1,file = "xerror.csv") #save文件用来保存Rdata 文件
a <- read.csv("xerror.csv")
load("xerror.csv")

# data.table包中的fread函数
soft = data.table::fread("soft.txt",data.table = F)  #读取速度更快，参数较少，可以直接读取问题文件
# rio包，包括import以及export函数
library(rio)  #不能读取问题文件，
wf1 <-import("wf1.xlsx")  #读取xlsx文件
wf <- import_list("wf.xlsx") #可以吧多个sheet文件的excel文件导入成列表模式
a = import("abc.mp4",format = "\t")  #加上format=参数可以打开问题文件，读取xlsx文件的优秀函数
b = import_list("jimmy.xlsx")
b$Sheet1
export(b,"jimmyzhenbang.xlsx") #导出后也为多列表的xlsx文件
export(b$Sheet1,"jimmyzhenbang.csv")  #可以将列表中的一部分就可以导出csv文件

# 1.由数值型数据框转换
m1 = as.matrix(iris[,1:4])
# 2.由向量改变维度而来
m2 = matrix(rnorm(18),nrow = 3)
m2
# 3. 由向量拼接而来
m3 = cbind(1:10,  # cbind函数表示按照行合并向量，rbind为按照列合并数据
           11:20,
           30:21)
m3
#4.内置
volcano