> 

data=read.csv("D:/ziliao/zhuanye/R bear/addT.csv")

读入表格数据并赋值给矩阵data

> 

data

查看data

         F3        F4        F5

1  5446.635  5858.746  6843.617

2  6654.305  7005.958  6924.623

3  7172.323  7169.585  6940.106

4  7311.956  7525.422  6977.832

5  8058.262 11214.798  7580.775

6  8116.698 11505.268  7915.856

7  8312.447 11544.472  8472.229

8  8667.151 11810.009  9492.205

9  9093.771 11881.491  9934.308

10 9103.865 11908.340 10787.881

查看结果

> 

F6=data[,1]

复制data第1列，赋值给向量F6

> 

F6

查看F6

[1] 5446.635 6654.305 7172.323 7311.956 8058.262 8116.698 8312.447 8667.151 9093.771 9103.865

查看结果

> 

data2=data.frame(data,F6)

给data矩阵加一列数据F6并存为data2

> 

data2

查看data2

         F3        F4        F5       F6

1  5446.635  5858.746  6843.617 5446.635

2  6654.305  7005.958  6924.623 6654.305

3  7172.323  7169.585  6940.106 7172.323

4  7311.956  7525.422  6977.832 7311.956

5  8058.262 11214.798  7580.775 8058.262

6  8116.698 11505.268  7915.856 8116.698

7  8312.447 11544.472  8472.229 8312.447

8  8667.151 11810.009  9492.205 8667.151

9  9093.771 11881.491  9934.308 9093.771

10 9103.865 11908.340 10787.881 9103.865

查看结果

> 

> x=c(9093.771,11881.49,9934.308)

赋值给向量x

> 

x

查看x

[1]  9093.771 11881.490  9934.308

查看结果

> 

data3=t(data.frame(t(data),x))

给矩阵data条件一行x，另存为data3

> 

data3

查看新矩阵data3

          F3        F4        F5

X1  5446.635  5858.746  6843.617

X2  6654.305  7005.958  6924.623

X3  7172.323  7169.585  6940.106

X4  7311.956  7525.422  6977.832

X5  8058.262 11214.798  7580.775

X6  8116.698 11505.268  7915.856

X7  8312.447 11544.472  8472.229

X8  8667.151 11810.009  9492.205

X9  9093.771 11881.491  9934.308

X10 9103.865 11908.340 10787.881

x   9093.771 11881.490  9934.308

查看结果