最好先把data裡的資料從char轉成numeric，不帶引號。

然後先弄個目標矩陣,每個位置暫時預設成0

>final<-matrix(0,12,19) #12行 19列

寫個迴圈：

>for(i in 1:nrow(data)){ # nrow是看你的data裡有多少行

> final[data[i,1],data[i,2]]<-data[i,3] #final的x座標是data的第一列，y座標是第二列

>}

>final<-rbind(final,colSums(final)) #最後一行是總計

>rownames(final)<- 。。。 #自己起名字

>colnames(final)<- 。。。