Mister Rogers' Sweater Colors

Colors of sweaters worn by Fred Rogers on episodes of Mister Rogers' Neighborhood

A dataset providing episode numbers, air dates, and approximate RGB colors representing the sweaters worn by Fred Rogers on episodes of "Mister Rogers' Neighborhood" from 1979-2001.

(3 columns, 302 rows)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Mister Rogers' Sweater Colors"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Mister Rogers' Sweater Colors"]
Out[2]=

Visualization:

See sweater colors by year:

In[3]:=
Grid[With[{data = 
    Row[Sort[#]] & /@ 
     Normal[GroupBy[
        ResourceData[
         "Mister Rogers' Sweater Colors"], #Date["Year"] &][[All, All,
        "SweaterColor"]]]}, Transpose[{Keys[data], Values[data]}]], 
 Alignment -> {Left, Center}]
Out[3]=

Visualize which days had the most blue sweaters:

In[4]:=
DateHistogram[
 Select[ResourceData["Mister Rogers' Sweater Colors"], 
   ColorDistance[#SweaterColor, Blue] < .5 &][All, "Date"], "Day", 
 DateReduction -> "Week"]
Out[4]=

See which colors were most common each day of the week and in each month:

In[5]:=
PieChart[#, ChartStyle -> Normal[Keys[#]]] & /@ (Counts /@ 
   GroupBy[ResourceData[
      "Mister Rogers' Sweater Colors"], #Date["DayName"] &][All, All, 
    "SweaterColor"])
Out[5]=
In[6]:=
PieChart[#, ChartStyle -> Normal[Keys[#]]] & /@ (Counts /@ 
   GroupBy[ResourceData[
      "Mister Rogers' Sweater Colors"], #Date["MonthName"] &][All, 
    All, "SweaterColor"])
Out[6]=

Wolfram Research, "Mister Rogers' Sweater Colors" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.33287.data

Source Metadata