记录一次笔试题(R语言)
data<-read.csv(“银行.csv”)
#1 取出李姓
#法1
record.xingshi=c(FALSE,FALSE,FALSE,FALSE)
for(i in 1:4){
if(substring(data[i,1],1,1)==“李”){
record.xingshi[i]=TRUE}
}
print(data[record.xingshi,])
#法2
retval.xingshi=subset(data,substring(Name,1,1)==“李”)
#2 改变日期格式为年/月,且找出最早
record.date=c(“null”,“null”,“null”,“null”)
as.Date(data[1,3])
temp=as.Date(data[1,3])
for(i in 2:4){
if(temp>as.Date(data[i,3])){
temp=as.Date(data[i,3])}
record.date[i]=as.character(as.Date(data[i,3]),format="%y-%m")
}
record.date[1]=as.character(as.Date(data[1,3]),format="%y-%m")
data$birth=record.date
temp
data
#3 找出年纪最大
maxage=max(data$age)
retval=subset(data,age==maxage)
retval
#4 找出广州并且统计人数
record.city=c(FALSE,FALSE,FALSE,FALSE)
Guangzhou.sum=0
for(i in 1:4){
if(data[i,4]==“广州”){
Guangzhou.sum=Guangzhou.sum+1
record.city[i]=TRUE}
}
Guangzhou.sum
data[record.city,]