創(chuàng)建數(shù)據(jù)框
數(shù)據(jù)框是R語(yǔ)言的一種基礎(chǔ)數(shù)據(jù)格式，通常excel等表格形式數(shù)據(jù)讀入后都是數(shù)據(jù)框格式锡溯。
下例創(chuàng)建了一個(gè)3列5行的數(shù)據(jù)框赶舆，列的名字分別是site哑姚、season、pH
my.dataset <- data.frame(
site = c('A', 'B', 'A', 'A', 'B'),
season = c('Winter', 'Summer', 'Summer', 'Spring', 'Fall'),
pH = c(7.4, 6.3, 8.6, 7.2, 8.9))
重命名數(shù)據(jù)框列名
#批量重命名
names(my.dataset) <-c('a','b','c')
#將第一列列名賦值為season
colnames(my.dataset)[1] <- 'season'
#批量給列名增加M字符
foo1 <- function(x) paste('M',x,sep="")
colnames(part2) <- lapply(names(part2),foo1)
數(shù)據(jù)框數(shù)據(jù)提取
- 提取某行某列的數(shù)據(jù)
#取第3行第2列的數(shù)據(jù)
my.dataset[3,2]
#取第3行的數(shù)據(jù)
my.dataset[3,]
#取第2列的數(shù)據(jù)
my.dataset[,2]
#取第1列到第3列的數(shù)據(jù)
my.dataset[,1:3]
- 條件提取
按字段值提取
#取pH值大于7的所有行
my.dataset<-subset(my.dataset, pH <7)
my.dataset[my.dataset$pH > 7,]
my.dataset[my.dataset$pH!=-0.01,]
allrate <- data.frame(ph=c(1,NA,'D'),pd=c(1,2,3))
#取hotel_id,hotel_url
a1<-subset(data1,select=c(hotel_id,hotel_url))
#篩選所有存在NA的行
allrate[is.na(allrate),]
#篩選所有的NA芜茵，并賦值為0
allrate[is.na(allrate)] <- 0
allrate[allrate==-Inf] <- -1
- 模糊匹配
按字段值在某個(gè)集合提取
#取pH值在（7.4叙量，6.3）集合中的所有列
isph <- c(7.4,6.3)
my.dataset[which(my.dataset$pH %in% isph),]
#取pH值在（7.4，6.3）集合中的site列
my.dataset[which(my.dataset$pH %in% isph),site]
選取S9列值為100-299元九串，B15的值為300-399元或300-399元或500元以上
a18 <- data[(data$S9=='100-299')&(data$B15 %in% c('300-399元','300-399元','500元以上')),]
- 按一定規(guī)律提取數(shù)據(jù)
#提取16绞佩，16+21，16+2*21猪钮，品山，，直到390
i <- seq(16,390,21)
arpu <- data[,i]
- 刪除數(shù)據(jù)
#刪除第3列
data <- data[,-3]
#剔除掉第1烤低，2肘交，18列
arpu <- arpu[,-c(1,2,18)]
#剔除掉第1，2扑馁，3,,4,5,18行
arpu <- arpu[-c(1:5,18),]
- 數(shù)據(jù)框添加列
#這種方式返回的是矩陣
allrate <- cbind(allrate,rate)
#往allrate里添加一列涯呻，列名為actdays
allrate <- data.frame(allrate,actdays=rate)
