Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Shakespeare and Company EntityStores

Source Notebook

The collection, members and circulation records of the Shakespeare and Company lending library

Details

This is a collection of three EntityStores: "ShakespeareAndCompanyMember," "ShakespeareAndCompanyItem" and "ShakespeareAndCompanyEvent"
"ShakespeareAndCompanyMember"The people and organizations that were members of the library
"ShakespeareAndCompanyItem"The Shakespeare and Company collection
"ShakespeareAndCompanyEvent"Transactions in the library: items circulated, purchased and sold

(3 elements)

Examples

Basic Examples (2) 

Retrieve the data:

In[1]:=
ResourceData[\!\(\* TagBox["\"\<Shakespeare and Company EntityStores\>\"", #& , BoxID -> "ResourceTag-Shakespeare and Company EntityStores-Input", AutoDelete->True]\)]
Out[1]=

Register the EntityStores:

In[2]:=
EntityRegister /@ ResourceData[\!\(\* TagBox["\"\<Shakespeare and Company EntityStores\>\"", #& , BoxID -> "ResourceTag-Shakespeare and Company EntityStores-Input", AutoDelete->True]\)]
Out[2]=

Scope & Additional Elements (5) 

Member properties:

In[3]:=
EntityProperties["ShakespeareAndCompanyMember"]
Out[3]=

Item properties:

In[4]:=
EntityProperties["ShakespeareAndCompanyItem"]
Out[4]=

Event properties:

In[5]:=
EntityProperties["ShakespeareAndCompanyEvent"]
Out[5]=

Get information on Simone de Beauvoir:

In[6]:=
Entity["ShakespeareAndCompanyMember", "beauvoir-simone-de"]["Association"]
Out[6]=
In[7]:=
WikidataData[ Entity["ShakespeareAndCompanyMember", "beauvoir-simone-de"][ EntityProperty["ShakespeareAndCompanyMember", "WikidataID"]], "NonIdentifierProperties", "Dataset"]
Out[7]=

All who have purchased items from the library, sorted by number of transactions:

In[8]:=
Dataset[ReverseSort[ Counts[Flatten[ EntityValue[ EntityList[ EntityClass[ "ShakespeareAndCompanyEvent", {EntityProperty[ "ShakespeareAndCompanyEvent", "EventType"] -> "Purchase" }]], EntityProperty["ShakespeareAndCompanyEvent", "Members"]]]]]]
Out[8]=

Visualizations (5) 

A TimelinePlot of James Joyce's purchases prior to 1934:

In[9]:=
TimelinePlot[ Labeled @@@ EntityValue[ EntityList[ EntityClass[ "ShakespeareAndCompanyEvent", {EntityProperty[ "ShakespeareAndCompanyEvent", "Members"] -> ContainsAny[{Entity["ShakespeareAndCompanyMember", "joyce-james"]}], EntityProperty["ShakespeareAndCompanyEvent", "EventType"] -> "Purchase", EntityProperty["ShakespeareAndCompanyEvent", "StartDate"] -> LessThan[DateObject[{1934, 1, 1}]]}]], {EntityProperty["ShakespeareAndCompanyEvent", "StartDate"], EntityProperty["ShakespeareAndCompanyEvent", "Item"]}] ]
Out[9]=

Choropleth map of nationalities of library members:

In[10]:=
GeoRegionValuePlot[ Counts@DeleteMissing@ Flatten@EntityValue[EntityList["ShakespeareAndCompanyMember"], EntityProperty["ShakespeareAndCompanyMember", "Nationalities"]]]
Out[10]=

A GeoHistogram of members' locations, focused on Paris:

In[11]:=
GeoHistogram[ Flatten@DeleteMissing@ EntityValue[EntityList["ShakespeareAndCompanyMember"], EntityProperty["ShakespeareAndCompanyMember", "Coordinates"]], GeoRange -> Entity["City", {"Paris", "IleDeFrance", "France"}]]
Out[11]=

A DateHistogram of membership years:

In[12]:=
DateHistogram[ Flatten@DeleteMissing@ EntityValue[EntityList["ShakespeareAndCompanyMember"], EntityProperty["ShakespeareAndCompanyMember", "MembershipYears"]]]
Out[12]=

A WordCloud of authors read by members of Shakespeare and Company:

In[13]:=
WordCloud[ EntityValue[ EntityValue[EntityList["ShakespeareAndCompanyEvent"], EntityProperty["ShakespeareAndCompanyEvent", "Item"]], EntityProperty["ShakespeareAndCompanyItem", "Author"]]]
Out[13]=

Analysis (3) 

How circulation figures compare with collection and membership sizes as a function of time:

In[14]:=
DateHistogram[{ DateObject[{#["Year"]}, "Year"] & /@ DeleteMissing[ Flatten[EntityValue[ EntityList[ EntityClass[ "ShakespeareAndCompanyEvent", {EntityProperty[ "ShakespeareAndCompanyEvent", "EventType"] -> "Borrow"}]], EntityProperty["ShakespeareAndCompanyEvent", "StartDate"]]]], DeleteMissing[ Flatten[EntityValue[EntityList["ShakespeareAndCompanyItem"], EntityProperty["ShakespeareAndCompanyItem", "CirculationYears"]]]], DeleteMissing[ Flatten[EntityValue[EntityList["ShakespeareAndCompanyMember"], EntityProperty["ShakespeareAndCompanyMember", "MembershipYears"]]]] }, ChartLegends -> {"loan events", "items in circulation", "membership"}]
Out[14]=

The Pareto principle holds for the library's circulation numbers with respect to members:

In[15]:=
With[{memberevents = Values[ReverseSort[ Counts[EntityValue[ EntityList[ EntityClass[ "ShakespeareAndCompanyEvent", {EntityProperty[ "ShakespeareAndCompanyEvent", "EventType"] -> "Borrow"}]], EntityProperty["ShakespeareAndCompanyEvent", "Members"]]]]]}, ListPlot[Accumulate[memberevents]/Total[memberevents], PlotRange -> All, GridLines -> {{0.2} Length[memberevents], {0.8}}, Frame -> True, Joined -> True]]
Out[15]=

Not so much for the items in the collection:

In[16]:=
With[{itemevents = ReverseSort@ EntityValue[EntityList["ShakespeareAndCompanyItem"], EntityProperty["ShakespeareAndCompanyItem", "BorrowCount"]]}, ListPlot[Accumulate[itemevents]/Total[itemevents], PlotRange -> All, GridLines -> {{0.2} Length[itemevents], {0.8}}, Frame -> True, Joined -> True]]
Out[16]=

Wolfram Research, "Shakespeare and Company EntityStores" from the Wolfram Data Repository (2021)  

License Information

Creative Commons Attribution 4.0

Data Resource History

  • Date Created:

Source Metadata

  • Title: Shakespeare and Company Project Dataset: Lending Library Members, Books, Events
  • Creator: Kotin, Joshua, Rebecca Sutton Koeser, Carl Adair, Serena Alagappan, Jean Bauer, Oliver J. Browne, Nick Budak, Harriet Calver, Jin Chow, Ian Davis, Gissoo Doroudian, Currie Engel, Elspeth Green, Benjamin Hicks, Madeleine E. Joelson, Carolyn Kelly, Sara Krolewski, Xinyi Li, Ellie Maag, Cate Mahoney, Jesse D. McCarthy, Mary Naydan, Isabel Ruehl, Sylvie Thode, Camey VanSant, and Clifford E. Wulfman.
  • Publisher: DataSpace, Princeton University
  • Date: January 2021
  • Language: English
  • Citation:
    • Kotin, Joshua, Rebecca Sutton Koeser, Carl Adair, Serena Alagappan, Paige Allen, Jean Bauer, Oliver J. Browne, Nick Budak, Harriet Calver, Jin Chow, Ian Davis, Gissoo Doroudian, Currie Engel, Violet Gautreau, Alex Gjaja, Elspeth A. Green, Isaac Hart, Benjamin Hicks, Madeleine E. Joelson, Carolyn Kelly, Sara Krolewski, Xinyi Li, Ellie Maag, Elizabeth Macksey, Cate Mahoney, Francesca Mancino, Jesse D. McCarthy, Mary Naydan, Sally Root, Isabel Ruehl, Sylvie Thode, Katherine Vandermel, Camey VanSant, and Clifford E. Wulfman. Shakespeare and Company Project Dataset: Lending Library Members, Books, Events. Version 1.1. January 2021. Distributed by DataSpace, Princeton University. https://doi.org/10.34770/39sq-bm51

Publisher Information

  • Prepared for the Wolfram Data Repository By: Aaron J. Enright
  • Publisher of Record: Wolfram Research