大数据第二次作业

题目：有一个forclass.csv文件
作业要求：
1读取forclass.csv
2几行几列
3读取出所有的列名
4给所有的行加编号c1—clastnumber，放在最左边
5 把所有的数值变成字符，然后连接到一起，形成新的一列放到最右边

R语言代码：
1.读取CSV文件

x<-read.csv(file.choose(),head=T)
x

2.几行几列

m<-nrow(x)
m
b<-ncol(x)
b

3.读取出所有的列名

names(x)
names(x)[1]
names(x)[2]
names(x)[3]
names(x)[4]

4.给所有的行加编号c1—clastnumber，放在最左边

bianhao<-1:m
bianhao
id<-paste(“c”,bianhao,sep="")
id
x1<-data.frame(bianhao=id,x)
x1


#后面数据过多，就不一一截图了

5.把所有的数值变成字符，然后连接到一起，形成新的一列放到最右边

a1<-as.character(x1[,1])
a1
a2<-as.character(x1[,2])
a2
a3<-as.character(x1[,3])
a3
a4<-as.character(x1[,4])
a4
a5<-as.character(x1[,5])
a5
paste(a1,a2,a3,a4,a5,sep="")
x2<-data.frame(x1,zuhe=paste(a1,a2,a3,a4,a5,sep=""))
x2




#后面数据过多，就不一一截图了