Гранты национального фонда науки
Национальный научный фонд США (NSF) выдал почти 12 000 грантов в 2015 году. В данном примере, информация о наградах, исследователях, а также их учреждениях проанализирована с использованием данных, полученных из www.nsf.gov/awardsearch/download.jsp. Пользователь может загрузить информационный объект, содержащий эти данные в качестве объекта-ресурса, ResourceObject, а затем изучить распределение размеров грантов, количественных и качественных свойств заявок и грантов, а также географического расселения учреждений, получивших грант.
Для начала загрузим информационный объект, ResourceObject, содержащий данные от NSF.
![Click for copyable input](assets.ru/national-science-foundation-grants/In_202.png)
nsfStore = ResourceData[
ResourceObject[
Association[
"Name" -> "National Science Foundation Grants - 2015",
"UUID" -> "0e9655df-86b6-4e20-bcc9-87365562357b",
"ResourceType" -> "DataResource", "Version" -> "1.0.0",
"Description" -> "Data on National Science Foundation grants (and \
associated investigators and institutions) awarded in the the year \
2015.", "ContentSize" -> Quantity[0, "Bytes"],
"ContentElements" -> {"EntityStore"}]]]
![](assets.ru/national-science-foundation-grants/O_141.png)
Зарегистрируем полученный информационный объект.
![Click for copyable input](assets.ru/national-science-foundation-grants/In_203.png)
PrependTo[$EntityStores, nsfStore];
Просмотрим доступныe свойствa грантов, используя объект "NSFGrant".
![Click for copyable input](assets.ru/national-science-foundation-grants/In_204.png)
EntityValue["NSFGrant", "Properties"]
![](assets.ru/national-science-foundation-grants/O_142.png)
Рассмотрим данные о случайно выбранном гранте.
![](assets.ru/national-science-foundation-grants/O_143.png)
Отобразим на графике распределение размеров грантов.
![Click for copyable input](assets.ru/national-science-foundation-grants/In_206.png)
awardAmounts = EntityValue["NSFGrant", "AwardAmount"];
![Click for copyable input](assets.ru/national-science-foundation-grants/In_207.png)
Histogram[awardAmounts, ScalingFunctions -> {Identity, "Log"},
PlotRange -> All, AxesLabel -> Automatic]
![](assets.ru/national-science-foundation-grants/O_144.png)
Запросим детали о трех самых крупных грантах.
![Click for copyable input](assets.ru/national-science-foundation-grants/In_208.png)
EntityValue[
EntityClass["NSFGrant", "AwardAmount" -> TakeLargest[3]], "Dataset"]
![](assets.ru/national-science-foundation-grants/O_145.png)
Рассмотрим общее количество грантов для каждой дирекции научного фонда.
![](assets.ru/national-science-foundation-grants/O_146.png)
Сравним распределение первых цифр суммы грантов в долларах с законом Бенфорда.
![](assets.ru/national-science-foundation-grants/O_147.png)
Создадим словесное облако наиболее часто используемых слов в грантах по математике, физике, и химии.
![Click for copyable input](assets.ru/national-science-foundation-grants/In_211.png)
keywords =
EntityValue[EntityClass["NSFGrant", "Division" -> #],
"KeywordTally"] & /@ {"Division Of Mathematical Sciences",
"Division Of Physics", "Division Of Chemistry"};
![Click for copyable input](assets.ru/national-science-foundation-grants/In_212.png)
Row[WordCloud[
Merge[Association @@ (Rule @@@ #) & /@ DeleteMissing[#],
Total]] & /@ keywords]
![](assets.ru/national-science-foundation-grants/O_148.png)
Визуализируем количество грантов NSF по размеру и почтовому индексу.
![](assets.ru/national-science-foundation-grants/O_149.png)