Wolfram Research

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.

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["f3c24818-7f88-4b31-bf54-9dc638730583"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["f3c24818-7f88-4b31-bf54-9dc638730583"]
Out[2]=

Visualization:

See sweater colors by year:

In[3]:=
Grid[With[{data = Row[Sort[#]] & /@ Normal[GroupBy[
        ResourceData[
         "f3c24818-7f88-4b31-bf54-9dc638730583"], #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["f3c24818-7f88-4b31-bf54-9dc638730583"], 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[
      "f3c24818-7f88-4b31-bf54-9dc638730583"], #Date["DayName"] &][
    All, All, "SweaterColor"])
Out[5]=
In[6]:=
PieChart[#, ChartStyle -> Normal[Keys[#]]] & /@ (Counts /@ GroupBy[ResourceData[
      "f3c24818-7f88-4b31-bf54-9dc638730583"], #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

Data Resource History

Source Metadata

Publisher Information