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 default content:

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

Visualization:

See sweater colors by year:

In[2]:=
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[2]=

Visualize which days had the most blue sweaters:

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

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

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

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

Data Resource History

Source Metadata

Publisher Information