National Science Foundation Grants
The US National Science Foundation (NSF) awarded nearly 12,000 grants in 2015. Here, awards, investigators, and their affiliated institutions are analyzed using data available from www.nsf.gov/awardsearch/download.jsp. In particular, you can load an entity store containing this data as a ResourceObject, then explore the distribution of grant sizes, quantitative and qualitative properties of the proposals and grants, and geographic dispersal of associated institutions.
To begin, load an entity store containing the NSF data from a ResourceObject.
![Click for copyable input](assets.en/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.en/national-science-foundation-grants/O_141.png)
Register the store for this session.
![Click for copyable input](assets.en/national-science-foundation-grants/In_203.png)
PrependTo[$EntityStores, nsfStore];
View available grant properties using the "NSFGrant" entity type from the store.
![Click for copyable input](assets.en/national-science-foundation-grants/In_204.png)
EntityValue["NSFGrant", "Properties"]
![](assets.en/national-science-foundation-grants/O_142.png)
Return data on a randomly selected grant.
![](assets.en/national-science-foundation-grants/O_143.png)
Plot the distribution of grant sizes.
![Click for copyable input](assets.en/national-science-foundation-grants/In_206.png)
awardAmounts = EntityValue["NSFGrant", "AwardAmount"];
![Click for copyable input](assets.en/national-science-foundation-grants/In_207.png)
Histogram[awardAmounts, ScalingFunctions -> {Identity, "Log"},
PlotRange -> All, AxesLabel -> Automatic]
![](assets.en/national-science-foundation-grants/O_144.png)
Show details for the three largest grants.
![Click for copyable input](assets.en/national-science-foundation-grants/In_208.png)
EntityValue[
EntityClass["NSFGrant", "AwardAmount" -> TakeLargest[3]], "Dataset"]
![](assets.en/national-science-foundation-grants/O_145.png)
Examine total grant awards for each NSF directorate.
![](assets.en/national-science-foundation-grants/O_146.png)
Compare the distribution of the first digits of the award dollar amounts with Benford's law.
![](assets.en/national-science-foundation-grants/O_147.png)
Make a word cloud of the most-used words in mathematics, physics, and chemistry grants.
![Click for copyable input](assets.en/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.en/national-science-foundation-grants/In_212.png)
Row[WordCloud[
Merge[Association @@ (Rule @@@ #) & /@ DeleteMissing[#],
Total]] & /@ keywords]
![](assets.en/national-science-foundation-grants/O_148.png)
Visualize NSF grants by amount and ZIP code.
![](assets.en/national-science-foundation-grants/O_149.png)