#10　農林水産業の重量単価[初期値]の推計/Weight Unit Price Estimation for the Primary Industry Sector

An English translation of this article is provided at the bottom of the page.

今回は、農林水産業の重量単価[初期値]の推計です。

分類コード：0113（部門名：野菜）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

そこで、作物統計調査より、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。

まず、部門別品目別国内生産額表に目を移すと、

かぼちゃ（露地）
かぼちゃ（施設）

というように、同じ作物で異なる栽培方法で生産額が分けられているので、

かぼちゃ

というように、作物名単体の列を作り、そこに、露地栽培と施設栽培の生産額の合計値を入力するようにしました。

次に、作物統計調査に目を移すと、こちらは作物名単体の列と、それぞれの作物の収穫時期別の収穫量のデータがあります。

だいこんを例に取ると、

だいこん（３）
　春　　（４）
　夏　　（５）
　秋冬　（６）

というようにデータが並んでいますが、今回は、（３）のデータを使用することになります。

部門別品目別国内生産額表の単位にtを、生産数量に作物統計調査の収穫量を転記するプログラムを、以下にように作成しました。

Sub 本番用()
Dim wb As Workbook
Dim wsOrg As Worksheet
Dim wsDes As Worksheet

Set wb = Workbooks("作物統計調査.ods")
Set wsOrg = wb.Worksheets("収穫量")
Set wsDes = wb.Worksheets("0113")

Dim i As Long
Dim j As Long
For i = 15 To 89
    For j = 2 To 67
        If wsDes.Cells(j,2).Value = wsOrg.Cells(i, 2).Value Then
            wsDes.Cells(j,3).Value = "t"
            wsDes.Cells(j,4).Value = wsOrg.Cells(i, 24).Value
        End If
    Next
Next
End Sub
データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。
Sub 本番用()
Dim wb As Workbook
Dim wsOrg As Worksheet
Dim ws As Worksheet
Dim i As Long
Dim totalWeight As Long
Dim totalPrice As long
Dim PriceUnitWeight As Double

Set wb = Workbooks("作物統計調査.ods")
Set ws = wb.Worksheets("0113")

For i = 2 To 45
    If ws.Cells(i, 3).Value = "t" Then
        totalWeight = totalWeight + ws.Cells(i, 4)
        totalPrice = totalPrice + ws.Cells(i, 6)
    End If
Next
PriceUnitWeight = totalPrice * 1000000 / totalWeight
ws.Cells(2, 10).Value = PriceUnitWeight
End Sub
野菜の重量単価[初期値]は、193,567[円/t]となりました。
分類コード：0114（部門名：果実）
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。


そこで、作物統計調査の平成27年産果樹生産出荷統計から、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。
平成27年産果樹生産出荷統計を目を通すと、収穫量のデータが以下のように記載されていました。


「みかん」を例に取ると、みかん全種類のデータが（２）で、そのうちの各種類ごと（「早生温州」など）のデータが（３）〜（６）にあたります。
今回は、（２）のデータを採用することにして、果樹毎の収穫量を部門別品目別国内生産額表に転記していきました。
コードは以下のようになりました。
Sub 本番用()
Dim wb As Workbook
Dim wsOrg As Worksheet
Dim wsDes As Worksheet
Dim ws As Worksheet
Dim i As Long
Dim j As Long

Set wb = Workbooks("作物統計調査.ods")
Set wsOrg = wb.Worksheets("収穫量")
Set wsDes = wb.Worksheets("0114")

For i = 2 To 18
    For j = 12 To 87
        If wsDes.Cells(i, 2).Value = wsOrg.Cells(j, 3).Value Then
            wsDes.Cells(i, 3).Value = "t"
            wsDes.Cells(i, 4).Value = wsOrg.Cells(j, 16).Value
        End If
    Next
Next
End Sub
データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。
Sub 本番用()
Dim wb As Workbook
Dim wsOrg As Worksheet
Dim ws As Worksheet
Dim i As Long
Dim totalWeight As Long
Dim totalPrice As long
Dim PriceUnitWeight As Double

Set wb = Workbooks("作物統計調査.ods")
Set ws = wb.Worksheets("0114")

For i = 2 To 18
    If ws.Cells(i, 3).Value = "t" Then
        totalWeight = totalWeight + ws.Cells(i, 4)
        totalPrice = totalPrice + ws.Cells(i, 6)
    End If
Next
PriceUnitWeight = totalPrice * 1000000 / totalWeight
ws.Cells(2, 10).Value = PriceUnitWeight
End Sub
重量単価[初期値]は、262,673[円/t]となりました。
分類コード：0153（部門名：特用林産物）
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。


そこで、特用林産物生産統計調査の平成27年特用林産基礎資料から、生産量のデータを転記して、重量単価[初期値]を推計することにします。
データの転記と重量単価[初期値]の推計は、これまでやってきたのと同じ方法なので、詳細は割愛します。
重量単価[初期値]は、471,322[円/t]となりました。
分類コード：0171（部門名：海面漁業）
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。


上記の部門別品目別国内生産額表は（作業をしていく中で気づいたのですが）、
・171011101〜171011801：海面漁業
・171021101〜171021599：海面養殖業
・171021601〜171021701：種苗養殖
の3つの産業の生産品目から構成されているようです。
生産量のデータは、海面漁業生産統計調査の平成27年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。
具体的には、
・「海面漁業の部」の表「魚種別漁獲量」
・「海面養殖業の部」の表「養殖魚種別収獲量（種苗養殖を除く。）」
のデータを転記していくことにしました。
なお、部門別品目別国内生産額表には、種苗養殖の品目もあるのですが、海面漁業生産統計調査の種苗養殖販売量の単位が[t]の品目はなかったので、データの転記が行なえませんでした。
データを転記し、重量単価[初期値]を推計すると、307,564[円/t]となりました。
分類コード：0172（部門名：内水面漁業）
部門別品目別国内生産額表には、以下のように生産額のみが記載されています。


上記の表には、
・172010101〜172010399：内水面漁業
・172020101〜172020301：内水面養殖業
の生産品目が計上されているようです。
生産量のデータは、海面漁業生産統計調査の平成27年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。
具体的には、「内水面漁業・養殖業の部」の表「全国年次別・魚種別生産量（平成17年～27年）」からデータを転記します。
データを転記し、重量単価[初期値]を推計すると、2,259,370[円/t]となりました。


English Translation Part.
In this post, I will be estimating the initial weight unit prices for the Agriculture, Forestry, and Fisheries sectors.
Sector Code: 0113 (Vegetables)
In the "Production Value Table by Sector and Item," only the production value is recorded for this sector, as shown below:

Therefore, I decided to estimate the [initial] weight unit price by transcribing harvest data for each item from the Crop Survey (Sakumotsu Tokei).
Looking at the Production Value Table, some crops are split by cultivation method, such as:

Pumpkin (Outdoor)
Pumpkin (Greenhouse)

To match this with the survey data, I created a consolidated column for the crop name (e.g., "Pumpkin") and input the sum of the production values for both outdoor and greenhouse cultivation.
Next, looking at the Crop Survey, there are columns for crop names and harvest volumes by season. For example, for "Japanese Radish (Daikon)," the data is listed as:

(3) Japanese Radish (Total)
(4) Spring
(5) Summer
(6) Autumn/Winter

For this estimation, I used the total data from category (3). I wrote the following program to transcribe the harvest volumes from the Crop Survey into the "Production Quantity" column of the Production Value Table, setting the unit to "t."
Sub Production_Use()
    Dim wb As Workbook
    Dim wsOrg As Worksheet
    Dim wsDes As Worksheet

    Set wb = Workbooks("Crop_Survey.ods")
    Set wsOrg = wb.Worksheets("Harvest_Volume")
    Set wsDes = wb.Worksheets("0113")

    Dim i As Long, j As Long
    For i = 15 To 89
        For j = 2 To 67
            If wsDes.Cells(j,2).Value = wsOrg.Cells(i, 2).Value Then
                wsDes.Cells(j,3).Value = "t"
                wsDes.Cells(j,4).Value = wsOrg.Cells(i, 24).Value
            End If
        Next
    Next
End Sub

After transcribing the data, I calculated the initial weight unit price. The program aggregates the production quantity and value for all rows where the unit is "t" and performs the final calculation.
' Code to aggregate and calculate unit price
' Final calculation: PriceUnitWeight = totalPrice * 1,000,000 / totalWeight

The initial weight unit price for Vegetables was estimated at 193,567 [Yen/t].
Sector Code: 0114 (Fruits)
Similarly, the Production Value Table only lists values for fruits.

I transcribed the harvest data from the 2015 Statistics on Production and Shipment of Fruit Tree. In this survey, taking "Mikan" (Satsuma Mandarin) as an example, category (2) represents the total for all types, while (3) through (6) represent specific varieties. I adopted the total values from category (2).
The resulting initial weight unit price for Fruits was 262,673 [Yen/t].
Sector Code: 0153 (Special forest products)
Using data from the 2015 Basic Materials on Special Forest Products, the initial weight unit price was estimated at 471,322 [Yen/t]. (Details are omitted as the method is the same as above).
Sector Code: 0171 (Marine fisheries)
I realized during the process that the items in this sector are composed of three industries:

Marine Fisheries (171011101–171011801)
Marine Aquaculture (171021101–171021599)
Seedling Aquaculture (171021601–171021701)

I used data from the 2015 Fishery and Aquaculture Production Statistics. Specifically, I transcribed catch/harvest volumes from the "Marine Fisheries" and "Marine Aquaculture" sections. Note that "Seedling Aquaculture" could not be included as no items were recorded in tons [t].
The estimated initial weight unit price for Marine Fisheries was 307,564 [Yen/t].
Sector Code: 0172 (Inland water fisheries)
This sector includes Inland Water Fisheries and Inland Water Aquaculture. I transcribed the data from the "Inland Water Fisheries/Aquaculture" section of the same 2015 Fishery Statistics.
The estimated initial weight unit price for Inland Water Fisheries was 2,259,370 [Yen/t].

	

	
Follow me!


Facebook
X
Bluesky
Hatena
Copy