Rで解析:J-STAGEの資料情報を楽々取得できます「jstager」パッケージ

Rの解析に役に立つ記事
スポンサーリンク

J-STAGEに収録されている資料情報をAPI経由で楽々取得できるパッケージの紹介です。情報の取得はジャーナル名だけでなく著者名、所属名、キーワードなどで可能です。また、取得した結果はxlsx形式で保存できます。

そのため、科研費の申請や組織内での成果報告だけでなく、日本における特定分野の研究傾向を知るのに大変便利なパッケージだと思います。

なお、J-STAGE(科学技術情報発信・流通総合システム)は、国立研究開発法人科学技術振興機構が運営する電子ジャーナルプラットフォームで国内の4,000誌以上のジャーナルや会議録等の刊行物公開しています。

・J-STAGE

https://www.jstage.jst.go.jp/browse/-char/ja

・J-STAGEの概要

https://www.jstage.jst.go.jp/static/pages/JstageOverview/-char/ja

・J-STAGEの収録資料一覧

https://www.jstage.jst.go.jp/journal/fields/-char/ja

・J-STAGE WebAPI 利用規約

https://www.jstage.jst.go.jp/static/pages/WebAPI/-char/ja

API経由での情報取得は節度を守り利用しましょう。

パッケージバージョンは0.0.2。実行コマンドはwindows 11のR version 4.3.1で確認しています。

スポンサーリンク

パッケージのインストール

下記コマンドを実行してください。

# パッケージのインストール
install.packages("jstager")

実行コマンド

詳細はコマンド、パッケージのヘルプを確認してください。

# パッケージの読み込み
library("jstager")

# 指定資料の情報を取得:get_jstage_volumes
# 情報の取得開始年を指定:pubyearfromオプション;初期値:NA
# 情報の取得終了年を指定:pubyeartoオプション;初期値:NA
# 資料名を指定:materialオプション;初期値:""
# isnnを"XXXX-XXXX"で指定:issnオプション;初期値:""
# 資料コードを指定:cdjournalオプション;初期値:""
# 巻号の並び順を指定:volorderオプション;初期値:1;昇順/2;降順
GetData <- get_jstage_volumes(pubyearfrom = 2023,
                              material = "化学と生物", issn = "",
                              cdjournal = "", volorder = NA)
# 確認
# 結果はList classで$metadataと$entryで構成されています
GetData
# $metadata
# # A tibble: 1 × 10
# 処理結果ステータス 処理結果メッセージ フィード名      クエリのURL クエリのURI サービスコード
# <chr>              <chr>              <chr>           <chr>       <chr>       <chr>         
#   1 0                  ""                 Volumes and Is… ""          https://ap… 2             
# # ℹ 4 more variables: 取得日時 <chr>, 検索結果総数 <dbl>, 開始件数 <dbl>, 件数 <dbl>
# 
# $entry
# # A tibble: 6 × 25
#  `巻号一覧表示名(英)`   `巻号一覧表示名(日)` `目次一覧URL(英)` `目次一覧URL(日)` `Print ISSN`
#  <chr>                  <chr>                <chr>             <chr>             <chr>       
# 1 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# 2 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# 3 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# 4 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# 5 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# 6 "Vol. 61 (2023) , No.… "Vol. 61 (2023) , N… https://www.jsta… https://www.jsta… NA          
# # ℹ 20 more variables: `Online ISSN` <chr>, `学協会名(英)` <chr>, `学協会名(日)` <chr>,
# #   `学協会URL(英)` <chr>, `学協会URL(日)` <chr>, 資料コード <chr>, `資料名(英)` <chr>,
# #   `資料名(日)` <chr>, 巻 <dbl>, 分冊 <chr>, 号 <dbl>, 開始ページ <dbl>, 終了ページ <dbl>,
# #   発行年 <dbl>, システムコード <chr>, システム名 <chr>, サブフィード名 <chr>,
# #   サブフィードURL <chr>, サブフィードID <chr>, 最新公開日 <chr>


# 著者名,所属,キーワードなどに一致する情報を取得:get_jstage_articlesコマンド
# 注:一度に取得できるデータは最大1000件,
# 1000件以上続きで取得する場合はstartオプションで開始番号を指定
# 著者名を指定:authorオプション;初期値:""
# 所属を指定:affilオプション;初期値:""
# キーワードを指定:keywordオプション;初期値:""
# 情報取得開始の番号を指定:startオプション;初期値:NA
GetData <- get_jstage_articles(pubyearfrom = 2000, pubyearto = NA,
                               material = "", article = "", author = "", affil = "",
                               keyword = "クロレラ", abst = "", text = "",
                               issn = "", cdjournal = "", sortflg = NA,
                               vol = NA, no = NA, start = NA, count = NA, lang = "ja")

# 確認
# 結果はList classで$metadataと$entryで構成されています
GetData
# $metadata
# # A tibble: 1 × 10
# 処理結果ステータス 処理結果メッセージ フィード名 クエリのURL クエリのURI      サービスコード
# <chr>              <chr>              <chr>      <chr>       <chr>            <chr>         
#   1 0                  ""                 Articles   ""          https://api.jst… 3             
# # ℹ 4 more variables: 取得日時 <chr>, 検索結果総数 <dbl>, 開始件数 <dbl>, 件数 <dbl>
# 
# $entry
#  # A tibble: 17 × 25
#   `論文タイトル(英)` `論文タイトル(日)` `書誌URL(英)` `書誌URL(日)` `著者名(英)` `著者名(日)`
#   <chr>              <chr>              <chr>         <chr>         <chr>        <chr>       
#  1 "Effects of Chlor… ウラン腎臓取り込…  https://www.… https://www.… "Kazushi TA… "瀧山 和志\…
#  2 ""                 クロレラで有用物…  https://www.… https://www.… "Japan Scie… "国立研究開…
#  3 ""                 迅速な進化が捕食…  https://www.… https://www.… ""           "吉田 丈人\…
#  4 "Use of complemen… 消化器病患者にお…  https://www.… https://www.… "Ryukichi K… "神代 龍吉\…
#  5 "Effect of Chlore… インフルエンザ感…  https://www.… https://www.… "Toru MIZOG… "溝口 亨\n… 
#  6 "Lipid and Fatty … ドコサヘキサエン…  https://www.… https://www.… "Tsugiyo Yu… "雪野 繼代\…
#  7 "Clinical Study o… 血圧が高めの健常…  https://www.… https://www.… "Takashi Ts… "土田 隆\n… 
#  8 "Mechanism of est… 単細胞動物ミドリ…  https://www.… https://www.… "Yuuki Koda… "児玉 有紀\…
#  9 "Leakage of Intra… 撹拌による藍藻ス…  https://www.… https://www.… "Yuichi Ohi… "大平 勇一\…
# 10 "Toxic eruption a… クロレラによる中…  https://www.… https://www.… "Izumi Kono… "木花 いづ… 
# 11 "Effects of a pep… 緑藻 クロレラ <i>… https://www.… https://www.… "HIROKO ITO… "伊藤 浩子\…
# 12 "Optimal Sparging… 藻類培養における…  https://www.… https://www.… "Yuichi OHI… "大平 勇一\…
# 13 "Verification and… フェオホルバイド…  https://www.… https://www.… "Yusuke Fur… "古川 祐輔\…
# 14 "Method Improveme… クロレラ加工品中…  https://www.… https://www.… "Shizuka Sa… "志田(齊藤…
# 15 "Green Innovation… 重イオンビーム育…  https://www.… https://www.… "Yusuke Kaz… "風間 裕介\…
# 16 "Effect of Liposo… 高血圧自然発症ラ…  https://www.… https://www.… "Makoto Tak… "高橋 誠\n… 
# 17 ""                 微細藻類が地球を…  https://www.… https://www.… "Japan Scie… "国立研究開…
# # ℹ 19 more variables: 資料コード <chr>, `資料名(英)` <chr>, `資料名(日)` <chr>,
# #   `Print ISSN` <chr>, `Online ISSN` <chr>, 巻 <dbl>, 分冊 <chr>, 号 <dbl>,
# #   開始ページ <dbl>, 終了ページ <chr>, 発行年 <dbl>, JOI <chr>, DOI <chr>,
# #   システムコード <chr>, システム名 <chr>, サブフィード名 <chr>, サブフィードURL <chr>,
# #   サブフィードID <chr>, 最新公開日 <chr>


# 各種取得データを作業フォルダにxlsx形式で保存:write_jstage_to_excelコマンド
write_jstage_to_excel(GetData, file_name = "Test.xlsx")

少しでも、あなたの解析が楽になりますように!!

タイトルとURLをコピーしました