README.md

In fmsan51/cattleIDjp: Search NLBC Database by Cattle ID Numbers

cattleIDjp

Searches and downloads cattle information from the database of National Livestock Breeding Center, Japan by cattle identification numbers and outputs a csv file contains cattle information. Search speed is about 10-12 cattles/min.

Rを用いて、家畜改良センターの牛の個体識別情報検索サービスを利用するためのパッケージです。 検索速度は10-12頭/分です（サーバーに負担をかけないようわざと遅めにしています）。夜に実行して朝に結果を確認するといった感じの使い方をおすすめします。 出力はcsvまたはdata.frameです。途中で何かエラーが起きて強制終了になっても、そこまでの検索結果を出力します。

Install

# install.packages("devtools")
library(devtools)
install_github("fmsan51/cattleIDjp")

cid_xxx

cid_dialog: The best choice. It opens dialog to choose an input file and and output file and set options. (See Example) オススメ。 入力ファイルや出力ファイルを設定するためのダイアログを表示します。（Example参照）

cid_csv, cid_vector, cid_clipboard: These use input of csv/vector/clipboard. それぞれcsv/vector/クリップボードから個体識別番号を読み取って検索します。 cid_clipboardはExcelのここからここまでの番号をぱぱっと検索したい、みたいなときに便利です。

cid means Cattle ID. ちなみにcidは Cattle ID の略です。

Example

library(cattleIDjp)

# Opens dialog
cid_dialog()

id <- c(1083079037, 0123456789, 0396006198, 1389725782)
cid_vector(input = id, output = NULL)
#> 終了予想時刻（目安）： 2021-11-06 14:23:52 
#>   |                                                                                                  |                                                                                          |   0%  |                                                                                                  |============================================================                              |  67%  |                                                                                                  |==========================================================================================| 100%
#>  検索が終了しました
#> Warning: 以下の個体の情報が得られませんでした： 
#>  0123456789
#>    個体識別番号 出生の年月日   雌雄の別 母牛の個体識別番号           種別 異動内容 異動年月日
#> 1    1083079037   2002.01.02 去勢（雄）                 NA       黒毛和種     装着 2002.02.25
#> 2    1083079037   2002.01.02 去勢（雄）                 NA       黒毛和種     転入 2002.10.27
#> 3    1083079037   2002.01.02 去勢（雄）                 NA       黒毛和種     転出 2004.04.26
#> 4    1083079037   2002.01.02 去勢（雄）                 NA       黒毛和種     搬入 2004.04.26
#> 5    1083079037   2002.01.02 去勢（雄）                 NA       黒毛和種     と畜 2004.04.27
#> 6     396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     出生 2008.01.20
#> 7     396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     転出 2008.01.28
#> 8     396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     転入 2008.01.28
#> 9     396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     転出 2008.08.10
#> 10    396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     転入 2008.08.10
#> 11    396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     転出 2009.10.07
#> 12    396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     搬入 2009.10.07
#> 13    396006198   2008.01.20 去勢（雄）          288803171 ホルスタイン種     と畜 2009.10.08
#> 14   1389725782   2015.03.01       メス         1381820713       黒毛和種     出生 2015.03.01
#> 15   1389725782   2015.03.01       メス         1381820713       黒毛和種     転出 2015.10.28
#> 16   1389725782   2015.03.01       メス         1381820713       黒毛和種     転入 2015.10.29
#> 17   1389725782   2015.03.01       メス         1381820713       黒毛和種     転出 2016.08.31
#> 18   1389725782   2015.03.01       メス         1381820713       黒毛和種     搬入 2016.08.31
#> 19   1389725782   2015.03.01       メス         1381820713       黒毛和種     と畜 2016.09.01
#> 20    123456789         <NA>       <NA>                 NA           <NA>     <NA>       <NA>
#>    都道府県         市町村                                 氏名または名称
#> 1  鹿児島県                                                              
#> 2  鹿児島県       南九州市                                     深野　剛史
#> 3  鹿児島県       南九州市                                     深野　剛史
#> 4  鹿児島県       南九州市               （株）ＪＡ食肉かごしま　南薩工場
#> 5  鹿児島県       南九州市               （株）ＪＡ食肉かごしま　南薩工場
#> 6    北海道   上川郡清水町                                     上野　清志
#> 7    北海道   上川郡清水町                                     上野　清志
#> 8    北海道   上川郡清水町                                     浅水　清志
#> 9    北海道   上川郡清水町                                     浅水　清志
#> 10   北海道   二海郡八雲町                                       佐藤　睦
#> 11   北海道   二海郡八雲町                                       佐藤　睦
#> 12   北海道         帯広市                 （株）北海道畜産公社　十勝工場
#> 13   北海道         帯広市                 （株）北海道畜産公社　十勝工場
#> 14   北海道   河東郡音更町   （独）家畜改良センター十勝牧場肉用牛第一基地
#> 15   北海道   河東郡音更町   （独）家畜改良センター十勝牧場肉用牛第一基地
#> 16   青森県   上北郡七戸町 （独）家畜改良センター奥羽牧場現場後代検定施設
#> 17   青森県   上北郡七戸町 （独）家畜改良センター奥羽牧場現場後代検定施設
#> 18   宮城県 仙台市宮城野区                           仙台市ミートプラント
#> 19   宮城県 仙台市宮城野区                           仙台市ミートプラント
#> 20     <NA>           <NA>                                           <NA>

Notes

NLBC itself offers a paid service to extact its data. See https://www.id.nlbc.go.jp/pdf/katsuyou_kankei.pdf.

家畜改良センター自体も有料で個体識別情報の提供サービスを行っています。

fmsan51/cattleIDjp documentation built on Jan. 4, 2024, 7:42 a.m.