Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

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

  • Date Created:

Source Metadata

  • Title: The Neighborhood Archive Blog
  • Source: https://web.archive.org/web/20110525014454/http%3A///neighborhoodarchive.blogspot.com/2011/05/sweater-colors.html
  • Citation: The Neighborhood Archive Blog, “Sweater Colors”

Publisher Information

  • Publisher of Record: Wolfram Research