#导入数据,这里是通过选择文件file.choose()导入csv格式的数据文件。
mydata <- read.csv(file.choose())
复制

#查看数据前6行
head(mydata)
复制
#查看全部数据
print(mydata)
复制
#查看数据结构
str(mydata)
复制
# 重命名9、10、11列的列名
colnames(mydata)[9:11] <- c("CCAG","COG","MAG")
复制
# 删除第3列,可以看到pattern列没有了
mydata[,-3]
复制

# 删除第3行数据
mydata[-3,]
复制
# 提取第3行
mydata[3,]
复制
# 提取第3列
mydata[,3]
复制
# 提取1到3行的数据
mydata[1:3,]
复制
# 提取1到3列的数据
mydata[,1:3]
复制
# 创建新的列
New <- c(1:72)
# 创建新的数据框mydata2
mydata2 <- data.frame(mydata,New)
复制
# 创建行row
row <- c(1:12)
# 添加row到mydata,形成新的数据框mydata3
mydata3 <- rbind(mydata,row)
复制
# 增加1列,列名为New,新增的列是LER列和MO列的和
transform(mydata,New=LER+MO)
复制

# 调用dplyr包
library(dplyr)
# 选择mydata数据集中nitrogen=120的数据
mydata %>% filter(nitrogen==120)
复制

# 将列LER提取出来
select(mydata,LER)
复制

# 选择1到5列
select(mydata,1:5)
复制

#选择列名中有字母"O"的列
select(mydata,contains("O"))
复制

#选择列名中以字母“M”开头的列
select(mydata,starts_with("M"))
复制

#以列pattern进行排序
arrange(mydata,pattern)
复制

#按年份以降序排列
arrange(mydata,desc(year))
复制

文章转载自ZJH的学习笔记,如果涉嫌侵权,请发送邮件至:contact@modb.pro进行举报,并提供相关证据,一经查实,墨天轮将立刻删除相关内容。