#52 H17岩手県農林水産業の重量単価初期値を推計
今回は、農林水産業の重量単価[初期値]の推計です。
作物統計調査より重量単価初期値を推計
分類コード:0113(部門名:野菜)
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。
![画像1](https://assets.st-note.com/production/uploads/images/65684860/picture_pc_be184579b8c36d9fa102cac11842ea09.png)
そこで、作物統計調査より、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。
まず、部門別品目別国内生産額表に目を移すと、
かぼちゃ(露地)
かぼちゃ(施設)
というように、同じ作物で異なる栽培方法で生産額が分けられているので、
かぼちゃ
というように、作物名単体の列を作り、そこに、露地栽培と施設栽培の生産額の合計値を入力するようにしました。
次に、作物統計調査に目を移すと、こちらは作物名単体の列と、それぞれの作物の収穫時期別の収穫量のデータがあります。
![画像2](https://assets.st-note.com/production/uploads/images/65685546/picture_pc_fc4d33e061f471f3b354259d85d8ec9e.png?width=1200)
だいこんを例に取ると、
だいこん(3)
春 (4)
夏 (5)
秋冬 (6)
というようにデータが並んでいますが、今回は、(3)のデータを使用することになります。
データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。
Sub()
Dim totalWeight As Double
Dim totalPrice As Double
Dim pricePerTon As Double
Dim wSheet As Worksheet
Set wSheet = Workbooks("H17岩手県重量単価初期値推計.ods").Worksheets("0113")
pricePerTon = 0
totalWeight = 0
totalPrice = 0
For i = 2 To 41
If wSheet.Cells(i, 4).Value <> "" Then
totalWeight = totalWeight + wSheet.Cells(i, 4).Value
totalPrice = totalPrice + wSheet.Cells(i, 6).Value
End If
Next
pricePerTon = totalPrice * 1000000 / totalWeight
wSheet.Cells(2, 10).Value = pricePerTon
End Sub
野菜の重量単価[初期値]は、154,154[円/t]となりました。
分類コード:0114(部門名:果実)
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。
![画像3](https://assets.st-note.com/production/uploads/images/65686687/picture_pc_8778830a49e174f2116c3e7b6dfe73a2.png)
そこで、作物統計調査の平成17年産果樹生産出荷統計から、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。
平成17年産果樹生産出荷統計を目を通すと、収穫量のデータが以下のように記載されていました。
![画像4](https://assets.st-note.com/production/uploads/images/65687127/picture_pc_21ce9b3b5f9229013cfc75b0d83eb8df.png)
みかんを例に取ると、みかん全種類のデータが「みかん」で、そのうちの種類ごと(早生温州など)のデータが「早世温州」などにあたります。
今回は、各果樹の全種類データを採用することにして、果樹毎の収穫量を部門別品目別国内生産額表に転記していきました。
データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。
Sub()
Dim totalWeight As Double
Dim totalPrice As Double
Dim pricePerTon As Double
Dim wSheet As Worksheet
Set wSheet = Workbooks("H17岩手県重量単価初期値推計.ods").Worksheets("0114")
pricePerTon = 0
totalWeight = 0
totalPrice = 0
For i = 2 To 300
If wSheet.Cells(i, 4).Value <> "" Then
totalWeight = totalWeight + wSheet.Cells(i, 4).Value
totalPrice = totalPrice + wSheet.Cells(i, 6).Value
End If
Next
pricePerTon = totalPrice * 1000000 / totalWeight
wSheet.Cells(2, 10).Value = pricePerTon
End Sub
重量単価[初期値]は、188,977[円/t]となりました。
特用林産基礎資料より重量単価初期値を推計
分類コード:0213(部門名:特用林産物)
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。
![画像5](https://assets.st-note.com/production/uploads/images/65687652/picture_pc_73dbc013699b91bf05ea0f52a20db975.png)
そこで、特用林産物生産統計調査の平成17年特用林産基礎資料から、生産量のデータを転記して、重量単価[初期値]を推計することにします。
データの転記と重量単価[初期値]の推計は、これまでやってきたのと同じ方法なので、詳細は割愛します。
重量単価[初期値]は、462,858[円/t]となりました。
海面漁業生産統計調査より重量単価初期値を推計
分類コード:0311(部門名:海面漁業)
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。
![画像6](https://assets.st-note.com/production/uploads/images/65688520/picture_pc_4d57116b5a1a7fcdefc2015881d8ea56.png)
上記の部門別品目別国内生産額表は、
・0311010001〜0311030201:海面漁業
・0311041101〜0311041599:海面養殖業
・0311041601〜0311041601:種苗養殖
の3つの産業の生産品目から構成されているようです。
海面漁業に関しては、生産量と生産額のデータを、海面養殖業、種苗養殖に関しては、生産量のデータを海面漁業生産統計調査の平成17年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。
重量単価[初期値]は、291,187[円/t]となりました。
分類コード:0312(内水面漁業)
部門別品目別国内生産額表によると、
・0312010001〜0312010099:内水面漁業
・0312020101〜0312020301:内水面養殖業
の生産品目が計上されているようです。
生産量のデータは、海面漁業生産統計調査の平成17年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。
具体的には、「内水面漁業・養殖業の部」の表「全国年次別・魚種別生産量(平成7年~17年)」からデータを転記します。
データを転記し、重量単価[初期値]を推計すると、1,090,569[円/t]となりました。
サポート、本当にありがとうございます。サポートしていただいた金額は、知的サイドハッスルとして取り組んでいる、個人研究の費用に充てさせていただきますね♪