R/livestockWeightsTable.R
In SWS-Methodology/faoswsTrade: FAO Trade Module
Defines functions
livestockWeightsTable
Documented in
livestockWeightsTable
#' Livestock weight table.
#'
#' @return Livestock weight table.
#' @import dplyr
#' @export
livestockWeightsTable <- function() {
# livestock_weights_kat is Katherine's table (from AGA)
# livestock_weights_cla is Claudia's table (from Jellyfish)
# The suggested approach is to use ALWAYS cla weights and
# to fallback to kat weights only when no cla weight exist.
# livestock_weights_kat's weights are always in kilograms per unit
# livestock_weights_cla's weights are in kilograms per units, except
# for CHICKENS, DUCKS, GEESE, TURKEYS (maybe also RABBITS, but all NAs)
livestock_weights_kat <- frame_data(
~ADM0_CODE,~CATTLE,~BUFFALOES,~SHEEP,~GOATS,~PIGS,~CHICKENS,~FAOSTAT,
1,256.3890381,392.8697815,27.84269905,29.05475807,53.65662766,0.672066331,2,
3,390.8330078,NA,38.36423111,39.83809662,68.80722809,1.439249873,3,
4,239.8289185,NA,32.91728592,22.32944107,58.53427505,0.99712503,4,
6,239.8289185,NA,34.06716537,26.06311035,36.97418594,0.885822713,276,
7,380.0856628,NA,38.36422729,39.83810806,NA,1.386364222,6,
8,208.2750702,NA,22.76470375,17.87862968,51.60359573,0.867149651,7,
9,272.6517334,NA,33.44763565,22.49774361,NA,1.246298432,258,
11,271.349823,NA,33.44765091,22.49770546,79.05690002,1.195930243,8,
12,318.0302734,440.2397766,36.45346451,28.47316551,74.3853302,1.265613437,9,
13,378.6771545,386.0958557,35.45261002,29.25951004,62.19651031,1.157605648,1,
14,272.6531677,NA,NA,NA,NA,1.246298432,22,
17,282.048645,NA,41.87223434,32.49998093,60.48011398,1.23106277,10,
18,412.3081055,NA,44.15415192,34.13514709,77.92182922,1.259665489,11,
19,378.6771851,386.0960999,35.45066071,29.25950623,63.19337463,1.075948238,52,
20,271.2185669,NA,33.44765091,22.49770546,81.10761261,1.225092053,12,
21,203.2441406,NA,35.45817947,29.25950813,NA,1.119818687,13,
23,307.9141846,365.0848694,14.82828045,23.06285667,57.47120285,0.751710951,16,
24,271.6184082,NA,33.44764709,22.49770355,80.5089798,1.226267815,14,
26,350.9770203,NA,33.19194794,34.36244202,72.83085632,1.243133307,57,
27,429.5823975,NA,44.15414047,34.13513947,73.40576172,1.257632375,255,
28,345.092865,NA,41.84924698,26.93778801,70.61833191,1.216873288,23,
29,184.6868134,NA,21.61923409,34.50004578,43.36027145,0.839838028,53,
30,NA,NA,NA,NA,NA,NA,17,
31,235.2082214,355.4337463,30.68200302,28.19849014,61.71686554,1.077369094,18,
33,352.5726013,NA,40.00265503,28.4693222,74.42155457,1.182155132,19,
34,390.8330383,NA,38.36422729,39.8380928,68.96847534,1.377315998,80,
35,212.2657318,NA,29.26600838,32.12384796,37.35140991,1.00812459,20,
37,357.92099,440.2397766,40.52725983,21.68284035,73.50950623,1.248873949,21,
39,272.6528625,NA,33.44764709,22.49769783,83.03923798,1.246298432,239,
40,246.2585144,271.6841736,22.32620621,28.94177437,73.56225586,1.213883519,26,
41,390.8331299,419.2785339,33.19195175,34.36244202,73.48921204,1.189112782,27,
42,186.7112122,NA,21.43421745,16.89265823,39.94961548,0.820945442,233,
43,231.3627472,NA,22.11724281,18.35738564,40.13391113,0.899921179,29,
44,266.1557007,290.1116638,22.44249535,28.94176483,53.49511719,1.165078282,115,
45,205.3496246,NA,22.87011528,15.32100296,50.33534622,0.831533849,32,
46,431.8923035,446.6522827,51.78468704,40.84454346,76.6817627,1.339156985,33,
47,NA,NA,NA,NA,36.96607971,0.81564486,35,
48,272.65271,NA,33.44765091,22.49769592,NA,1.173599243,36,
49,200.6471252,NA,16.55030632,15.32100487,38.38234329,0.842602134,37,
50,216.8459015,NA,21.45008278,20.78194046,38.57694244,0.822294891,39,
51,374.3396912,NA,50.48224258,27.1191597,80.83867645,1.290331364,40,
53,315.6998901,268.3487854,33.35927963,21.55981445,58.92356873,1.235048413,41,
57,352.9168396,440.2396851,38.95139694,27.11915779,70.75730133,1.23694849,44,
58,181.8149109,NA,23.11997032,21.49881935,NA,0.952416182,45,
59,192.489212,NA,22.87559891,17.87169456,58.04550552,0.861019611,46,
60,NA,NA,NA,NA,55.62402344,0.797781885,47,
61,392.2228699,NA,41.84923172,26.93781471,80.34870148,1.19363451,48,
62,390.8330078,NA,38.36423111,39.83809662,71.55160522,1.408711433,98,
63,272.3341675,NA,26.9293232,21.62334061,59.1525383,0.926937819,49,
64,220.8092041,303.0354309,35.45806885,34.52510834,70.72145081,1.108707309,50,
65,394.5630493,NA,33.19194412,34.36244583,78.5197525,1.244747877,167,
66,169.3670197,NA,18.40909004,17.16343498,52.4017067,0.905766547,107,
67,213.3977509,274.4901123,34.27004623,25.9473877,55.10443878,1.112254381,116,
68,192.0954437,NA,22.39225197,18.71471024,47.32799912,0.836225271,250,
69,388.0987854,NA,43.8166008,39.39533615,75.92655182,1.217537284,54,
70,144.8935089,NA,20.97926331,22.40457726,NA,0.808432043,72,
71,271.2182312,NA,33.44764709,22.49770355,75.55200958,1.190272212,55,
72,272.2513428,NA,33.44765472,22.49770546,72.64641571,1.193609118,56,
73,358.2658081,NA,32.06716537,27.11915588,69.92286682,1.253200769,58,
74,239.8288879,NA,31.10349464,26.06311035,37.0784111,0.926630318,277,
75,362.4393005,NA,41.84923553,26.93781471,68.60535431,1.165735245,60,
76,195.0283966,NA,22.87539673,17.87169456,75.46363068,1.172595739,61,
77,177.6680298,NA,21.09777832,20.50054359,37.03150177,0.909748435,178,
78,390.8330688,NA,36.91276932,39.3953476,78.27351379,1.234036446,63,
79,217.2377014,NA,21.47650909,21.27622414,38.38995743,0.901513636,238,
82,380.0856323,NA,36.91276932,39.39536285,NA,1.09933424,64,
83,286.2137451,NA,44.1585083,35.31572723,59.46575165,1.133542061,66,
84,388.5661926,NA,36.9127655,39.39536285,78.5197525,1.166431904,67,
85,409.4775696,NA,44.15414429,40.43273544,75.7148819,1.250712395,68,
86,360.5262451,NA,40.00263596,27.11914635,70.49394226,1.256665587,69,
87,NA,NA,NA,NA,55.62405777,0.797781944,70,
89,222.2815552,NA,22.87559891,17.87169647,68.35944366,0.850671172,74,
90,194.7610474,NA,23.90057373,17.16343117,40.08636475,0.842920125,75,
92,378.6772156,375.6366577,35.31619644,29.25950623,59.58626556,0.812784135,73,
93,406.552948,NA,41.76063919,31.1424942,77.87741852,1.218164563,79,
94,176.8401184,NA,19.43235397,17.16343308,52.5640831,0.857672036,81,
95,NA,NA,NA,NA,NA,NA,82,
97,389.8049316,NA,42.94469452,39.14850998,77.22460938,1.411391735,84,
99,272.1723328,NA,33.44765091,22.49770355,73.99861908,1.164781451,86,
100,272.6480713,NA,33.44765091,22.49770164,59.15253067,0.926938355,87,
103,361.231842,440.2394104,41.84924698,26.93781281,71.62902832,1.12347734,89,
105,180.5763397,NA,23.86148834,17.16343689,38.81088638,0.857934892,175,
106,169.1205597,NA,20.59486198,17.16343117,40.59358215,0.914585471,90,
107,404.3465576,NA,40.00265503,27.11915779,63.32645416,1.246365547,91,
108,272.1999512,NA,33.44764709,23.32115746,60.09217072,0.995098412,93,
111,368.2302551,NA,41.84925079,26.93781662,74.55740356,1.151347876,95,
113,390.8330688,NA,32.84841537,34.36244583,74.96511078,1.32804811,97,
114,390.7564087,NA,36.9127655,39.3953743,78.51976776,1.215555191,99,
115,288.5630493,357.3581543,26.15502357,19.74781227,56.67267227,1.043156147,100,
116,267.2589417,290.1116333,23.03234482,34.13267517,56.55067444,0.961944997,101,
117,243.1032715,369.9327087,27.13220596,22.51860619,56.96424484,1.071452856,102,
118,238.4592285,384.3327026,35.45756149,29.25950813,NA,1.110603213,103,
119,370.8970032,NA,33.2579689,39.3953476,72.16204071,1.275303006,104,
121,527.2715454,352.5619812,35.45817947,29.25950623,69.32881927,1.100683093,105,
122,394.9785767,446.6522827,40.72431564,34.58537292,95.07873535,1.443969369,106,
123,272.3920288,NA,41.46365356,22.49770164,68.84637451,1.210548759,109,
126,396.7659912,274.4901428,27.41026306,25.9473896,66.72848511,1.432173252,110,
130,218.9737854,337.1603699,35.45783234,27.64420891,53.37502289,1.101539493,112,
132,378.6771851,316.6765747,43.9757309,27.80796433,63.88196945,1.234594822,108,
133,209.5615692,NA,21.46715546,24.36559677,49.80768585,1.015957475,114,
135,286.2137756,NA,44.15851212,35.31573105,66.95762634,1.263794184,83,
137,200.6551056,390.1687622,35.45817947,29.25950241,NA,1.116088271,118,
138,378.6771851,316.6765747,44.22585678,27.80796242,55.57938385,1.09547019,113,
139,252.1284027,274.4901123,22.61347771,28.94177055,52.50858307,1.132925868,120,
140,390.8330383,NA,36.91276932,39.39535904,75.63497162,1.285774231,119,
141,254.0678101,352.5618591,35.3781929,29.55652237,66.3266983,1.099955082,121,
142,230.0534821,NA,21.48963928,34.23714447,45.93322754,0.830936968,122,
144,166.5406189,NA,18.83590126,17.16343308,37.54597473,0.825121105,123,
145,239.8289032,NA,33.15939331,22.37286186,37.32128143,0.953255773,124,
146,390.8330994,NA,43.89320374,34.13518143,78.17417145,1.092018247,125,
147,390.8330383,NA,36.91276932,39.3953476,73.85064697,1.225506663,126,
148,386.3526001,NA,58.4120636,34.13513947,78.51976013,1.491341233,256,
149,NA,NA,NA,NA,NA,NA,128,
150,161.2952271,NA,23.68028069,22.31255531,52.69374084,0.899245799,129,
152,156.1023102,NA,23.47574234,20.60202026,40.96017456,0.911265969,130,
153,215.8369293,263.5828247,22.86181259,42.753479,73.15161896,1.216697812,131,
154,198.4755707,NA,26.46056366,28.30915833,NA,NA,132,
155,184.8108826,NA,21.45228577,16.90237617,48.79941177,0.819675624,133,
156,390.8330994,NA,38.36423111,39.83809662,78.46439362,1.390740633,134,
157,NA,NA,44.15854645,35.31572723,NA,NA,127,
158,272.6054382,NA,33.44765091,22.49770164,76.91344452,1.170621157,135,
159,172.7861328,NA,21.4522934,16.90237617,36.96591187,0.917676091,136,
160,NA,NA,NA,NA,36.96607971,0.900122881,137,
161,146.3604431,NA,23.08343697,21.58673668,NA,0.805229664,270,
162,327.9599915,NA,41.84924698,26.93781281,69.58168793,1.268992782,138,
163,286.2137451,NA,44.15851212,35.31572723,58.62063217,1.159582376,145,
165,390.8330688,370.062439,33.19195175,34.36244202,60.31081772,1.165694833,146,
166,NA,NA,NA,NA,NA,NA,140,
167,236.2872772,274.4900818,34.31239319,31.45026588,57.87521362,1.222557783,141,
168,271.8510437,NA,33.44765472,22.49770546,NA,1.201867342,142,
169,239.8288727,NA,32.03399658,15.94233894,73.09867096,0.916475952,143,
170,172.2654266,NA,23.53818703,26.31273079,38.22433472,0.904222846,144,
171,219.7814636,274.4734497,20.18666649,25.51335335,50.88267517,1.125195742,28,
172,207.7083282,NA,29.26542854,34.23714828,49.03438187,0.845627487,147,
173,NA,NA,NA,NA,NA,NA,148,
175,249.6549225,351.7696533,28.38132095,19.6612587,60.7420845,0.818007648,149,
176,271.2187805,NA,33.44765091,22.49770546,59.15250397,0.927621901,151,
177,392.737793,NA,44.15414429,30.88696289,74.42938232,1.295378447,150,
178,NA,NA,44.15848541,35.31573105,55.62403488,0.797784746,153,
179,323.5985107,NA,42.55941772,38.23110962,60.64422226,1.260027647,156,
180,381.3654175,NA,41.84924316,26.93781281,64.38439941,1.132486939,157,
181,187.6623688,NA,21.45228577,16.90237617,47.98832321,0.820635319,158,
182,190.6941681,NA,20.84035873,15.96546459,40.12230682,0.939791918,159,
183,NA,NA,NA,NA,55.62408829,0.797781885,160,
186,388.3912354,NA,36.91276932,39.39535522,78.5197525,1.265766501,162,
187,202.4343262,390.1687622,35.45818329,29.25950623,NA,1.14142108,221,
188,259.2781067,383.6882629,26.98664284,21.75287056,53.3915062,0.915783048,165,
189,286.2142639,NA,44.1585083,35.31573105,NA,1.160983443,180,
191,322.5586243,435.7901917,41.84924316,26.9378109,73.77098084,1.213115573,166,
192,286.2137146,NA,44.15852356,35.31573486,55.80492783,1.051409602,168,
194,330.8704529,NA,40.00265503,27.11915398,64.90524292,1.257859945,169,
195,368.7867126,NA,32.23814774,27.87977409,59.39426041,1.29488349,170,
196,261.7101135,274.4901123,22.51319695,28.94177055,60.79992676,1.122492313,171,
198,355.8561401,NA,33.19194794,34.36244202,76.11495209,1.265087128,173,
199,375.5845032,NA,38.58430862,39.8380928,77.27405548,1.38424325,174,
201,206.0013275,390.1687317,35.45817947,29.25950432,NA,1.142033458,179,
202,424.7019348,274.4901123,34.03966141,25.94739151,67.56629944,1.307212114,117,
203,336.2837524,370.0624084,33.19194794,34.36244583,65.4099884,1.229386091,183,
204,350.9770508,427.9755554,33.19195175,36.12493134,69.60936737,1.191363573,185,
205,233.8757629,NA,21.97559357,19.80303574,38.90943909,0.910817742,184,
208,272.6526489,NA,33.44764709,22.49770355,78.01861572,1.180891395,188,
209,272.4286804,NA,33.44765091,22.49770546,74.52936554,1.184606552,189,
211,272.0465088,NA,33.44765472,22.49770355,73.95384216,1.168344855,191,
212,NA,NA,NA,NA,55.62402725,0.797781944,244,
213,380.0852966,NA,38.36429596,39.8381958,NA,1.36294806,192,
214,216.9723053,NA,22.87559509,17.87168884,36.96605301,0.879517853,193,
215,198.147934,390.1687622,35.45817566,29.25950813,NA,1.11090529,194,
217,191.4779511,NA,21.45229149,16.90237617,43.06197739,0.857529402,195,
220,NA,NA,23.79503632,22.40525627,NA,NA,196,
221,168.5702362,NA,18.59084129,17.16343117,38.69464874,0.851141453,197,
222,248.8704071,NA,22.45681953,28.94175339,74.94308472,1.188298702,200,
223,390.3884583,NA,33.19194031,34.36244202,77.44148254,1.293223858,199,
224,387.247406,NA,38.36423111,39.83808899,73.20809174,1.360375524,198,
225,286.2137451,NA,44.1585083,35.31573105,57.90566254,1.128340483,25,
226,159.6006775,NA,20.98340607,17.19361496,66.195961,0.996617794,201,
227,374.4401855,NA,39.18542862,35.52355576,63.6794281,0.889056683,202,
229,385.5553589,NA,41.55482483,52.82646179,70.30904388,1.413429737,203,
231,257.9943542,356.1914978,15.98687363,28.66369057,59.51555252,1.047850609,38,
233,367.8605042,NA,40.00265503,27.11915779,71.13173676,1.226379037,207,
235,225.1113281,NA,24.4699173,33.09536743,45.53917694,0.861402094,209,
236,421.205658,NA,36.91277313,39.39524841,79.44485474,1.303900003,210,
237,405.5534668,NA,44.1541481,34.13513565,78.1140976,1.420035839,211,
238,234.8414917,360.842041,35.45763779,25.53422546,53.37961197,1.107642293,212,
239,378.6771851,316.6766357,49.58827972,27.80796433,54.40871048,1.082554221,208,
240,249.1253815,274.4901733,22.39357376,15.6942749,67.79804993,1.175913453,216,
241,390.8330688,NA,38.29572296,39.83809662,71.30783844,1.441223502,154,
242,285.5490112,290.1116943,22.77217293,28.94177437,51.6267395,1.182412624,176,
243,180.9509125,NA,20.29354858,17.16343308,38.36806107,0.835545301,217,
244,NA,NA,NA,NA,NA,NA,218,
245,NA,NA,NA,NA,55.62403107,0.797781944,219,
246,271.3674622,NA,33.44765091,22.49770546,80.54330444,1.233825326,220,
248,239.8288879,NA,33.07595825,22.85740089,61.73098755,0.882992208,222,
249,251.2317352,303.0355225,35.42823029,25.95420074,66.99420166,1.172982216,223,
250,378.6771545,316.6766052,46.59937286,27.80796433,61.87641144,1.26840508,213,
251,272.6525879,NA,33.44762802,22.49770927,NA,1.246298313,224,
252,NA,NA,NA,NA,NA,NA,227,
253,215.2300415,NA,22.8887558,19.3656559,39.22952271,0.898862302,226,
254,377.6549072,370.0623779,33.19194794,34.36244202,62.67458725,1.111248851,230,
255,202.6744385,390.1687622,35.45817566,29.25950623,NA,1.137617707,225,
256,377.3076477,NA,39.21104431,39.39535141,73.75013733,1.218558192,229,
257,193.7770386,NA,23.27356339,20.50750351,41.80046844,0.907911003,215,
259,463.5309753,NA,52.26735687,40.84453964,76.68175507,1.333223701,231,
260,322.9873962,NA,46.4638443,27.11915588,74.75549316,1.279796362,234,
261,378.6771851,316.6766357,46.56485367,27.80796814,56.65736008,1.152636528,235,
262,286.2137756,NA,44.15851212,35.31572723,59.34244537,1.170527101,155,
263,333.5426025,440.2397766,40.0026474,27.87977791,75.30230713,1.246741652,236,
264,256.3638,274.1904602,22.67348671,31.94538498,47.4461937,1.149987817,237,
268,203.3339844,NA,33.17922974,22.37285995,NA,0.80600667,205,
269,227.6739655,390.1687927,35.45812225,29.25950623,NA,1.097397208,249,
270,186.4859619,NA,23.7061615,22.49230385,41.98155594,0.944799483,251,
271,165.2660828,NA,39.26869202,29.78141403,52.04288101,0.931999266,181,
2647,361.554657,NA,38.36423111,39.8380928,61.55322266,1.387090445,273,
2648,361.5546875,NA,38.36422729,39.83809662,71.14429474,1.384593368,272,
33364,236.7797546,268.3487854,24.43595123,25.94739342,NA,1.061956286,96,
40765,239.8288879,352.5619202,33.15939713,19.94598389,54.96685791,0.875848651,59
) %>%
# Country-specific weights not available. Using generic weights.
# See Team B/C email (by KB) on 2017-10-04.
dplyr::mutate(
HORSES = 400,
ASSES = 200,
MULES = 350,
CAMELS = 300,
DUCKS = 0.6,
GEESE = 0.6,
TURKEYS = 0.6,
RABBITS = 1,
OTHER_CAMELIDS = 100,
PIGEONS_OTHER_BIRDS = 0.6
)
livestock_weights_kat <- livestock_weights_kat %>%
tidyr::gather(livestock, liveweight_kat, -ADM0_CODE, -FAOSTAT) %>%
dplyr::rename(reporter = FAOSTAT) %>%
# Sorted by FCL
dplyr::mutate(
reporter = as.integer(reporter),
fcl = recode(livestock,
'CATTLE' = 866,
'BUFFALOES' = 946,
'SHEEP' = 976,
'GOATS' = 1016,
'PIGS' = 1034,
'CHICKENS' = 1057,
'DUCKS' = 1068,
'GEESE' = 1072,
'TURKEYS' = 1079,
'PIGEONS_OTHER_BIRDS' = 1083,
'HORSES' = 1096,
'ASSES' = 1107,
'MULES' = 1110,
'CAMELS' = 1126,
'RABBITS' = 1140,
'OTHER_CAMELIDS' = 1157
)
) %>%
dplyr::select(-ADM0_CODE)
livestock_weights_cla <- frame_data(
~area_fao,~area_m49,~area_name,
~CATTLE,~BUFFALOES,~SHEEP,~GOATS,~CHICKENS,~DUCKS,~GEESE,
~TURKEYS,~PIGS,~HORSES,~ASSES,~MULES,~CAMELS,~RABBITS,
22,533,"Aruba",300,NA,30,30,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,
16,50,"Bangladesh",NA,NA,NA,NA,45,60,NA,NA,NA,NA,NA,NA,NA,NA,
80,70,"Bosnia Herzg",450,NA,25,30,60,NA,NA,60,80,500,NA,NA,NA,NA,
233,854,"Burkina Faso",400,NA,35,35,60,NA,60,NA,NA,400,NA,NA,NA,NA,
107,384,"Cote dIvoire",350,NA,35,30,60,NA,66,NA,NA,400,NA,NA,NA,NA,
35,132,"Cap Vert",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
37,140,"Cent Afr Rep",350,NA,30,30,66,NA,66,66,NA,NA,NA,NA,NA,NA,
128,446,"China, Macao",400,NA,NA,NA,166,NA,NA,NA,NA,NA,NA,NA,NA,NA,
46,178,"Congo Rep",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
48,188,"Costa Rica",300,NA,NA,NA,60,NA,NA,NA,50,400,NA,NA,NA,NA,
49,192,"Cuba",NA,NA,NA,NA,60,NA,NA,NA,NA,500,NA,NA,NA,NA,
58,218,"Ecuador",NA,NA,55,35,60,NA,NA,70,70,450,450,450,NA,NA,
60,222,"El Salvador",390,NA,NA,NA,60,NA,NA,NA,50,350,NA,NA,NA,NA,
238,231,"Ethiopia",300,NA,28,NA,NA,66,NA,NA,NA,330,NA,NA,NA,NA,
64,234,"Faeroe Is",NA,NA,NA,NA,NA,NA,NA,NA,NA,350,NA,NA,NA,NA,
81,288,"Ghana",400,NA,35,150,40,60,NA,48,80,NA,NA,NA,NA,NA,
89,320,"Guatemala",300,NA,50,30,60,60,NA,60,50,NA,NA,NA,NA,NA,
90,324,"Guinea",NA,NA,NA,NA,45,NA,NA,NA,80,450,NA,NA,NA,NA,
91,328,"Guyana",300,NA,30,NA,60,60,NA,NA,50,NA,NA,NA,NA,NA,
95,340,"Honduras",300,NA,50,NA,60,60,NA,NA,50,350,NA,350,NA,NA,
101,360,"Indonesia",300,NA,30,30,60,NA,NA,NA,80,500,NA,NA,NA,NA,
102,364,"Iran",300,NA,35,30,60,NA,NA,30,NA,500,NA,NA,NA,NA,
109,388,"Jamaica",NA,NA,30,30,50,50,NA,NA,30,500,NA,100,NA,NA,
117,410,"Korea Rep",330,NA,NA,NA,50,71,NA,NA,77,300,NA,NA,NA,NA,
121,422,"Lebanon",350,NA,35,60,60,NA,NA,45,NA,450,NA,NA,NA,NA,
129,450,"Madagascar",NA,NA,NA,NA,35,NA,NA,NA,NA,NA,NA,NA,NA,NA,
136,478,"Mauritania",NA,NA,NA,NA,200,NA,NA,NA,NA,NA,NA,NA,NA,NA,
147,516,"Namibia",300,NA,30,35,60,NA,NA,NA,NA,450,NA,NA,NA,NA,
153,540,"NewCaledonia",NA,NA,NA,NA,30,NA,NA,NA,NA,NA,NA,NA,NA,NA,
157,558,"Nicaragua",450,500,NA,NA,60,NA,NA,NA,50,350,NA,NA,NA,NA,
158,562,"Niger",200,NA,45,25,60,NA,NA,80,NA,NA,200,NA,NA,NA,
166,591,"Panama",300,NA,NA,60,60,NA,NA,NA,50,350,NA,NA,NA,NA,
169,600,"Paraguay",350,NA,35,NA,60,NA,NA,NA,60,350,NA,NA,NA,NA,
179,634,"Qatar",300,NA,35,30,60,NA,NA,30,NA,500,NA,NA,NA,NA,
184,646,"Rwanda",400,NA,NA,40,100,NA,NA,NA,150,NA,NA,NA,NA,NA,
193,678,"Sao Tome",NA,NA,NA,NA,40,60,NA,NA,NA,500,NA,NA,NA,NA,
195,686,"Senegal",400,NA,NA,NA,55,NA,NA,45,NA,NA,NA,NA,NA,NA,
272,688,"Serbia",500,NA,30,30,60,NA,NA,70,110,500,NA,NA,NA,NA,
186,NA,"Serbia-Monte",500,NA,30,20,150,NA,NA,70,80,NA,NA,NA,NA,NA,
276,729,"Sudan",450,NA,40,30,60,NA,200,NA,NA,100,NA,NA,NA,NA,
207,740,"Suriname",NA,NA,40,NA,60,NA,80,80,80,NA,NA,NA,NA,NA,
212,760,"Syria",300,NA,35,30,60,NA,NA,NA,NA,300,NA,NA,NA,NA,
215,834,"Tanzania",350,NA,35,35,60,NA,NA,NA,50,300,NA,100,NA,NA,
217,768,"Togo",250,NA,NA,30,45,NA,NA,NA,NA,NA,NA,NA,NA,NA,
225,784,"Untd Arab Em",350,NA,50,25,60,60,NA,60,30,500,NA,NA,300,NA,
155,548,"Vanuatu",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
236,862,"Venezuela",450,300,NA,NA,60,NA,NA,80,NA,450,NA,350,NA,NA,
251,894,"Zambia",250,NA,30,30,50,NA,NA,NA,80,400,NA,NA,NA,NA,
181,716,"Zimbabwe",450,NA,35,NA,NA,60,NA,NA,100,400,NA,100,NA,NA
)
livestock_weights_cla <- livestock_weights_cla %>%
tidyr::gather(livestock, liveweight_cla,
-area_fao, -area_m49, -area_name) %>%
# livestock_weights_cla's weights are in kilograms per units, except
# for CHICKENS, DUCKS, GEESE, TURKEYS (maybe also RABBITS, but all NAs)
dplyr::mutate(
liveweight_cla =
ifelse(livestock %in% c('CHICKENS', 'DUCKS', 'GEESE', 'TURKEYS'),
liveweight_cla * 0.001, liveweight_cla)
)
livestock_weights <- full_join(
livestock_weights_kat,
livestock_weights_cla,
by = c('reporter' = 'area_fao', 'livestock')
) %>%
dplyr::mutate(
liveweight = ifelse(!is.na(liveweight_cla), liveweight_cla, liveweight_kat)
) %>%
dplyr::filter(!is.na(liveweight)) %>%
dplyr::select(-area_m49, -area_name, -liveweight_kat, -liveweight_cla, -livestock)
return(livestock_weights)
}
SWS-Methodology/faoswsTrade documentation built on Feb. 13, 2023, 1:04 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions livestockWeightsTable
Documented in livestockWeightsTable
#' Livestock weight table.
#'
#' @return Livestock weight table.
#' @import dplyr
#' @export
livestockWeightsTable <- function() {
# livestock_weights_kat is Katherine's table (from AGA)
# livestock_weights_cla is Claudia's table (from Jellyfish)
# The suggested approach is to use ALWAYS cla weights and
# to fallback to kat weights only when no cla weight exist.
# livestock_weights_kat's weights are always in kilograms per unit
# livestock_weights_cla's weights are in kilograms per units, except
# for CHICKENS, DUCKS, GEESE, TURKEYS (maybe also RABBITS, but all NAs)
livestock_weights_kat <- frame_data(
~ADM0_CODE,~CATTLE,~BUFFALOES,~SHEEP,~GOATS,~PIGS,~CHICKENS,~FAOSTAT,
1,256.3890381,392.8697815,27.84269905,29.05475807,53.65662766,0.672066331,2,
3,390.8330078,NA,38.36423111,39.83809662,68.80722809,1.439249873,3,
4,239.8289185,NA,32.91728592,22.32944107,58.53427505,0.99712503,4,
6,239.8289185,NA,34.06716537,26.06311035,36.97418594,0.885822713,276,
7,380.0856628,NA,38.36422729,39.83810806,NA,1.386364222,6,
8,208.2750702,NA,22.76470375,17.87862968,51.60359573,0.867149651,7,
9,272.6517334,NA,33.44763565,22.49774361,NA,1.246298432,258,
11,271.349823,NA,33.44765091,22.49770546,79.05690002,1.195930243,8,
12,318.0302734,440.2397766,36.45346451,28.47316551,74.3853302,1.265613437,9,
13,378.6771545,386.0958557,35.45261002,29.25951004,62.19651031,1.157605648,1,
14,272.6531677,NA,NA,NA,NA,1.246298432,22,
17,282.048645,NA,41.87223434,32.49998093,60.48011398,1.23106277,10,
18,412.3081055,NA,44.15415192,34.13514709,77.92182922,1.259665489,11,
19,378.6771851,386.0960999,35.45066071,29.25950623,63.19337463,1.075948238,52,
20,271.2185669,NA,33.44765091,22.49770546,81.10761261,1.225092053,12,
21,203.2441406,NA,35.45817947,29.25950813,NA,1.119818687,13,
23,307.9141846,365.0848694,14.82828045,23.06285667,57.47120285,0.751710951,16,
24,271.6184082,NA,33.44764709,22.49770355,80.5089798,1.226267815,14,
26,350.9770203,NA,33.19194794,34.36244202,72.83085632,1.243133307,57,
27,429.5823975,NA,44.15414047,34.13513947,73.40576172,1.257632375,255,
28,345.092865,NA,41.84924698,26.93778801,70.61833191,1.216873288,23,
29,184.6868134,NA,21.61923409,34.50004578,43.36027145,0.839838028,53,
30,NA,NA,NA,NA,NA,NA,17,
31,235.2082214,355.4337463,30.68200302,28.19849014,61.71686554,1.077369094,18,
33,352.5726013,NA,40.00265503,28.4693222,74.42155457,1.182155132,19,
34,390.8330383,NA,38.36422729,39.8380928,68.96847534,1.377315998,80,
35,212.2657318,NA,29.26600838,32.12384796,37.35140991,1.00812459,20,
37,357.92099,440.2397766,40.52725983,21.68284035,73.50950623,1.248873949,21,
39,272.6528625,NA,33.44764709,22.49769783,83.03923798,1.246298432,239,
40,246.2585144,271.6841736,22.32620621,28.94177437,73.56225586,1.213883519,26,
41,390.8331299,419.2785339,33.19195175,34.36244202,73.48921204,1.189112782,27,
42,186.7112122,NA,21.43421745,16.89265823,39.94961548,0.820945442,233,
43,231.3627472,NA,22.11724281,18.35738564,40.13391113,0.899921179,29,
44,266.1557007,290.1116638,22.44249535,28.94176483,53.49511719,1.165078282,115,
45,205.3496246,NA,22.87011528,15.32100296,50.33534622,0.831533849,32,
46,431.8923035,446.6522827,51.78468704,40.84454346,76.6817627,1.339156985,33,
47,NA,NA,NA,NA,36.96607971,0.81564486,35,
48,272.65271,NA,33.44765091,22.49769592,NA,1.173599243,36,
49,200.6471252,NA,16.55030632,15.32100487,38.38234329,0.842602134,37,
50,216.8459015,NA,21.45008278,20.78194046,38.57694244,0.822294891,39,
51,374.3396912,NA,50.48224258,27.1191597,80.83867645,1.290331364,40,
53,315.6998901,268.3487854,33.35927963,21.55981445,58.92356873,1.235048413,41,
57,352.9168396,440.2396851,38.95139694,27.11915779,70.75730133,1.23694849,44,
58,181.8149109,NA,23.11997032,21.49881935,NA,0.952416182,45,
59,192.489212,NA,22.87559891,17.87169456,58.04550552,0.861019611,46,
60,NA,NA,NA,NA,55.62402344,0.797781885,47,
61,392.2228699,NA,41.84923172,26.93781471,80.34870148,1.19363451,48,
62,390.8330078,NA,38.36423111,39.83809662,71.55160522,1.408711433,98,
63,272.3341675,NA,26.9293232,21.62334061,59.1525383,0.926937819,49,
64,220.8092041,303.0354309,35.45806885,34.52510834,70.72145081,1.108707309,50,
65,394.5630493,NA,33.19194412,34.36244583,78.5197525,1.244747877,167,
66,169.3670197,NA,18.40909004,17.16343498,52.4017067,0.905766547,107,
67,213.3977509,274.4901123,34.27004623,25.9473877,55.10443878,1.112254381,116,
68,192.0954437,NA,22.39225197,18.71471024,47.32799912,0.836225271,250,
69,388.0987854,NA,43.8166008,39.39533615,75.92655182,1.217537284,54,
70,144.8935089,NA,20.97926331,22.40457726,NA,0.808432043,72,
71,271.2182312,NA,33.44764709,22.49770355,75.55200958,1.190272212,55,
72,272.2513428,NA,33.44765472,22.49770546,72.64641571,1.193609118,56,
73,358.2658081,NA,32.06716537,27.11915588,69.92286682,1.253200769,58,
74,239.8288879,NA,31.10349464,26.06311035,37.0784111,0.926630318,277,
75,362.4393005,NA,41.84923553,26.93781471,68.60535431,1.165735245,60,
76,195.0283966,NA,22.87539673,17.87169456,75.46363068,1.172595739,61,
77,177.6680298,NA,21.09777832,20.50054359,37.03150177,0.909748435,178,
78,390.8330688,NA,36.91276932,39.3953476,78.27351379,1.234036446,63,
79,217.2377014,NA,21.47650909,21.27622414,38.38995743,0.901513636,238,
82,380.0856323,NA,36.91276932,39.39536285,NA,1.09933424,64,
83,286.2137451,NA,44.1585083,35.31572723,59.46575165,1.133542061,66,
84,388.5661926,NA,36.9127655,39.39536285,78.5197525,1.166431904,67,
85,409.4775696,NA,44.15414429,40.43273544,75.7148819,1.250712395,68,
86,360.5262451,NA,40.00263596,27.11914635,70.49394226,1.256665587,69,
87,NA,NA,NA,NA,55.62405777,0.797781944,70,
89,222.2815552,NA,22.87559891,17.87169647,68.35944366,0.850671172,74,
90,194.7610474,NA,23.90057373,17.16343117,40.08636475,0.842920125,75,
92,378.6772156,375.6366577,35.31619644,29.25950623,59.58626556,0.812784135,73,
93,406.552948,NA,41.76063919,31.1424942,77.87741852,1.218164563,79,
94,176.8401184,NA,19.43235397,17.16343308,52.5640831,0.857672036,81,
95,NA,NA,NA,NA,NA,NA,82,
97,389.8049316,NA,42.94469452,39.14850998,77.22460938,1.411391735,84,
99,272.1723328,NA,33.44765091,22.49770355,73.99861908,1.164781451,86,
100,272.6480713,NA,33.44765091,22.49770164,59.15253067,0.926938355,87,
103,361.231842,440.2394104,41.84924698,26.93781281,71.62902832,1.12347734,89,
105,180.5763397,NA,23.86148834,17.16343689,38.81088638,0.857934892,175,
106,169.1205597,NA,20.59486198,17.16343117,40.59358215,0.914585471,90,
107,404.3465576,NA,40.00265503,27.11915779,63.32645416,1.246365547,91,
108,272.1999512,NA,33.44764709,23.32115746,60.09217072,0.995098412,93,
111,368.2302551,NA,41.84925079,26.93781662,74.55740356,1.151347876,95,
113,390.8330688,NA,32.84841537,34.36244583,74.96511078,1.32804811,97,
114,390.7564087,NA,36.9127655,39.3953743,78.51976776,1.215555191,99,
115,288.5630493,357.3581543,26.15502357,19.74781227,56.67267227,1.043156147,100,
116,267.2589417,290.1116333,23.03234482,34.13267517,56.55067444,0.961944997,101,
117,243.1032715,369.9327087,27.13220596,22.51860619,56.96424484,1.071452856,102,
118,238.4592285,384.3327026,35.45756149,29.25950813,NA,1.110603213,103,
119,370.8970032,NA,33.2579689,39.3953476,72.16204071,1.275303006,104,
121,527.2715454,352.5619812,35.45817947,29.25950623,69.32881927,1.100683093,105,
122,394.9785767,446.6522827,40.72431564,34.58537292,95.07873535,1.443969369,106,
123,272.3920288,NA,41.46365356,22.49770164,68.84637451,1.210548759,109,
126,396.7659912,274.4901428,27.41026306,25.9473896,66.72848511,1.432173252,110,
130,218.9737854,337.1603699,35.45783234,27.64420891,53.37502289,1.101539493,112,
132,378.6771851,316.6765747,43.9757309,27.80796433,63.88196945,1.234594822,108,
133,209.5615692,NA,21.46715546,24.36559677,49.80768585,1.015957475,114,
135,286.2137756,NA,44.15851212,35.31573105,66.95762634,1.263794184,83,
137,200.6551056,390.1687622,35.45817947,29.25950241,NA,1.116088271,118,
138,378.6771851,316.6765747,44.22585678,27.80796242,55.57938385,1.09547019,113,
139,252.1284027,274.4901123,22.61347771,28.94177055,52.50858307,1.132925868,120,
140,390.8330383,NA,36.91276932,39.39535904,75.63497162,1.285774231,119,
141,254.0678101,352.5618591,35.3781929,29.55652237,66.3266983,1.099955082,121,
142,230.0534821,NA,21.48963928,34.23714447,45.93322754,0.830936968,122,
144,166.5406189,NA,18.83590126,17.16343308,37.54597473,0.825121105,123,
145,239.8289032,NA,33.15939331,22.37286186,37.32128143,0.953255773,124,
146,390.8330994,NA,43.89320374,34.13518143,78.17417145,1.092018247,125,
147,390.8330383,NA,36.91276932,39.3953476,73.85064697,1.225506663,126,
148,386.3526001,NA,58.4120636,34.13513947,78.51976013,1.491341233,256,
149,NA,NA,NA,NA,NA,NA,128,
150,161.2952271,NA,23.68028069,22.31255531,52.69374084,0.899245799,129,
152,156.1023102,NA,23.47574234,20.60202026,40.96017456,0.911265969,130,
153,215.8369293,263.5828247,22.86181259,42.753479,73.15161896,1.216697812,131,
154,198.4755707,NA,26.46056366,28.30915833,NA,NA,132,
155,184.8108826,NA,21.45228577,16.90237617,48.79941177,0.819675624,133,
156,390.8330994,NA,38.36423111,39.83809662,78.46439362,1.390740633,134,
157,NA,NA,44.15854645,35.31572723,NA,NA,127,
158,272.6054382,NA,33.44765091,22.49770164,76.91344452,1.170621157,135,
159,172.7861328,NA,21.4522934,16.90237617,36.96591187,0.917676091,136,
160,NA,NA,NA,NA,36.96607971,0.900122881,137,
161,146.3604431,NA,23.08343697,21.58673668,NA,0.805229664,270,
162,327.9599915,NA,41.84924698,26.93781281,69.58168793,1.268992782,138,
163,286.2137451,NA,44.15851212,35.31572723,58.62063217,1.159582376,145,
165,390.8330688,370.062439,33.19195175,34.36244202,60.31081772,1.165694833,146,
166,NA,NA,NA,NA,NA,NA,140,
167,236.2872772,274.4900818,34.31239319,31.45026588,57.87521362,1.222557783,141,
168,271.8510437,NA,33.44765472,22.49770546,NA,1.201867342,142,
169,239.8288727,NA,32.03399658,15.94233894,73.09867096,0.916475952,143,
170,172.2654266,NA,23.53818703,26.31273079,38.22433472,0.904222846,144,
171,219.7814636,274.4734497,20.18666649,25.51335335,50.88267517,1.125195742,28,
172,207.7083282,NA,29.26542854,34.23714828,49.03438187,0.845627487,147,
173,NA,NA,NA,NA,NA,NA,148,
175,249.6549225,351.7696533,28.38132095,19.6612587,60.7420845,0.818007648,149,
176,271.2187805,NA,33.44765091,22.49770546,59.15250397,0.927621901,151,
177,392.737793,NA,44.15414429,30.88696289,74.42938232,1.295378447,150,
178,NA,NA,44.15848541,35.31573105,55.62403488,0.797784746,153,
179,323.5985107,NA,42.55941772,38.23110962,60.64422226,1.260027647,156,
180,381.3654175,NA,41.84924316,26.93781281,64.38439941,1.132486939,157,
181,187.6623688,NA,21.45228577,16.90237617,47.98832321,0.820635319,158,
182,190.6941681,NA,20.84035873,15.96546459,40.12230682,0.939791918,159,
183,NA,NA,NA,NA,55.62408829,0.797781885,160,
186,388.3912354,NA,36.91276932,39.39535522,78.5197525,1.265766501,162,
187,202.4343262,390.1687622,35.45818329,29.25950623,NA,1.14142108,221,
188,259.2781067,383.6882629,26.98664284,21.75287056,53.3915062,0.915783048,165,
189,286.2142639,NA,44.1585083,35.31573105,NA,1.160983443,180,
191,322.5586243,435.7901917,41.84924316,26.9378109,73.77098084,1.213115573,166,
192,286.2137146,NA,44.15852356,35.31573486,55.80492783,1.051409602,168,
194,330.8704529,NA,40.00265503,27.11915398,64.90524292,1.257859945,169,
195,368.7867126,NA,32.23814774,27.87977409,59.39426041,1.29488349,170,
196,261.7101135,274.4901123,22.51319695,28.94177055,60.79992676,1.122492313,171,
198,355.8561401,NA,33.19194794,34.36244202,76.11495209,1.265087128,173,
199,375.5845032,NA,38.58430862,39.8380928,77.27405548,1.38424325,174,
201,206.0013275,390.1687317,35.45817947,29.25950432,NA,1.142033458,179,
202,424.7019348,274.4901123,34.03966141,25.94739151,67.56629944,1.307212114,117,
203,336.2837524,370.0624084,33.19194794,34.36244583,65.4099884,1.229386091,183,
204,350.9770508,427.9755554,33.19195175,36.12493134,69.60936737,1.191363573,185,
205,233.8757629,NA,21.97559357,19.80303574,38.90943909,0.910817742,184,
208,272.6526489,NA,33.44764709,22.49770355,78.01861572,1.180891395,188,
209,272.4286804,NA,33.44765091,22.49770546,74.52936554,1.184606552,189,
211,272.0465088,NA,33.44765472,22.49770355,73.95384216,1.168344855,191,
212,NA,NA,NA,NA,55.62402725,0.797781944,244,
213,380.0852966,NA,38.36429596,39.8381958,NA,1.36294806,192,
214,216.9723053,NA,22.87559509,17.87168884,36.96605301,0.879517853,193,
215,198.147934,390.1687622,35.45817566,29.25950813,NA,1.11090529,194,
217,191.4779511,NA,21.45229149,16.90237617,43.06197739,0.857529402,195,
220,NA,NA,23.79503632,22.40525627,NA,NA,196,
221,168.5702362,NA,18.59084129,17.16343117,38.69464874,0.851141453,197,
222,248.8704071,NA,22.45681953,28.94175339,74.94308472,1.188298702,200,
223,390.3884583,NA,33.19194031,34.36244202,77.44148254,1.293223858,199,
224,387.247406,NA,38.36423111,39.83808899,73.20809174,1.360375524,198,
225,286.2137451,NA,44.1585083,35.31573105,57.90566254,1.128340483,25,
226,159.6006775,NA,20.98340607,17.19361496,66.195961,0.996617794,201,
227,374.4401855,NA,39.18542862,35.52355576,63.6794281,0.889056683,202,
229,385.5553589,NA,41.55482483,52.82646179,70.30904388,1.413429737,203,
231,257.9943542,356.1914978,15.98687363,28.66369057,59.51555252,1.047850609,38,
233,367.8605042,NA,40.00265503,27.11915779,71.13173676,1.226379037,207,
235,225.1113281,NA,24.4699173,33.09536743,45.53917694,0.861402094,209,
236,421.205658,NA,36.91277313,39.39524841,79.44485474,1.303900003,210,
237,405.5534668,NA,44.1541481,34.13513565,78.1140976,1.420035839,211,
238,234.8414917,360.842041,35.45763779,25.53422546,53.37961197,1.107642293,212,
239,378.6771851,316.6766357,49.58827972,27.80796433,54.40871048,1.082554221,208,
240,249.1253815,274.4901733,22.39357376,15.6942749,67.79804993,1.175913453,216,
241,390.8330688,NA,38.29572296,39.83809662,71.30783844,1.441223502,154,
242,285.5490112,290.1116943,22.77217293,28.94177437,51.6267395,1.182412624,176,
243,180.9509125,NA,20.29354858,17.16343308,38.36806107,0.835545301,217,
244,NA,NA,NA,NA,NA,NA,218,
245,NA,NA,NA,NA,55.62403107,0.797781944,219,
246,271.3674622,NA,33.44765091,22.49770546,80.54330444,1.233825326,220,
248,239.8288879,NA,33.07595825,22.85740089,61.73098755,0.882992208,222,
249,251.2317352,303.0355225,35.42823029,25.95420074,66.99420166,1.172982216,223,
250,378.6771545,316.6766052,46.59937286,27.80796433,61.87641144,1.26840508,213,
251,272.6525879,NA,33.44762802,22.49770927,NA,1.246298313,224,
252,NA,NA,NA,NA,NA,NA,227,
253,215.2300415,NA,22.8887558,19.3656559,39.22952271,0.898862302,226,
254,377.6549072,370.0623779,33.19194794,34.36244202,62.67458725,1.111248851,230,
255,202.6744385,390.1687622,35.45817566,29.25950623,NA,1.137617707,225,
256,377.3076477,NA,39.21104431,39.39535141,73.75013733,1.218558192,229,
257,193.7770386,NA,23.27356339,20.50750351,41.80046844,0.907911003,215,
259,463.5309753,NA,52.26735687,40.84453964,76.68175507,1.333223701,231,
260,322.9873962,NA,46.4638443,27.11915588,74.75549316,1.279796362,234,
261,378.6771851,316.6766357,46.56485367,27.80796814,56.65736008,1.152636528,235,
262,286.2137756,NA,44.15851212,35.31572723,59.34244537,1.170527101,155,
263,333.5426025,440.2397766,40.0026474,27.87977791,75.30230713,1.246741652,236,
264,256.3638,274.1904602,22.67348671,31.94538498,47.4461937,1.149987817,237,
268,203.3339844,NA,33.17922974,22.37285995,NA,0.80600667,205,
269,227.6739655,390.1687927,35.45812225,29.25950623,NA,1.097397208,249,
270,186.4859619,NA,23.7061615,22.49230385,41.98155594,0.944799483,251,
271,165.2660828,NA,39.26869202,29.78141403,52.04288101,0.931999266,181,
2647,361.554657,NA,38.36423111,39.8380928,61.55322266,1.387090445,273,
2648,361.5546875,NA,38.36422729,39.83809662,71.14429474,1.384593368,272,
33364,236.7797546,268.3487854,24.43595123,25.94739342,NA,1.061956286,96,
40765,239.8288879,352.5619202,33.15939713,19.94598389,54.96685791,0.875848651,59
) %>%
# Country-specific weights not available. Using generic weights.
# See Team B/C email (by KB) on 2017-10-04.
dplyr::mutate(
HORSES = 400,
ASSES = 200,
MULES = 350,
CAMELS = 300,
DUCKS = 0.6,
GEESE = 0.6,
TURKEYS = 0.6,
RABBITS = 1,
OTHER_CAMELIDS = 100,
PIGEONS_OTHER_BIRDS = 0.6
)
livestock_weights_kat <- livestock_weights_kat %>%
tidyr::gather(livestock, liveweight_kat, -ADM0_CODE, -FAOSTAT) %>%
dplyr::rename(reporter = FAOSTAT) %>%
# Sorted by FCL
dplyr::mutate(
reporter = as.integer(reporter),
fcl = recode(livestock,
'CATTLE' = 866,
'BUFFALOES' = 946,
'SHEEP' = 976,
'GOATS' = 1016,
'PIGS' = 1034,
'CHICKENS' = 1057,
'DUCKS' = 1068,
'GEESE' = 1072,
'TURKEYS' = 1079,
'PIGEONS_OTHER_BIRDS' = 1083,
'HORSES' = 1096,
'ASSES' = 1107,
'MULES' = 1110,
'CAMELS' = 1126,
'RABBITS' = 1140,
'OTHER_CAMELIDS' = 1157
)
) %>%
dplyr::select(-ADM0_CODE)
livestock_weights_cla <- frame_data(
~area_fao,~area_m49,~area_name,
~CATTLE,~BUFFALOES,~SHEEP,~GOATS,~CHICKENS,~DUCKS,~GEESE,
~TURKEYS,~PIGS,~HORSES,~ASSES,~MULES,~CAMELS,~RABBITS,
22,533,"Aruba",300,NA,30,30,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,
16,50,"Bangladesh",NA,NA,NA,NA,45,60,NA,NA,NA,NA,NA,NA,NA,NA,
80,70,"Bosnia Herzg",450,NA,25,30,60,NA,NA,60,80,500,NA,NA,NA,NA,
233,854,"Burkina Faso",400,NA,35,35,60,NA,60,NA,NA,400,NA,NA,NA,NA,
107,384,"Cote dIvoire",350,NA,35,30,60,NA,66,NA,NA,400,NA,NA,NA,NA,
35,132,"Cap Vert",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
37,140,"Cent Afr Rep",350,NA,30,30,66,NA,66,66,NA,NA,NA,NA,NA,NA,
128,446,"China, Macao",400,NA,NA,NA,166,NA,NA,NA,NA,NA,NA,NA,NA,NA,
46,178,"Congo Rep",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
48,188,"Costa Rica",300,NA,NA,NA,60,NA,NA,NA,50,400,NA,NA,NA,NA,
49,192,"Cuba",NA,NA,NA,NA,60,NA,NA,NA,NA,500,NA,NA,NA,NA,
58,218,"Ecuador",NA,NA,55,35,60,NA,NA,70,70,450,450,450,NA,NA,
60,222,"El Salvador",390,NA,NA,NA,60,NA,NA,NA,50,350,NA,NA,NA,NA,
238,231,"Ethiopia",300,NA,28,NA,NA,66,NA,NA,NA,330,NA,NA,NA,NA,
64,234,"Faeroe Is",NA,NA,NA,NA,NA,NA,NA,NA,NA,350,NA,NA,NA,NA,
81,288,"Ghana",400,NA,35,150,40,60,NA,48,80,NA,NA,NA,NA,NA,
89,320,"Guatemala",300,NA,50,30,60,60,NA,60,50,NA,NA,NA,NA,NA,
90,324,"Guinea",NA,NA,NA,NA,45,NA,NA,NA,80,450,NA,NA,NA,NA,
91,328,"Guyana",300,NA,30,NA,60,60,NA,NA,50,NA,NA,NA,NA,NA,
95,340,"Honduras",300,NA,50,NA,60,60,NA,NA,50,350,NA,350,NA,NA,
101,360,"Indonesia",300,NA,30,30,60,NA,NA,NA,80,500,NA,NA,NA,NA,
102,364,"Iran",300,NA,35,30,60,NA,NA,30,NA,500,NA,NA,NA,NA,
109,388,"Jamaica",NA,NA,30,30,50,50,NA,NA,30,500,NA,100,NA,NA,
117,410,"Korea Rep",330,NA,NA,NA,50,71,NA,NA,77,300,NA,NA,NA,NA,
121,422,"Lebanon",350,NA,35,60,60,NA,NA,45,NA,450,NA,NA,NA,NA,
129,450,"Madagascar",NA,NA,NA,NA,35,NA,NA,NA,NA,NA,NA,NA,NA,NA,
136,478,"Mauritania",NA,NA,NA,NA,200,NA,NA,NA,NA,NA,NA,NA,NA,NA,
147,516,"Namibia",300,NA,30,35,60,NA,NA,NA,NA,450,NA,NA,NA,NA,
153,540,"NewCaledonia",NA,NA,NA,NA,30,NA,NA,NA,NA,NA,NA,NA,NA,NA,
157,558,"Nicaragua",450,500,NA,NA,60,NA,NA,NA,50,350,NA,NA,NA,NA,
158,562,"Niger",200,NA,45,25,60,NA,NA,80,NA,NA,200,NA,NA,NA,
166,591,"Panama",300,NA,NA,60,60,NA,NA,NA,50,350,NA,NA,NA,NA,
169,600,"Paraguay",350,NA,35,NA,60,NA,NA,NA,60,350,NA,NA,NA,NA,
179,634,"Qatar",300,NA,35,30,60,NA,NA,30,NA,500,NA,NA,NA,NA,
184,646,"Rwanda",400,NA,NA,40,100,NA,NA,NA,150,NA,NA,NA,NA,NA,
193,678,"Sao Tome",NA,NA,NA,NA,40,60,NA,NA,NA,500,NA,NA,NA,NA,
195,686,"Senegal",400,NA,NA,NA,55,NA,NA,45,NA,NA,NA,NA,NA,NA,
272,688,"Serbia",500,NA,30,30,60,NA,NA,70,110,500,NA,NA,NA,NA,
186,NA,"Serbia-Monte",500,NA,30,20,150,NA,NA,70,80,NA,NA,NA,NA,NA,
276,729,"Sudan",450,NA,40,30,60,NA,200,NA,NA,100,NA,NA,NA,NA,
207,740,"Suriname",NA,NA,40,NA,60,NA,80,80,80,NA,NA,NA,NA,NA,
212,760,"Syria",300,NA,35,30,60,NA,NA,NA,NA,300,NA,NA,NA,NA,
215,834,"Tanzania",350,NA,35,35,60,NA,NA,NA,50,300,NA,100,NA,NA,
217,768,"Togo",250,NA,NA,30,45,NA,NA,NA,NA,NA,NA,NA,NA,NA,
225,784,"Untd Arab Em",350,NA,50,25,60,60,NA,60,30,500,NA,NA,300,NA,
155,548,"Vanuatu",NA,NA,NA,NA,60,NA,NA,NA,NA,400,NA,NA,NA,NA,
236,862,"Venezuela",450,300,NA,NA,60,NA,NA,80,NA,450,NA,350,NA,NA,
251,894,"Zambia",250,NA,30,30,50,NA,NA,NA,80,400,NA,NA,NA,NA,
181,716,"Zimbabwe",450,NA,35,NA,NA,60,NA,NA,100,400,NA,100,NA,NA
)
livestock_weights_cla <- livestock_weights_cla %>%
tidyr::gather(livestock, liveweight_cla,
-area_fao, -area_m49, -area_name) %>%
# livestock_weights_cla's weights are in kilograms per units, except
# for CHICKENS, DUCKS, GEESE, TURKEYS (maybe also RABBITS, but all NAs)
dplyr::mutate(
liveweight_cla =
ifelse(livestock %in% c('CHICKENS', 'DUCKS', 'GEESE', 'TURKEYS'),
liveweight_cla * 0.001, liveweight_cla)
)
livestock_weights <- full_join(
livestock_weights_kat,
livestock_weights_cla,
by = c('reporter' = 'area_fao', 'livestock')
) %>%
dplyr::mutate(
liveweight = ifelse(!is.na(liveweight_cla), liveweight_cla, liveweight_kat)
) %>%
dplyr::filter(!is.na(liveweight)) %>%
dplyr::select(-area_m49, -area_name, -liveweight_kat, -liveweight_cla, -livestock)
return(livestock_weights)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.