3

NIH で助成金がどのように審査されるかに興味があります。助成金審査プロセスの仕組みは、議会がさまざまな機関 (国立がん研究所、または NCI など) に資金を割り当て、個々の助成金がこれらの機関に提出されるというものです。これらの機関は、さまざまな資金提供の優先事項 (がん、感染症など) を中心に組織されています。

ただし、助成金が審査されると、通常は (必ずというわけではありませんが)、科学分野を中心に編成された個々の研究セクションに送られます。したがって、「腫瘍の進行」研究セクションは、研究者が白血病を研究するために NHLBI に助成金を提出した場合、国立がん研究所と国立心臓、肺、および血液研究所 (NHLBI) の両方からの助成金を検討することができます。

R には次のようなデータ フレームがあります。

grant_id <- 1:100
funding_agency <- sample(rep(c("NIAID", "NIGMS", "NHLBI", "NCI", "NINDS"), 20))
study_section <- sample(rep(c("Tumor Cell Biology", "Tumor Progression", 
                              "Vector Biology", "Molecular Genetics", 
                              "Medical Imaging", "Macromolecular Structure",
                              "Infectious Diseases", "Drug Discovery", 
                              "Cognitive Neuroscience", "Aging and Geriatrics"), 
                            10)
                        )
total_cost <- rnorm(100, mean = 30000, sd = 10000)
d <- data.frame(grant_id, funding_agency, study_section, total_cost)

some(d)

   grant_id funding_agency          study_section total_cost
15       15          NINDS         Vector Biology   25242.19
19       19            NCI    Infectious Diseases   29075.21
50       50            NCI         Drug Discovery   25176.35
62       62            NCI      Tumor Progression   14264.34
64       64          NIAID     Tumor Cell Biology   30024.13

できれば R を使用して、これらのデータの 2 つの視覚化を作成したいと思います。1 つは個々の研究機関に提出された助成金がどのように研究部門に割り当てられているかを示し、もう 1 つは研究部門が研究部門に割り当てた助成金の金額を示しています。私が最終的に望むのは、次の Web サイトにあるようなグラフです。

移行の流れ

大学の専攻から仕事へのパイプライン

R パッケージを知っている人や、上記の Web サイトで見つけたようなチャートを作成するためのサンプル コードを持っている人はいますか? あるいは、同じ目標を達成するために考慮すべき別の視覚化はありますか?

4

2 に答える 2

9

で行う方法は次のとおりですrCharts。ここで最終的な SankeyPlot を表示できます

d <- data.frame(
  id = grant_id, 
  source = funding_agency, 
  target = study_section, 
  value = total_cost
)
# devtools::install_github("rCharts", "ramnathv", ref = "dev")
require(rCharts)
sankeyPlot <- rCharts$new()
sankeyPlot$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey')
sankeyPlot$set(
  data = d,
  nodeWidth = 15,
  nodePadding = 10,
  layout = 32,
  width = 750,
  height = 500,
  labelFormat = ".1%"
)
sankeyPlot

チャートを保存するには、次のことができます

sankeyPlot$save('mysankey.html')

サンキープロット

于 2013-11-01T17:50:55.647 に答える