The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
J-STAGE WebAPIを利用して，J-STAGEに公開されている情報を取得するためのRパッケージです。 このパッケージを使用すると，巻号一覧や論文の検索結果を取得し，Excel形式で保存することができます。
このパッケージはJ-STAGE WebAPIの利用規約等をご確認の上ご利用ください。
jstagerパッケージはCRANからインストールできます。
install.packages("jstager")開発版はGitHubからインストールできます。
# install.packages("devtools")
devtools::install_github("takeshinishimura/jstager")library(jstager)
d1 <- get_jstage_volumes(material = "日本応用動物昆虫学会誌", pubyearfrom = 2020)
d1
#> $metadata
#> # A tibble: 1 × 10
#> 処理結果ステータス 処理結果メッセージ フィード名 クエリのURL クエリのURI
#> <chr> <chr> <chr> <chr> <chr>
#> 1 0 "" Volumes and Iss… "" https://ap…
#> # ℹ 5 more variables: サービスコード <chr>, 取得日時 <chr>, 検索結果総数 <dbl>,
#> # 開始件数 <dbl>, 件数 <dbl>
#>
#> $entry
#> # A tibble: 18 × 25
#> `巻号一覧表示名(英)` `巻号一覧表示名(日)` `目次一覧URL(英)` `目次一覧URL(日)`
#> <chr> <chr> <chr> <chr>
#> 1 "Vol. 64 (2020) , N… "Vol. 64 (2020) , N… https://www.jsta… https://www.jsta…
#> 2 "Vol. 64 (2020) , N… "Vol. 64 (2020) , N… https://www.jsta… https://www.jsta…
#> 3 "Vol. 64 (2020) , N… "Vol. 64 (2020) , N… https://www.jsta… https://www.jsta…
#> 4 "Vol. 64 (2020) , N… "Vol. 64 (2020) , N… https://www.jsta… https://www.jsta…
#> 5 "Vol. 65 (2021) , N… "Vol. 65 (2021) , N… https://www.jsta… https://www.jsta…
#> 6 "Vol. 65 (2021) , N… "Vol. 65 (2021) , N… https://www.jsta… https://www.jsta…
#> 7 "Vol. 65 (2021) , N… "Vol. 65 (2021) , N… https://www.jsta… https://www.jsta…
#> 8 "Vol. 65 (2021) , N… "Vol. 65 (2021) , N… https://www.jsta… https://www.jsta…
#> 9 "Vol. 66 (2022) , N… "Vol. 66 (2022) , N… https://www.jsta… https://www.jsta…
#> 10 "Vol. 66 (2022) , N… "Vol. 66 (2022) , N… https://www.jsta… https://www.jsta…
#> 11 "Vol. 66 (2022) , N… "Vol. 66 (2022) , N… https://www.jsta… https://www.jsta…
#> 12 "Vol. 66 (2022) , N… "Vol. 66 (2022) , N… https://www.jsta… https://www.jsta…
#> 13 "Vol. 67 (2023) , N… "Vol. 67 (2023) , N… https://www.jsta… https://www.jsta…
#> 14 "Vol. 67 (2023) , N… "Vol. 67 (2023) , N… https://www.jsta… https://www.jsta…
#> 15 "Vol. 67 (2023) , N… "Vol. 67 (2023) , N… https://www.jsta… https://www.jsta…
#> 16 "Vol. 67 (2023) , N… "Vol. 67 (2023) , N… https://www.jsta… https://www.jsta…
#> 17 "Vol. 68 (2024) , N… "Vol. 68 (2024) , N… https://www.jsta… https://www.jsta…
#> 18 "Vol. 68 (2024) , N… "Vol. 68 (2024) , N… https://www.jsta… https://www.jsta…
#> # ℹ 21 more variables: `Print ISSN` <chr>, `Online ISSN` <chr>,
#> # `学協会名(英)` <chr>, `学協会名(日)` <chr>, `学協会URL(英)` <chr>,
#> # `学協会URL(日)` <chr>, 資料コード <chr>, `資料名(英)` <chr>,
#> # `資料名(日)` <chr>, 巻 <dbl>, 分冊 <dbl>, 号 <dbl>, 開始ページ <dbl>,
#> # 終了ページ <chr>, 発行年 <dbl>, システムコード <chr>, システム名 <chr>,
#> # サブフィード名 <chr>, サブフィードURL <chr>, サブフィードID <chr>,
#> # 最新公開日 <chr>| 引数 | 内容 |
|---|---|
pubyearfrom |
発行年の始まり（西暦4桁） |
pubyearto |
発行年の終わり（西暦4桁） |
material |
資料名（完全一致） |
issn |
ISSN（完全一致，XXXX-XXXX形式） |
cdjournal |
資料コード |
volorder |
結果の並び順（1:巻，分冊，号の昇順，2:降順） |
lang |
表頭を日本語にする（“ja”）か否か |
d2 <- get_jstage_articles(text = "象の卵")
d2
#> $metadata
#> # A tibble: 1 × 10
#> 処理結果ステータス 処理結果メッセージ フィード名 クエリのURL クエリのURI
#> <chr> <chr> <chr> <chr> <chr>
#> 1 0 "" Articles "" https://api.jsta…
#> # ℹ 5 more variables: サービスコード <chr>, 取得日時 <chr>, 検索結果総数 <dbl>,
#> # 開始件数 <dbl>, 件数 <dbl>
#>
#> $entry
#> # A tibble: 14 × 25
#> `論文タイトル(英)` `論文タイトル(日)` `書誌URL(英)` `書誌URL(日)`
#> <chr> <chr> <chr> <chr>
#> 1 "" 1. アトピー性皮膚… https://www.… https://www.…
#> 2 "" 2. in vivoでの食… https://www.… https://www.…
#> 3 "" 「生卵に乗る」 : … https://www.… https://www.…
#> 4 "Clarification of piezo-drive… ピエゾアクチュエ… https://www.… https://www.…
#> 5 "" 破壊の材料通有性… https://www.… https://www.…
#> 6 "Diagnostic significance of 2… 卵白凍結乾燥粉末… https://www.… https://www.…
#> 7 "SAFETY OF INFLUENZA VACCINAT… 当施設でインフル… https://www.… https://www.…
#> 8 "Comparative Studies on the F… 3種の食〓性テント… https://www.… https://www.…
#> 9 "Small pools on the sides of … 林道脇の水たまり… https://www.… https://www.…
#> 10 "STUDIS ON THE METHOD OF JUDG… 蛔虫駆除の臨床的… https://www.… https://www.…
#> 11 "Experimental Studies on the … 性steroidsの向性… https://www.… https://www.…
#> 12 "Analysis of 100 Women with I… 随証漢方療法で生… https://www.… https://www.…
#> 13 "" 生活・健康 https://www.… https://www.…
#> 14 "" 第33回日本輪床細… https://www.… https://www.…
#> # ℹ 21 more variables: `著者名(英)` <chr>, `著者名(日)` <chr>,
#> # 資料コード <chr>, `資料名(英)` <chr>, `資料名(日)` <chr>,
#> # `Print ISSN` <chr>, `Online ISSN` <chr>, 巻 <chr>, 分冊 <dbl>, 号 <chr>,
#> # 開始ページ <dbl>, 終了ページ <chr>, 発行年 <dbl>, JOI <chr>, DOI <chr>,
#> # システムコード <chr>, システム名 <chr>, サブフィード名 <chr>,
#> # サブフィードURL <chr>, サブフィードID <chr>, 最新公開日 <chr>| 引数 | 内容 |
|---|---|
pubyearfrom |
発行年の始まり（西暦4桁） |
pubyearto |
発行年の終わり（西暦4桁） |
material |
資料名（部分一致） |
article |
論文タイトル（部分一致） |
author |
著者名（部分一致，姓と名の間にスペースを入れる） |
affil |
著者所属機関（部分一致） |
keyword |
キーワード（部分一致） |
abst |
抄録（部分一致） |
text |
全文（部分一致） |
issn |
ISSN（完全一致，XXXX-XXXX形式） |
cdjournal |
資料コード |
sortflg |
結果の並び順（1:スコア順，2:巻，分冊，号，開始ページの降順），materialかissnの指定が必要 |
vol |
巻（完全一致） |
no |
号（完全一致） |
start |
検索結果の中から取得を開始する件数 |
count |
取得件数の上限（デフォルトは1000） |
sep |
複数の著者名の間の区切り文字（デフォルトは改行） |
lang |
表頭を日本語にする（“ja”）か否か |
一度に取得できるデータは最大1,000件です。
1,000件を超えるデータを取得する場合は，しばらく時間をおいてから，次のように引数
start を指定して続きを取得してください。
d3 <- get_jstage_articles(article = "iPS", start = 1001)write_jstage_to_excel(d2, "results.xlsx")d4 <- jstage_metadata(d2$entry$DOI[8], pdf_path = ".", bibtex_path = ".")Zotero ユーザーは，J-STAGE の情報を Zotero Connector 経由で登録する際に，著者名の姓と名が逆になるという問題を経験したことがあるはずです。 この問題は BibTeX を経由することで回避できます。
d5 <- jstage_references("10.1241/johokanri.49.63", depth = 3)
d5
#> # A tibble: 105 × 4
#> citing_doi cited_doi article_link depth
#> <chr> <chr> <chr> <dbl>
#> 1 10.1241/johokanri.49.63 10.1241/johokanri.42.682 http://www.jstage.js… 1
#> 2 10.1241/johokanri.49.63 10.1241/johokanri.46.536 http://www.jstage.js… 1
#> 3 10.1241/johokanri.49.63 10.1241/johokanri.48.149 http://www.jstage.js… 1
#> 4 10.1241/johokanri.49.63 10.1241/johokanri.49.69 http://www.jstage.js… 1
#> 5 10.1241/johokanri.49.63 10.18919/jkg.56.4_188 https://www.jstage.j… 1
#> 6 10.1241/johokanri.42.682 10.1241/johokanri.41.343 http://www.jstage.js… 2
#> 7 10.1241/johokanri.42.682 10.11291/jpla1956.44.137 http://www.jstage.js… 2
#> 8 10.1241/johokanri.42.682 10.18919/jkg.49.6_295 https://www.jstage.j… 2
#> 9 10.1241/johokanri.42.682 10.11291/jpla1956.44.266 http://www.jstage.js… 2
#> 10 10.1241/johokanri.42.682 10.1241/johokanri.41.445 http://www.jstage.js… 2
#> # ℹ 95 more rowsリスト取得後に次のコードを実行すると可視化できます。
library(dplyr)
library(visNetwork)
library(htmlwidgets)
edges <- d5 |>
mutate(cited_doi = ifelse(is.na(cited_doi),
paste0("non-DOI ", row_number()),
cited_doi)) |>
select(from = cited_doi, to = citing_doi)
nodes <- data.frame(id = unique(c(edges$from, edges$to))) |>
left_join(
d5 |>
select(cited_doi, article_link) |>
na.omit() |>
distinct(),
by = c("id" = "cited_doi")
) |>
mutate(
group = ifelse(!is.na(article_link), "J-Stage", "Outside J-Stage"),
title = paste0("https://doi.org/", id)
)
nodes$group[nodes$id == d5$citing_doi[1]] <- "J-Stage"
v <- visNetwork(nodes, edges, width = "100%") |>
visNodes(shape = "box", shadow = TRUE) |>
visEdges(arrows = 'to', shadow = TRUE) |>
visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE) |>
visLegend() |>
visEvents(selectNode = "function(nodes) {
var nodeId = nodes.nodes[0];
var url = this.body.data.nodes.get(nodeId).title;
if (url !== 'NA') {
window.open(url, '_blank');
}
}") |>
visLayout(randomSeed = 100)Powered by J-STAGE
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.