What Is the Wolfram Data Drop?

A service for accumulating, standardizing, storing and retrieving your data

For devices, sensors, programs, humans and more

Part of the Wolfram Cloud

Part of the Wolfram Language

Databins

Data is stored in databins.

Have unique IDs

Owned by users

Set permissions

Define semantics for interpretation

Ways to Use Data Drop

Whether it is coming from machines, humans or programs, there are many easy ways to get data into
the Wolfram Data Drop.

Accessing Data

DateListPlot[Databin["5CyjGE28"]]

Mathematica, Wolfram Programming Cloud, Wolfram Data Science Platform, …

Wolfram|Alpha

Data Drop Website

Go to the Wolfram Data Drop website: https://datadrop.wolframcloud.com

Create a new databin by clicking the Create a New Databin button.

Provide a name for the databin.

Set permissions for the databin.

Add data to the bin by clicking the Add new entry button.

Learn more about Data Drop from the Quick Reference: https://www.wolfram.com/datadrop/quick-reference/home

Data Drop in the Wolfram Language

Access the new databin:

mybin=Databin[] (*Use the Databin ID of the data bin you just created*)

myBin["Entries"]

Add new data from the Wolfram Language:

DatabinAdd[myBin,"another entry"]

Aggregating Automatically

Every time you press a number key, add it to this databin:

digitsBin=Databin["5CyjGE28"]

Evaluate the following cell while creating this slide show notebook:

SetOptions[EvaluationNotebook[],NotebookEventActions->{
{"KeyDown","1"}:>DatabinAdd[digitsBin,"digit"->1],
{"KeyDown","2"}:>DatabinAdd[digitsBin,"digit"->2],
{"KeyDown","3"}:>DatabinAdd[digitsBin,"digit"->3],
{"KeyDown","4"}:>DatabinAdd[digitsBin,"digit"->4],
{"KeyDown","5"}:>DatabinAdd[digitsBin,"digit"->5],
{"KeyDown","6"}:>DatabinAdd[digitsBin,"digit"->6],
{"KeyDown","7"}:>DatabinAdd[digitsBin,"digit"->7],
{"KeyDown","8"}:>DatabinAdd[digitsBin,"digit"->8],
{"KeyDown","9"}:>DatabinAdd[digitsBin,"digit"->9],
{"KeyDown","0"}:>DatabinAdd[digitsBin,"digit"->0],
PassEventsDown->True,PassEventsUp->True}];

See the Settings of This Bin

Column@Options[digitsBin]

Visualize the Data

Values[digitsBin]

Histogram[digitsBin,{1}]

DateListPlot[digitsBin,Joined->False,Filling->Axis]["digit"]

digitsBin["WebForm"]

Note: The "WebForm" will not work for you because you do not have permissions to add data to the databin 5CyjGE28, but it will work for a databin that you have created and have appropriate permissions to write to.

Creating a Databin with Interpretation

fields={"Age"->Restricted["StructuredQuantity","Years"],"Country"->"Country","Favorite Animal"->"Animal","Years using Wolfram Products"->"Number"};

surveyBin=CreateDatabin[<|"Name"->"Data Drop Intro Survey Bin","Interpretation"->fields|>]

Options[surveyBin]

You can use the following example bin for the rest of this notebook:

surveyBin = Databin["ZTzCLTbn"];

surveyBin["WebForm"]

Analyze Survey Data

values=Values[surveyBin]

countries=DeleteDuplicates[values["Country"]]

GeoListPlot[countries]

Add paths from Wolfram headquarters to the capitals of each country:

capitalLocations=EntityValue[countries,"CapitalCity"]

wolfram=(Entity["Champaign", Entity["City",{"Champaign","Illinois","UnitedStates"}], "Entity[\"City\", {\"Champaign\", \"Illinois\", \"UnitedStates\"}]", "city"]);

paths=GeoPath[{wolfram,#}]&/@capitalLocations;

GeoListPlot[{countries,capitalLocations,paths},GeoLabels->None,PlotLegends->None,ImageSize->800]

Show the favorite animal of a responder on the responder’s home country:

entries=surveyBin["Entries"]

noDuplicates=DeleteDuplicates[entries,(#1[["Country"]]==#2[["Country"]])&]

GeoGraphics[{GeoStyling[{"Image",#["Favorite Animal"]["Image"]}],Polygon[#["Country"]]}&/@noDuplicates]

Dataset

Create a dataset from the entries in the databin:

dataset=Dataset[surveyBin]

Get only entries from users older than Wolfram Research:

dataset[Select[(#Age>DateDifference[(Entity["Wolfram Research", Entity["Company","WolframResearch::ygv45"], "Entity[\"Company\", \"WolframResearch::ygv45\"]", "company"])["FoundingDate"],Now])&]]

Get the scientific name for those users’ favorite animals:

dataset[Select[(#Age>DateDifference[(Entity["Wolfram Research", Entity["Company","WolframResearch::ygv45"], "Entity[\"Company\", \"WolframResearch::ygv45\"]", "company"])["FoundingDate"],Now])&],{#["Favorite Animal"]["ScientificName"]&}]