昨天我們提到利用二維的矩陣Matrix可以更快速及更有效率的製作成表格

以一樣的數值，這次用rbind()來進行資料的合併做成矩陣
根據銷售數據分別列舉一維數值來合併成二維數值的矩陣。

potion <- c(251, 542, 982, 112)
armor <- c(234, 321, 121, 872)
weapon <- c(92, 55, 66, 125)
misc <- c(542, 685, 512, 393)
Sales_vector <- rbind(potion, armor, weapon, misc)
Sales_vector

       [,1] [,2] [,3] [,4]
potion  251  542  982  112
armor   234  321  121  872
weapon   92   55   66  125
misc    542  685  512  393

"相較昨天的數據，是不是快多了呢？"

接下來用colnames()對應地區來命名column高倫

place <- c("朱拉大森林", "卡恩村", "魔導國", "邊境小鎮")
colnames(Sales_vector) <- place
Sales_vector

          朱拉大森林 卡恩村 魔導國 邊境小鎮
potion        251    542    982      112
armor         234    321    121      872
weapon         92     55     66      125
misc          542    685    512      393

"那叔叔的在地區的銷售總額不就一樣也可以用sum()來計算囉？"
"只答對一半！依據直排的總和，前面加個col，別忘了S要大寫喔和複數的s"
"colSums()"

area_Sales_vector <- colSums(Sales_vector)
area_Sales_vector

   朱拉大森林     卡恩村     魔導國   邊境小鎮 
      1119       1603       1681       1502 

在利用rbind把數值合併

total_sales_area <- rbind(Sales_vector, area_Sales_vector)
total_sales_area
                    朱拉大森林 卡恩村 魔導國 邊境小鎮
藥水                     251    542    982      112
防具                     234    321    121      872
武器                      92     55     66      125
雜物                     542    685    512      393
area_Sales_vector       1119   1603   1681     1502

"那來考考你，物品的銷售總和這次用..."
"rowSums()"
"沒錯！越來越有智慧囉~"

items_Sales_vector <- rowSums(total_sales_vector)
items_Sales_vector
  
    藥水              防具              武器              雜物       area_Sales_vector 
   1887              1548               338              2132              5905 

最後再合併全部數值

total_sales_all <- cbind(total_sales_area, items_Sales_vector)
total_sales_all

                     朱拉大森林 卡恩村 魔導國 邊境小鎮      items_Sales_vector
藥水                     251    542    982      112               1887
防具                     234    321    121      872               1548
武器                      92     55     66      125                338
雜物                     542    685    512      393               2132
area_Sales_vector       1119   1603   1681     1502               5905

"這樣數值便一目了然了"