大数据第二次作业

作业要求：1.读取forclass.csv文件2.几行几列3.读取出所有的列名给所有的行加编号c1-clastnumber，放在最左边5.把所有的数值变为字符，然后连接到一起，形成新的一列，放到最右边。
mydata<-read.csv(file.choose())/读取该文件
mydata
head(mydata) /求文件开头
ncol(mydata) /求行数
nrow(mydata) /求列数
names(mydata) /求文件题目
names(mydata)[1] /求题目第一列名字
names(mydata)[2]/求题目第二列名字
names(mydata)[2]/求题目第三列名字
names(mydata)[4]/求题目第四列名字
bianhao<-1:nrow(mydata)/定义编号
bianhao
id=paste(“c”,bianhao,sep="")/编写编号
id
mydata1<-data.frame(id,mydata)/添加编号
mydata1
mydata2<-as.character(mydata1[,1])/将数据的第一列换为字符
mydata2
mydata3<-as.character(mydata2[,2])/将数据的第二列换为字符
mydata3
mydata4<-as.character(mydata3[,3])/将数据的第三列换为字符
mydata4
mydata5<-as.character(mydata3[,4])/将数据的第列行换为字符
mydata5
x<-paste(mydata2,mydata3,mydata4,mydata5,sep=")/把新的四列粘在一起
x
x1<-cbind(mydata1,x)/把新列加在旧列右边
x1