(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 408096, 8627] NotebookOptionsPosition[ 403688, 8541] NotebookOutlinePosition[ 404492, 8569] CellTagsIndexPosition[ 404404, 8564] WindowTitle->Examples for State of the Union Addresses WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "DataResourceWhiteSection", CellFrameMargins->0, CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Retrieve the resource:", "Text", CellGroupingRules->"NormalGrouping", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, 3.696187841532233*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"State of the Union Addresses\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/State-of-the-Union-Addresses"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Complete text of State of the Union addresses from 1790 \ to 2018\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"State of the Union Addresses\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/State-of-the-Union-Addresses"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Complete text of State of the Union addresses from 1790 \ to 2018\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Categories: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Government\"", "\"Politics\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"ContentTypes: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"politics\"", "\"speeches\"", "\"president\"", "\"united states\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Documentation: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://resources.wolframcloud.com/DataRepository/\ resources/State-of-the-Union-Addresses\"", "https://resources.wolframcloud.com/DataRepository/\ resources/State-of-the-Union-Addresses"}, "HyperlinkURL"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Data Location: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "ad08960b-f43e-4e8f-92bf-04fd17234703"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues :> {}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"ad08960b-f43e-4e8f-92bf-04fd17234703\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"1.3.0\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "86.119176`", "\"MB\"", "megabytes", "\"Megabytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Dataset\"", "\"RawData\"", "\"RawData\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", DisplayFunction->( ButtonBox[#, Active -> False, Alignment -> Left, Appearance -> { "Default" -> FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, FrameMargins -> 7, BaseStyle -> {}, DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> Baseline]& )], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "State of the Union Addresses", "UUID" -> "ad08960b-f43e-4e8f-92bf-04fd17234703", "ResourceType" -> "DataResource", "Version" -> "1.3.0", "Description" -> "Complete text of State of the Union addresses from 1790 to 2018", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "ContentSize" -> Quantity[86.119176, "Megabytes"], "ContentElements" -> {"Dataset", "RawData", "RawData"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.726417453032137*^9, 3.726417599256958*^9}] }, Open ]], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, 3.726417527625252*^9}], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 10, "Length" -> 232, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{ "President", "Date", "Year", "Text", "Words", "WordCounts", "Party", "BirthDate", "Age"}, { TypeSystem`Atom[ Entity["Person"]], TypeSystem`Atom[DateObject], TypeSystem`Atom[Integer], TypeSystem`Atom[String], TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Atom[Integer], TypeSystem`AnyLength], TypeSystem`Atom[ TypeSystem`Enumeration[ "Democratic", "Democratic-Republican", "Federalist", "Republican", "Whig"]], TypeSystem`Atom[DateObject], TypeSystem`Atom[ Quantity[1, "Years"]]}], 232], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "President"} -> 1, {All, "Date"} -> 1, {All, "Year"} -> 1, {All, "Text"} -> 1, {All, "Words"} -> 1, {All, "WordCounts"} -> 2, {All, "Party"} -> 1, {All, "BirthDate"} -> 1, {All, "Age"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "President" -> TypeSystem`PackageScope`AtomShape[90], "Date" -> TypeSystem`PackageScope`AtomShape[75], "Year" -> TypeSystem`PackageScope`AtomShape[34], "Text" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`], "Words" -> TypeSystem`PackageScope`AtomShape[34], "WordCounts" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[124.80000000000001`], TypeSystem`PackageScope`AtomShape[34]]], 2, { All, "WordCounts"}], "Party" -> TypeSystem`PackageScope`AtomShape[189.], "BirthDate" -> TypeSystem`PackageScope`AtomShape[75], "Age" -> TypeSystem`PackageScope`AtomShape[75]]]], 10, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1262713123], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{ "President", "Date", "Year", "Text", "Words", "WordCounts", "Party", "BirthDate", "Age"}, { TypeSystem`Atom[ Entity["Person"]], TypeSystem`Atom[DateObject], TypeSystem`Atom[Integer], TypeSystem`Atom[String], TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Atom[Integer], TypeSystem`AnyLength], TypeSystem`Atom[ TypeSystem`Enumeration[ "Democratic", "Democratic-Republican", "Federalist", "Republican", "Whig"]], TypeSystem`Atom[DateObject], TypeSystem`Atom[ Quantity[1, "Years"]]}], 232], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1262713123]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"President\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"President\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "President"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "President"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Date\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Date\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Date"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Date"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Year\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Year\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Year"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Year"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Text\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Text\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Text"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Text"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Words\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Words\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Words"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Words"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"WordCounts\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"WordCounts\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "WordCounts"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "WordCounts"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Center, Baseline}], SpanFromLeft, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Party\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Party\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Party"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Party"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"BirthDate\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"BirthDate\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "BirthDate"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "BirthDate"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Age\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Age\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{All, "Age"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[All, "Age"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"8 Jan 1790\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1790"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1123"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{1, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[1, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["92"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"57.917808219178085`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{1, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[1, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["69"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["455 total \:203a ", ""], Style[ Superscript["455 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{1, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[1, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"8 Dec 1790\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1790"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1437"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{2, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[2, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["107"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"58.83287671232877`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{2, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[2, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["89"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["590 total \:203a ", ""], Style[ Superscript["590 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{2, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[2, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"25 Oct 1791\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1791"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2373"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{3, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[3, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["226"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"59.71232876712329`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{3, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[3, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["159"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["810 total \:203a ", ""], Style[ Superscript["810 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{3, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[3, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"6 Nov 1792\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1792"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2163"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{4, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[4, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["186"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"60.74794520547945`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{4, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[4, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["139"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["766 total \:203a ", ""], Style[ Superscript["766 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{4, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[4, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"3 Dec 1793\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1793"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2014"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{5, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[5, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["169"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"61.821917808219176`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{5, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[5, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["132"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["797 total \:203a ", ""], Style[ Superscript["797 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{5, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[5, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"19 Nov 1794\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1794"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2975"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{6, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[6, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["264"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"62.78356164383562`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{6, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[6, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["187"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["1133 total \:203a ", ""], Style[ Superscript["1133 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{6, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[6, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"8 Dec 1795\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1795"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2036"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{7, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[7, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["161"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"63.83561643835616`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{7, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[7, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["130"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["816 total \:203a ", ""], Style[ Superscript["816 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{7, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[7, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"George Washington\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"7 Dec 1796\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1796"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Fellow-Citizens of the Senate and House of Representatives: \ \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2939"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{8, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[8, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["241"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"11 Feb 1732\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"64.83561643835617`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{8, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[8, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["193"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["1000 total \:203a ", ""], Style[ Superscript["1000 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{8, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[8, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"John Adams\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"22 Nov 1797\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1797"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Gentlemen of the Senate and Gentlemen of the House of \ Representatives: \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2104"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{9, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[9, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["167"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Federalist", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"30 Oct 1735\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"62.07671232876712`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{9, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[9, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["729 total \:203a ", ""], Style[ Superscript["729 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{9, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[9, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Pane[ Annotation[ RawBoxes[ StyleBox[ "\"John Adams\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"8 Dec 1798\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Date"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1798"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Gentlemen of the Senate and Gentlemen of the House of \ Representatives: \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Text"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2270"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["the", Style[ "the", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{10, Key["WordCounts"], Key["the"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[10, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["207"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["WordCounts"], Key["the"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Federalist", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Party"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ "\"30 Oct 1735\"", FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["BirthDate"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"63.12054794520548`", "\"yr\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["Age"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["of", Style[ "of", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{10, Key["WordCounts"], Key["of"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1533674308][ GeneralUtilities`Slice[10, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{124.80000000000001`, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["151"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["WordCounts"], Key["of"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], SpanFromAbove, SpanFromAbove, SpanFromAbove}, { SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Superscript["829 total \:203a ", ""], Style[ Superscript["829 total \:203a ", ""], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][{10, Key["WordCounts"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ GeneralUtilities`Slice[10, Key["WordCounts"]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -1]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, \ -5]& , {All, "WordCounts"}]], MenuEvaluator -> Automatic]}}, Alignment -> {Left, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromAbove, SpanFromAbove, SpanFromAbove}, { Item[ Deploy[ Mouseover[ Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 232 (-10), {1, 232 - -10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 10, { 1, 232 - -10 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 10, " of ", Style[ 232, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 10, { 1, 232 - 10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 232 10, {1, 232 - 10 + 1}])}]}, " "], Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 232 (-10), {1, 232 - -10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 10, { 1, 232 - -10 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 10, " of ", Style[ 232, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 10, { 1, 232 - 10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 232 10, {1, 232 - 10 + 1}])}]}, " "]]], Background -> GrayLevel[0.98], Alignment -> {Left, Top}, BaseStyle -> {ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, 1, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 10 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, 10, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 30 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, 30, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 100 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show all", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308}, 100000000, {}]], MenuEvaluator -> Automatic]}}], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1533674308]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1533674308][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[ TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {1383., {421., 428.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.72641748517517*^9, 3.7264176262356043`*^9}], Cell[BoxData[ PanelBox[ StyleBox[ InterpretationBox["\<\"Updating from Wolfram Research server \ (\\!\\(\\*DynamicBox[ToBoxes[Refresh[Round[Function[Which[Or[Not[NumericQ[\ Slot[1]]], Less[Slot[1], 0]], 0, LessEqual[0, Slot[1], 1], Times[100, \ Slot[1]], True, \ 100]][Last[PacletManager`Package`getTaskData[AsynchronousTaskObject[\\\"http:/\ /pacletserver.wolfram.com/Paclets/QuantityUnits-1.5.3.paclet\\\", 1, \ 20792727932092894958]]]]], Rule[UpdateInterval, 0.5`]], StandardForm]]\\)%)\"\ \>", StringForm["Updating from Wolfram Research server (`1`%)", Dynamic[ Refresh[ Round[ (Which[ Or[ Not[ NumericQ[#]], # < 0], 0, 0 <= # <= 1, 100 #, True, 100]& )[ Last[ PacletManager`Package`getTaskData[ AsynchronousTaskObject[ "http://pacletserver.wolfram.com/Paclets/QuantityUnits-1.5.3.\ paclet", 1, 20792727932092894958]]]]], UpdateInterval -> 0.5]]], Editable->False], "Button", StripOnInput->False, LineColor->GrayLevel[0.5], FrontFaceColor->GrayLevel[0.5], BackFaceColor->GrayLevel[0.5], GraphicsColor->GrayLevel[0.5], FontColor->GrayLevel[0.5]], Alignment->{Center, Center}, Appearance->{ "Default" -> FrontEnd`FileName[{"Typeset", "PrintTemporary"}, "LightBlue.9.png"]}, FrameMargins->{{12, 12}, {8, 12}}]], "PrintTemporary", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.758480280509797*^9}, CellLabel->""] }, Open ]], Cell[BoxData[ PanelBox[ StyleBox[ InterpretationBox["\<\"Updating from Wolfram Research server \ (\\!\\(\\*DynamicBox[ToBoxes[Refresh[Round[Function[Which[Or[Not[NumericQ[\ Slot[1]]], Less[Slot[1], 0]], 0, LessEqual[0, Slot[1], 1], Times[100, \ Slot[1]], True, \ 100]][Last[PacletManager`Package`getTaskData[AsynchronousTaskObject[\\\"http:/\ /pacletserver.wolfram.com/Paclets/QuantityUnits-1.5.3.paclet\\\", 3, \ 20792646551379701192]]]]], Rule[UpdateInterval, 0.5`]], StandardForm]]\\)%)\"\ \>", StringForm["Updating from Wolfram Research server (`1`%)", Dynamic[ Refresh[ Round[ (Which[ Or[ Not[ NumericQ[#]], # < 0], 0, 0 <= # <= 1, 100 #, True, 100]& )[ Last[ PacletManager`Package`getTaskData[ AsynchronousTaskObject[ "http://pacletserver.wolfram.com/Paclets/QuantityUnits-1.5.3.\ paclet", 3, 20792646551379701192]]]]], UpdateInterval -> 0.5]]], Editable->False], "Button", StripOnInput->False, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5]], Alignment->{Center, Center}, Appearance->{ "Default" -> FrontEnd`FileName[{"Typeset", "PrintTemporary"}, "LightBlue.9.png"]}, FrameMargins->{{12, 12}, {8, 12}}]], "PrintTemporary", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7584800889990177`*^9}, CellLabel->""] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Find the longest speeches:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.758477870356962*^9, 3.758477873964382*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"SortBy", "[", RowBox[{"#Words", "&"}], "]"}], "]"}], "[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "//", "Reverse"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.758477882389174*^9, 3.758477882429461*^9}}, CellLabel->"In[1]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 20, "Length" -> 233, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"President", "Year", "Words"}, { TypeSystem`Atom[ Entity["Person"]], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer]}], 233], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "President"} -> 1, {All, "Year"} -> 1, {All, "Words"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "President" -> TypeSystem`PackageScope`AtomShape[90], "Year" -> TypeSystem`PackageScope`AtomShape[34], "Words" -> TypeSystem`PackageScope`AtomShape[34]]]], 20, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1070234338], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"President", "Year", "Words"}, { TypeSystem`Atom[ Entity["Person"]], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer]}], 233], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1070234338]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"President\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"President\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299][{ All, "President"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[All, "President"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Year\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Year\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299][{ All, "Year"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[All, "Year"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Words\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Words\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299][{ All, "Words"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[All, "Words"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Jimmy Carter\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[1, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1981"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[1, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["33670"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[1, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Harry S. Truman\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[2, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1946"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[2, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["27803"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[2, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[3, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1907"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[3, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["27418"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[3, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"William Howard Taft\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[4, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1912"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[4, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["25201"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[4, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[5, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1905"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[5, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["25074"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[5, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"William Howard Taft\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[6, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1911"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[6, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["23769"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[6, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[7, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1906"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[7, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["23619"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[7, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"James Knox Polk\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[8, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1848"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[8, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["21358"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[8, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"William McKinley\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[9, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1898"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[9, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["20291"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[9, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Grover Cleveland\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[10, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1885"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[10, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["19787"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[10, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[11, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1901"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[11, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["19618"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[11, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[12, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1908"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[12, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["19436"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[12, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"William McKinley\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[13, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1900"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[13, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["19205"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[13, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"James Knox Polk\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[14, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1846"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[14, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["18259"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[14, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Theodore Roosevelt\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[15, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1904"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[15, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["17421"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[15, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"James Knox Polk\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[16, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1847"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[16, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["16460"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[16, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"James Buchanan\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[17, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1858"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[17, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["16394"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[17, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Benjamin Harrison\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[18, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1891"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[18, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["16370"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[18, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"James Knox Polk\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[19, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1845"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[19, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["16140"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[19, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox["\"Grover Cleveland\"", FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[20, Key["President"]]], "Mouse"], ImageSize -> {{90, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1894"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[20, Key["Year"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["16017"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ GeneralUtilities`Slice[20, Key["Words"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Item[ Deploy[ Mouseover[ Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 233 (-20), {1, 233 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 233 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 233, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 233 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 233 20, {1, 233 - 20 + 1}])}]}, " "], Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 233 (-20), {1, 233 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 233 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 233, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 233 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 233 20, {1, 233 - 20 + 1}])}]}, " "]]], Background -> GrayLevel[0.98], Alignment -> {Left, Top}, BaseStyle -> {ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299}, 1, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 10 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299}, 10, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 30 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299}, 30, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 100 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299}, 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show all", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299}, 100000000, {}]], MenuEvaluator -> Automatic]}}], SpanFromLeft, SpanFromLeft}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 65932299]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[65932299][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {255., {291., 298.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7584778917677727`*^9}, CellLabel->"Out[1]="] }, Open ]], Cell["Show word counts over time:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7264175452761583`*^9, { 3.758477905213389*^9, 3.758477908556437*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.726417549885235*^9, 3.726417549888962*^9}, 3.7264175903672733`*^9}, CellLabel->"In[2]:="], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxN1ntUjHkYB/DRdpiDaMu2liS0EbaS26A6ya1Yt1g2l1hyWZe0jpNoMOhs nViSSyRhSohGRjJSmaZSjUpNiWp0M13ckrZNK9uu9/s8f6xzyOc8v8vze97n 974NW7fDa4ORSCR69eWv8PPLn5bYqleZ+F97uNuXfxeci2O/PS3Y6s4Otkgu 2HXzOLb/JcEZRa3N5OwYwS0dKey8eFixm933ouD9odPYmxGvruzBHoj1/L7O aiIvvYz56SHs4EjBMZMXsv0pv5h+bMfrgn0WlTSSnTG/uz6GbYBd23zYu7Cf VaIVe8BV5JNU30AORH72e26yM3D+BfZ+bLMryO+EPftSNPb3+2Ag28QKPjYl la3F/lbm+9k+yHe/1JkthRWOJuyjyK/7cPZLsvoa6h0Syl6RgHo0zGWvvC24 n9icPRRWbC2tJ29TIr+GKLbRDfjCSnZRCs4TMJR9HOMVe1/WkXvdR/7L48my IDXqtWILx29kIh8fe/bBDKy/rq2W93+A+RtT2HfTUB/3Pexz2aiHvwv7YCHO M7cHewjGR58PqyGXYH3LWDN2M/y5O6qa8vPSCtbfs2aPyBG86uG1FzR+Qp5g 6U5Htu8jxItUen7+sP6pG3sG1pNOzq0in8R59dMXkGVDUY9VnuWVZCks/by6 kvv1IeI/N1ZQfJIG89f4kUW/PxGcNrD9OawuKxHsbC0li8yLER9pTJZVlSHu cPQZxQvSUY8jA8iy2djf2TW6nNyZj3zmDSeLtmahXl4JT/n+Ih/pCid2BeLS kbfLyCrUw/Ibd3YIntfnwtxSWv8+1dtuEdsI+VqeKtWRnVBvvWQtWRTwGPPf NJVw/6I/9HP8ybJtVM+bfxVTvOse4nf2sZfCaf17sk2Qf6C95RNyN9ZTnRpT RA7NhVdPKqT1l+F8kow5BRQfj/6RFC5/THFLPF+JfpOW4m7of8mb3flkq1vw p5A8vv9Yr3PryVya3wP5SHTyR9yf2F9Sp8why1Mx/mxWNvk39Efn1dIs8ifk 05nyUkPrlaL+qlHvMyk+guYf61aToxMRn92frcT7rNXbJYPrcVOwf75PGnkv zue/clcq9ZtXKcZrT6sofgv3zz8yOYXvazLiPcuTKR8FzS9tV5L3oL9a3S1u k88i39qePylo/t/o79qGyATyB/RL7aYX8TR+LPqjNnZILNkD49WDo2PI2gK4 YlgkzV9TJFj2r81xit9FfWXvv5fReYpxHpEkZzqNv4LziH5JCpou/HTL1GF8 Qd1RWDYK4938Wk/DIgs8T7eo4xcoPhHzrSeEyWn+V7if1p2e8RSXPoe/65UA q02fwbL8RIo/qhQcri9MovW7sH94RqKS4qNxH8Iv/ZFM8Sz0W/ih7Sm03ySs F+47X0WOxn7hs39IpfFqvM9N11ukke/h/W86qyOd/C36yXRk+UNyGL4vocZV avIZheC8H7WZ5JV3EW9M1ZBP4XuQt+tWFnkqvn95Gy5mk5swXrz4RA55F74n Hudkj8gS9Gto3Y5cshvupzh3fR6d3xXvZ7FqST7Fx+L9Ir4+Q0vxCeg3cdT4 xxQ/j/siPjKigOInab7UvJDitTi/R29xEXk+5dP1kS1LwvjeXU/IG/F9nmkb UMz1QT2zrVrYetwvm/RNJeQVOL+hbw17Nepjo1iuI+/E+Lj4J2xjfN+NZ3mW kt/ChhOZbD/sZzN+ahnHkX9wyR12BtYzFIx+Su6D96Nvn2tktW0V9ts4uJzi l/F+NPQ6xRbj/vqK+j4jy/H7g6HzMNsU8ZmR/7Bn4v0WLAl4Tv6IuPG4FnaT BvXRdLCn4Xka9m2sIG/H/r4B1ezV+H4b/JZVkm2Rv3FKMdsBzyNY4VFFdrmD +V1q9lA4+KJEz/niecY1KtmLVRj/VMWOQr42NaNfkNNxn2zs4tiD0a/ZQYOq yU54HsGPT7A9UX/fB31ryEVYL3hNMNsR5zHu6mavRX4RC6fVkifiPIdyA9kH sF7bu2R2EmykbmWPRr3NJjrUkQdGYbx+C3sy9o8Ii2OPx/oa7zp2EPY3O2xZ z/cN/agr9ma/w37r2s+w9+K8Zjt17Hj0g+a9yUvqJ/9axNPmkUVbsL+XKoTd jPppqrPYh7G/3M7IQE5EfsouF3Yo+lteHMjuQD8r5clsW8wfvu1Pthb511vY N/B8jG9r/pWdADs1XGGHYHzEwQa2H/pR+WJII/c/fj9qq/Amy1rxPnEqP81x BfrHbFgZW4r3lVFHvyZ+P+J5t2k92UuwXr17CNsO9rqVx3ZAvTW7X7PH4nvs 1U/UTG5B/hG9ndkmqOehmgD2FHreS++y1VRf2w/N/+/HiK4xr8iNmN/Wvpkt xf2Qq66zLXAfddPr2ErUp958yGvya5x3uKk3ezLiXofOsgfh/rQ56NgHML7e 2OQNeQ6sq5jDdkU+7q+OsM8jf3ePLLY18tdtFb0lL0p2+w/VDP77 "]]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{-3.470598*^9, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks-> FrontEndValueCache[{{Automatic, Automatic}, {Charting`FindScaledTicks[ (Charting`getDateTicks[Automatic, {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, Automatic]& )[ SlotSequence[1]], {Identity, Identity}]& , Charting`ScaledFrameTicks[ (Charting`getDateTicks[Charting`getDateTicks[Automatic, {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, Automatic]& , {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, None]& )[ SlotSequence[1]], {Identity, Identity}]& }}, {{ Automatic, Automatic}, {{{-4.7335104*^9, FormBox["\"1750\"", TraditionalForm], {0.008333333333333333, 0.}}, {-3.1556736*^9, FormBox["\"1800\"", TraditionalForm], {0.008333333333333333, 0.}}, {-1.5778368*^9, FormBox["\"1850\"", TraditionalForm], {0.008333333333333333, 0.}}, { 0., FormBox["\"1900\"", TraditionalForm], {0.008333333333333333, 0.}}, { 1.5778368*^9, FormBox["\"1950\"", TraditionalForm], {0.008333333333333333, 0.}}, { 3.1556736*^9, FormBox["\"2000\"", TraditionalForm], {0.008333333333333333, 0.}}, { 4.7335968*^9, FormBox["\"2050\"", TraditionalForm], {0.008333333333333333, 0.}}, {-4.7335104*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-4.4179776*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-4.1023584*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.7868256*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.4712064*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.8401408*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.524608*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.2089888*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.893456*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.262304*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-9.466848*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-6.31152*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.155328*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.155328*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {6.310656*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {9.466848*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.2622176*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.8933696*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.2089888*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.5245216*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.8401408*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.4712928*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.7868256*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}}, {{-4.7335104*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {4.7335968*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-4.7335104*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-4.4179776*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-4.1023584*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.7868256*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.4712064*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.8401408*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.524608*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-2.2089888*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.893456*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-1.262304*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-9.466848*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-6.31152*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {-3.155328*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.155328*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {6.310656*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {9.466848*^8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.2622176*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.5778368*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {1.8933696*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.2089888*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.5245216*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {2.8401408*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.1556736*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.4712928*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}, {3.7868256*^9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], { 0.008333333333333333, 0.}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3.470598*^9, 3.7583172*^9}, {0, 33670.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{{}, Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.726417628955962*^9, 3.758477935862166*^9}, CellLabel->"Out[2]="] }, Open ]], Cell["\<\ Compare word counts for Democratic and Republican presidents :\ \>", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.758477962870743*^9, 3.7584779651575203`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"partyDates", "=", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"#Party", "&"}]}], "]"}], "[", RowBox[{"All", ",", "All", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Normal", "@", RowBox[{"partyDates", "[", "\"\\"", "]"}]}], ",", RowBox[{"Normal", "@", RowBox[{"partyDates", "[", "\"\\"", "]"}]}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "False"}], ",", RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.758477980032834*^9}, CellLabel->"In[3]:="], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztmP9X1fUdx2+MYxxT4+CZa4kNk2F+WTbUvKvsIFnits6KWh0yZyvSrS/G PB6ypHVTzuDYVvgtDd0y/FKyRL0i3gzxckH5IiBc0CSu8iVU0lJizlg4Nz+v 5/P9evcH9ON9/gA8zuv9fr3f78+X54fzHP30S6nPRrhcrgnXfji/r+mt5Fc6 yuWvdyuTrv38c8Z08hv1Dg/75XXkUaUOb9ywoh3cVOZw7OYYco/wlav5p4Q9 qbUOh/bFkccccvjJgx+exPgp1Q5nLbqDnH5Y6g2+EHiJcOhYEvk+6Zc1raoN vLpc6vMWtoL/ctTh0psunRD2tzQ5fE9cFtg1vFHqYyPBnrYW2W9q4THUKwPS /4lEcmuF8NjdLWCf7Cf2h8nkHLleV+qrmtHvY5x33EPkCFkvdk1zEJwo5w25 nwK7Mo/Ifm4c1AgeKusvuT32KPjqJw771kxoAOdWCc+9sx79HpP9ZcxZvB/n TW12uLd2rQ/jd8r9y1hXXALeWyz1QceLMb9Irl/HgpPbwBNlfx2bR20Gp8j1 9I/c+A9wbZ1w6+h16DevweG8B362f4aw/58ORz8zohS8b7fw/ZcPgH8kz0f0 2OMHwSs2OZwb2eYHv1PkcPWva8vBc/ZK/cz+AHiNV+qLd1aA79rqcNTggaPg +e87PDMhs5H9ZT+Vt1wgh3Y4HH9gQRP4CZnfPaSdPFf6xxc9HgQvkvFbth0l R253OPL+2c3gL4W7V5aTF8p68ZPvamFdzp/dtIdcJv2668YfA9/gdzj9hg/B /oQ2WW/+yOOov79Pxl+/hhwl9y/dNeRTcEGh1PuXk6OlPnPdf8kzd8r67swT 4G+kHvnzC+SzAel3zBcC50s9vn38SfCBj4XHbSGPlPtRufTmU+BEOX/2kZXk 2XLe9E+GtIMbpF/2vGzyHeIfkQNXyU/tcXjVb+7uAE/d5XCwMa0L/JX0e/rS O+RXZb2YRUHyNjl/4OLQz3H9Mjqk3xunT/N+yPvjPTnqDK/fAYf7WtPAnl55 /hOPr2W9yCf9R7eQs/Y7HHF52Fk+n7L/vtrZ5EekX1dyDnmccIFv+xfgEXL/ gjM6yV7ZT9fwUefA56T/rdFp5GlST122nnyzXP++SUHy6zK+K3LoefAs4WDr LPK9cn+unD/bhPdzjvQLzcoAe16Q5+3Jj/5NvxmQ/YX2vEZ+VNhdNqsOPFne V3f940cwP1aulzu0oBb1JNmf+/zLNeBb5Hlzf5tTDd4k/tT//OoqzL8uIPVg wWF+L8TP3J3eQ+ACOU//+opK8J8OCn/QXAH+VvbTX/J5AP2axY99t10sR30M 5r911Q/eKO+b74Ebyd4PHO5Nm15Gf/3I4Yya35WCX5XzZTRf8qL/KzUyPnnE bvB6Wa9j0G+LMP4/4o8dp9cVgr8W//f8L/5tjN8r5/Nc/KkH/two/uxyH5qB 8VvFn12/37VU7l9SeVDG13X+Fc/nbTI+aWHvWj5Pcj2T8t/+O+pTZX7clBUF mP8D+d7F9c/ehnrWCeEfX1+I9yP6U2FPzQ7UD3/mcF6ofhf6D8j6eWU7vKiP l+9T3qa/FaNeIfc7b9mLJVjvTumXl/6gD7xR1qt+9r1K+os8j1EPrzwEXlzi cMq7nsNgt9yv3M6XqsBJ8rxGVT1TjfXvlf8XonyP1KA+Ub63Udvvq0V9ityv qPzJR1DfIM9L1Jtj6lBfjflZw+tR7xA/SRkc1QB+EPsZ+IbsEf+pDFymP94t ++l+bX4r+EV5P9IzT5Hnih90L3zsM3CCvF+RJY3kSdIvuyilDTxd/C59wE/+ iXD2e276b7TsZ8sZL/lh8aNlVUvoj6/L/vu+KibvEo7w95LHy/sXM3VSJ/im fBkfeo48Tfx41Yot5Mmyv0BaJ3mp7CdmeSz91S3fw5jSX8FfXc/J/FRfDrlH 7m/gVAV5ucwvGBfRDd4h/b0D08m58n0saFxCvizvp7egmJwg82994V/kWlm/ a8Tt9PNcGd/X80dyoXDi6a3kHBmfurOafjxJrk/g5XPkifL+pw5z9YAvyPxV g+8hD5XzLGvPJP8C1+vRvWQ/zpfwdc93v2+rBibQ38/I/L5LfyBnyf1M/uJN +vMGmZ+cUkGOk/nB511fgh8Stv4NqX9T1r9ZV/+GrH+TjX8bVv8mq3+T1b8h 9W9TV/8mq39zvPo3Wf2bbPybsv7Nuvo36+rfkPVvyPo32fi3GW/8m7L+TVb/ htS/DRv/NlL/pox/m/HGvynr32Tj35T6t2Hj34aNfxs2/k1Z/yYb/zas/k02 /m3Y+Ddl/Ruy/g1Z/4asf3O88W/D6t9k49+G1b/Jxr8Nq39zffVvsvo3ZP0b sv4NWf9mXf0bsv4NWf/mfPVv1tW/IevfkPVvyPo3ZP0bsv7N8erfkPVvyPo3 56t/k9W/IevfnK/+DVn/hqx/s67+zbr6N2T9G7L+zfOof0PWv7k/9W/uT/2b dfVvyPo3ZP2bdfVv7l/9m3X1b+5P/Ruy/k1W/4asf0M2T4FsngLZPAWyeQpk 8xRI8xRK8xTK5imQzVNY1zyF8zVP4XjNU1jXPAXSPIWyeQrrJk8x+9U8hf01 TyFrngLZPIXzTZ5i9mPyFDPe5CmmrnkK96N5CmTzFMjmKWSTp1Cap1A2T2Fd 8xTWTZ5CaZ5i2OQplOYphjVPgWyeAtk8hax5ClnzFMjmKZDNU1jXPIV1zVMg m6dANk+BbJ4C2TwFsnkK65qnQDZPgWyewvmap3C+5imQzVM4XvMUSPMUs57m KRyveQrHa57CuuYpkM1TuL7mKdy/5insp3kK9695ClnzFMjmKeyveQr7aZ7C uuYpXF/zFMjmKZDNUyCbp0A2T4E0TzH9NE+BbJ4CaZ5C2TyF/TVPgWyewvma p0A2T4FsnsLzaJ7C8ZqnQDZPgWyewvU0T+F8zVPYX/MUKJyPh/NxcDgfl3o4 Hw/n48LhfFw4nI+H83Gph/Nxh8P5eDgf/+737XvNx/8PyvtE5g== "], {{{}, {}, {}, {}, {}, { Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3]], LineBox[{278, 1}], LineBox[{279, 2}], LineBox[{280, 3}], LineBox[{281, 4}], LineBox[{282, 5}], LineBox[{283, 6}], LineBox[{284, 7}], LineBox[{285, 8}], LineBox[{286, 9}], LineBox[{287, 10}], LineBox[{288, 11}], LineBox[{289, 12}], LineBox[{290, 13}], LineBox[{291, 14}], LineBox[{292, 15}], LineBox[{293, 16}], LineBox[{294, 17}], LineBox[{295, 18}], LineBox[{296, 19}], LineBox[{297, 20}], LineBox[{298, 21}], LineBox[{299, 22}], LineBox[{300, 23}], LineBox[{301, 24}], LineBox[{302, 25}], LineBox[{303, 26}], LineBox[{304, 27}], LineBox[{305, 28}], LineBox[{306, 29}], LineBox[{307, 30}], LineBox[{308, 31}], LineBox[{309, 32}], LineBox[{310, 33}], LineBox[{311, 34}], LineBox[{312, 35}], LineBox[{313, 36}], LineBox[{314, 37}], LineBox[{315, 38}], LineBox[{316, 39}], LineBox[{317, 40}], LineBox[{318, 41}], LineBox[{319, 42}], LineBox[{320, 43}], LineBox[{321, 44}], LineBox[{322, 45}], LineBox[{323, 46}], LineBox[{324, 47}], LineBox[{325, 48}], LineBox[{326, 49}], LineBox[{327, 50}], LineBox[{328, 51}], LineBox[{329, 52}], LineBox[{330, 53}], LineBox[{331, 54}], LineBox[{332, 55}], LineBox[{333, 56}], LineBox[{334, 57}], LineBox[{335, 58}], LineBox[{336, 59}], LineBox[{337, 60}], LineBox[{338, 61}], LineBox[{339, 62}], LineBox[{340, 63}], LineBox[{341, 64}], LineBox[{342, 65}], LineBox[{343, 66}], LineBox[{344, 67}], LineBox[{345, 68}], LineBox[{346, 69}], LineBox[{347, 70}], LineBox[{348, 71}], LineBox[{349, 72}], LineBox[{350, 73}], LineBox[{351, 74}], LineBox[{352, 75}], LineBox[{353, 76}], LineBox[{354, 77}], LineBox[{355, 78}], LineBox[{356, 79}], LineBox[{357, 80}], LineBox[{358, 81}], LineBox[{359, 82}], LineBox[{360, 83}], LineBox[{361, 84}], LineBox[{362, 85}], LineBox[{363, 86}], LineBox[{364, 87}], LineBox[{365, 88}], LineBox[{366, 89}], LineBox[{367, 90}], LineBox[{368, 91}], LineBox[{369, 92}], LineBox[{370, 93}]}, {}, { Directive[ RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.3]], LineBox[{186, 94}], LineBox[{187, 95}], LineBox[{188, 96}], LineBox[{189, 97}], LineBox[{190, 98}], LineBox[{191, 99}], LineBox[{192, 100}], LineBox[{193, 101}], LineBox[{194, 102}], LineBox[{195, 103}], LineBox[{196, 104}], LineBox[{197, 105}], LineBox[{198, 106}], LineBox[{199, 107}], LineBox[{200, 108}], LineBox[{201, 109}], LineBox[{202, 110}], LineBox[{203, 111}], LineBox[{204, 112}], LineBox[{205, 113}], LineBox[{206, 114}], LineBox[{207, 115}], LineBox[{208, 116}], LineBox[{209, 117}], LineBox[{210, 118}], LineBox[{211, 119}], LineBox[{212, 120}], LineBox[{213, 121}], LineBox[{214, 122}], LineBox[{215, 123}], LineBox[{216, 124}], LineBox[{217, 125}], LineBox[{218, 126}], LineBox[{219, 127}], LineBox[{220, 128}], LineBox[{221, 129}], LineBox[{222, 130}], LineBox[{223, 131}], LineBox[{224, 132}], LineBox[{225, 133}], LineBox[{226, 134}], LineBox[{227, 135}], LineBox[{228, 136}], LineBox[{229, 137}], LineBox[{230, 138}], LineBox[{231, 139}], LineBox[{232, 140}], LineBox[{233, 141}], LineBox[{234, 142}], LineBox[{235, 143}], LineBox[{236, 144}], LineBox[{237, 145}], LineBox[{238, 146}], LineBox[{239, 147}], LineBox[{240, 148}], LineBox[{241, 149}], LineBox[{242, 150}], LineBox[{243, 151}], LineBox[{244, 152}], LineBox[{245, 153}], LineBox[{246, 154}], LineBox[{247, 155}], LineBox[{248, 156}], LineBox[{249, 157}], LineBox[{250, 158}], LineBox[{251, 159}], LineBox[{252, 160}], LineBox[{253, 161}], LineBox[{254, 162}], LineBox[{255, 163}], LineBox[{256, 164}], LineBox[{257, 165}], LineBox[{258, 166}], LineBox[{259, 167}], LineBox[{260, 168}], LineBox[{261, 169}], LineBox[{262, 170}], LineBox[{263, 171}], LineBox[{264, 172}], LineBox[{265, 173}], LineBox[{266, 174}], LineBox[{267, 175}], LineBox[{268, 176}], LineBox[{269, 177}], LineBox[{270, 178}], LineBox[{271, 179}], LineBox[{272, 180}], LineBox[{273, 181}], LineBox[{274, 182}], LineBox[{275, 183}], LineBox[{276, 184}], LineBox[{277, 185}]}}, {{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwNxtc6ggEAANDfo3il7rvxAFxk7xVJwxYhZGSFyAwhu3gl5+J832luaQu1 NgVBECYi7XTQSRfd9NBLH/0MMMgQw4wwyhjjRJlgkhhTxJkmQZIUaWaYZY55 FlhkiWUyrLBKljXW2SDHJltsk2eHXfbYp8ABhxxxzAlFTjnjnBIXXFLmimtu uOWOeyo88MgTVZ554ZUab7zzwSdffPNDnQa//PEPN1I86w== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwVz9c6AmAAgOG/jMxKskLDqORuHDtyAdyqrOy9s0M2r4P3eb7Tr7CwNLcY CSHMsyyqrLDKGutsUGOTLbbZYZc99jngkCOOOeGUM8654JIrrqlzwy133PPA I080eOaFV5q88c4Hn3zxzQ+//xPRECJEaaGVNtqJ0UEnXXTTQy9xEiTpI0U/ aQYYZIhhRsgwyhjjZMmRp8AEk0wxTZESZWaoMMsfIm8xsg== "]]}, {}}}], {}, {}, {}, {}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {-2.2110588*^9, 0}, PlotRange -> {{-2.2110588*^9, 3.7583172*^9}, {0, 33670.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {-2.2110588*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Charting`FindScaledTicks[ (Charting`getDateTicks[Automatic, {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, Automatic]& )[ SlotSequence[1]], {Identity, Identity}]& , Charting`ScaledFrameTicks[ (Charting`getDateTicks[ Charting`getDateTicks[Automatic, {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, Automatic]& , {Automatic}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 5, {{0.0125, 0}, {0.0075, 0}}, None]& )[ SlotSequence[1]], {Identity, Identity}]& }}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-2.2110588*^9, 3.7583172*^9}, {0, 33670.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {{}, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"Democratic\"", "\"Republican\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.33000000000000007`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.33000000000000007`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.33000000000000007`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.33000000000000007`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.758477988083345*^9}, CellLabel->"Out[3]="] }, Open ]], Cell["Show a distribution of word counts by political party:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.75847799867064*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"partyCounts", "=", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"#Party", "&"}]}], "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"partyCounts", ",", RowBox[{"ChartLayout", "\[Rule]", "\"\\""}], ",", RowBox[{"ChartLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.75847801422472*^9}, CellLabel->"In[4]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 6, "Length" -> 6, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[ TypeSystem`Enumeration[ "Democratic", "Democratic-Republican", "Federalist", "Republican", "Whig"]], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 6], "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[189.], TypeSystem`PackageScope`UnknownShape]], 6, {}], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1819714998], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[ TypeSystem`Enumeration[ "Democratic", "Democratic-Republican", "Federalist", "Republican", "Whig"]], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 6], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1819714998]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], Style[ Item[ "\[LongDash]", Alignment -> {Left, Baseline}, BaseStyle -> GrayLevel[0.85]], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key[ Missing["NotApplicable"]]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key[ Missing["NotApplicable"]]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1085, 1403, 2304, 2104, 1969, 2916, 1987, 2868}, ShowStringCharacters -> False], Style[ Style[{1085, 1403, 2304, 2104, 1969, 2916, 1987, 2868}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key[ Missing["NotApplicable"]]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key[ Missing["NotApplicable"]]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Federalist", Style[ "Federalist", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Federalist"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key["Federalist"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{2060, 2218, 1505, 1372}, ShowStringCharacters -> False], Style[ Style[{2060, 2218, 1505, 1372}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Federalist"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key["Federalist"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Democratic-Republican", Style[ "Democratic-Republican", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Democratic-Republican"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key["Democratic-Republican"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 28], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 28], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Democratic-Republican"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key["Democratic-Republican"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Democratic", Style[ "Democratic", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Democratic"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key["Democratic"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 93], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 93], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Democratic"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key["Democratic"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Whig", Style[ "Whig", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Whig"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key["Whig"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{8255, 8441, 8048, 9325, 7628, 8333, 13297, 9942}, ShowStringCharacters -> False], Style[ Style[{8255, 8441, 8048, 9325, 7628, 8333, 13297, 9942}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Whig"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key["Whig"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Republican", Style[ "Republican", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Republican"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1193475825][ GeneralUtilities`Slice[ Key["Republican"]]], "Mouse"], ImageSize -> {{189., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 92], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 92], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][{ Key["Republican"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ GeneralUtilities`Slice[ Key["Republican"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1193475825]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1193475825][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {547., {82.5, 89.5}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.758478023195921*^9}, CellLabel->"Out[4]="], Cell[BoxData[ TemplateBox[{GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[ 0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.97858, 0.678934, 0.157834]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {2000., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 0.}, {4000., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.368417, 0.506779, 0.709798]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4}, {2000., 6}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 4}, {4000., 6}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.560181, 0.691569, 0.194885]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6}, {2000., 7}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 6}, {4000., 22}, "RoundingRadius" -> 0]}]}, StatusArea[#, 16]& , TagBoxNote -> "16"], StyleBox["16", {}, StripOnInput -> False]], Annotation[#, Style[16, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000., 0}, {6000., 5}, "RoundingRadius" -> 0]}]}, StatusArea[#, 5]& , TagBoxNote -> "5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000., 0}, {8000., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000., 0}, {10000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.922526, 0.385626, 0.209179]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 22}, {4000., 39}, "RoundingRadius" -> 0]}]}, StatusArea[#, 17]& , TagBoxNote -> "17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000., 5}, {6000., 24}, "RoundingRadius" -> 0]}]}, StatusArea[#, 19]& , TagBoxNote -> "19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000., 4}, {8000., 25}, "RoundingRadius" -> 0]}]}, StatusArea[#, 21]& , TagBoxNote -> "21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000., 2}, {10000., 10}, "RoundingRadius" -> 0]}]}, StatusArea[#, 8]& , TagBoxNote -> "8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10000., 0}, {12000., 7}, "RoundingRadius" -> 0]}]}, StatusArea[#, 7]& , TagBoxNote -> "7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12000., 0}, {14000., 7}, "RoundingRadius" -> 0]}]}, StatusArea[#, 7]& , TagBoxNote -> "7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14000., 0}, {16000., 5}, "RoundingRadius" -> 0]}]}, StatusArea[#, 5]& , TagBoxNote -> "5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16000., 0}, {18000., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18000., 0}, {20000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20000., 0}, {22000., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26000., 0}, {28000., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32000., 0}, {34000., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.528488, 0.470624, 0.701351]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000., 25}, {8000., 26}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000., 10}, {10000., 16}, "RoundingRadius" -> 0]}]}, StatusArea[#, 6]& , TagBoxNote -> "6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12000., 7}, {14000., 8}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.567]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.772079, 0.431554, 0.102387]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7}, {2000., 8}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 39}, {4000., 50}, "RoundingRadius" -> 0]}]}, StatusArea[#, 11]& , TagBoxNote -> "11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000., 24}, {6000., 58}, "RoundingRadius" -> 0]}]}, StatusArea[#, 34]& , TagBoxNote -> "34"], StyleBox["34", {}, StripOnInput -> False]], Annotation[#, Style[34, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000., 26}, {8000., 39}, "RoundingRadius" -> 0]}]}, StatusArea[#, 13]& , TagBoxNote -> "13"], StyleBox["13", {}, StripOnInput -> False]], Annotation[#, Style[13, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000., 16}, {10000., 25}, "RoundingRadius" -> 0]}]}, StatusArea[#, 9]& , TagBoxNote -> "9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10000., 7}, {12000., 13}, "RoundingRadius" -> 0]}]}, StatusArea[#, 6]& , TagBoxNote -> "6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12000., 8}, {14000., 13}, "RoundingRadius" -> 0]}]}, StatusArea[#, 5]& , TagBoxNote -> "5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14000., 5}, {16000., 7}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16000., 4}, {18000., 6}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18000., 2}, {20000., 5}, "RoundingRadius" -> 0]}]}, StatusArea[#, 3]& , TagBoxNote -> "3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20000., 1}, {22000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22000., 0}, {24000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24000., 0}, {26000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26000., 1}, {28000., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}}}, {}, {}}}}}, {{{{{}, {}}, {}}}, {{{{}, {}}, \ {}}}, {{{{}, {}, {}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}}, {}}}, {{{{}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}, {}}}}}, { AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-680., 0}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], PlotRange -> {{0., 34000.}, {All, All}}, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ InterpretationBox[ TooltipBox["\[LongDash]", "(not applicable)"], Missing["NotApplicable"]], "\"Federalist\"", "\"Democratic-Republican\"", "\"Democratic\"", "\"Whig\"", "\"Republican\""}, "SwatchLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.97858, 0.678934, 0.157834]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.368417, 0.506779, 0.709798]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.560181, 0.691569, 0.194885]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.922526, 0.385626, 0.209179]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.528488, 0.470624, 0.701351]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.567]]], RGBColor[0.772079, 0.431554, 0.102387]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.97858, 0.678934, 0.157834], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6523866666666667, 0.45262266666666673`, 0.10522266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.97858`", ",", "0.678934`", ",", "0.157834`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.97858, 0.678934, 0.157834]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.567`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7584780305553837`*^9}, CellLabel->"Out[5]="] }, Open ]], Cell["Plot median speech lengths by political party:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.726417558179438*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"Median", "/@", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.72641756312709*^9, 3.7264175925505753`*^9}}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0., 0.43075018208302984`}, {0., 6.451201747997087}}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5487982520029133}, {2099.5, 1.4512017479970867`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 172.52467989143594`}, {39.74389617585536, 61.907365731482344`}}], StatusArea[#, 4199/2]& , TagBoxNote->"4199/2"], StyleBox[ FractionBox["4199", "2"], {}, StripOnInput -> False]], Annotation[#, Style[4199/2, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5487982520029133`}, {1819., 2.4512017479970867`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 164.872597152904}, {15.737484795810282`, 37.90095435143727}}], StatusArea[#, 1819]& , TagBoxNote->"1819"], StyleBox["1819", {}, StripOnInput -> False]], Annotation[#, Style[1819, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.5487982520029133`}, {3322., 3.4512017479970867`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 205.8746661582997}, {-8.26892658423479, 13.894542971392191`}}], StatusArea[#, 3322]& , TagBoxNote->"3322"], StyleBox["3322", {}, StripOnInput -> False]], Annotation[#, Style[3322, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.5487982520029133`}, {7214., 4.451201747997087}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 312.04901916495305`}, {-32.27533796427987, -10.111868408652882`}}], StatusArea[#, 7214]& , TagBoxNote->"7214"], StyleBox["7214", {}, StripOnInput -> False]], Annotation[#, Style[7214, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.548798252002913}, {8470.5, 5.451201747997087}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 346.32653061224494`}, {-56.281749344324936`, -34.11827978869796}}], StatusArea[#, 16941/2]& , TagBoxNote->"16941/2"], StyleBox[ FractionBox["16941", "2"], {}, StripOnInput -> False]], Annotation[#, Style[16941/2, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.548798252002913}, {6218., 6.451201747997087}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.75, 284.87798740888246`}, {-80.28816072437002, -58.12469116874303}}], StatusArea[#, 6218]& , TagBoxNote->"6218"], StyleBox["6218", {}, StripOnInput -> False]], Annotation[#, Style[6218, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.43075018208302984`}, {0., 6.5716107793153675`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5487982520029133}, Offset[{-6., 0.}, {0., 0.5487982520029133}]}], LineBox[{{0., 6.451201747997087}, Offset[{-6., 0.}, {0., 6.451201747997087}]}], {{}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.4512017479970867`}, Offset[{-4., 0.}, {0., 1.4512017479970867`}]}], LineBox[{{0., 1.5487982520029133`}, Offset[{-4., 0.}, {0., 1.5487982520029133`}]}], LineBox[{{0., 2.4512017479970867`}, Offset[{-4., 0.}, {0., 2.4512017479970867`}]}], LineBox[{{0., 2.5487982520029133`}, Offset[{-4., 0.}, {0., 2.5487982520029133`}]}], LineBox[{{0., 3.4512017479970867`}, Offset[{-4., 0.}, {0., 3.4512017479970867`}]}], LineBox[{{0., 3.5487982520029133`}, Offset[{-4., 0.}, {0., 3.5487982520029133`}]}], LineBox[{{0., 4.451201747997087}, Offset[{-4., 0.}, {0., 4.451201747997087}]}], LineBox[{{0., 4.548798252002913}, Offset[{-4., 0.}, {0., 4.548798252002913}]}], LineBox[{{0., 5.451201747997087}, Offset[{-4., 0.}, {0., 5.451201747997087}]}], LineBox[{{0., 5.548798252002913}, Offset[{-4., 0.}, {0., 5.548798252002913}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox[ InterpretationBox[ TooltipBox["\[LongDash]", "(not applicable)"], Missing["NotApplicable"]], Offset[{-2., 0.}, {0., 1.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Federalist\"\>", Offset[{-2., 0.}, {0., 2.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Democratic-Republican\"\>", Offset[{-2., 0.}, {0., 3.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Democratic\"\>", Offset[{-2., 0.}, {0., 4.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Whig\"\>", Offset[{-2., 0.}, {0., 5.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Republican\"\>", Offset[{-2., 0.}, {0., 6.}], {1, 0}, Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.43075018208302984`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {1., FormBox[ InterpretationBox[ TooltipBox["\[LongDash]", "(not applicable)"], Missing["NotApplicable"]], TraditionalForm], 0}, {2., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., FormBox["\"Federalist\"", TraditionalForm], 0}, {3., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., FormBox["\"Democratic-Republican\"", TraditionalForm], 0}, {4., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., FormBox["\"Democratic\"", TraditionalForm], 0}, {5., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., FormBox["\"Whig\"", TraditionalForm], 0}, {6., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., FormBox["\"Republican\"", TraditionalForm], 0}}, {{1., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}, { Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.72641763079108*^9}] }, Open ]], Cell["Show the frequency of specific words over time :", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.758478063180924*^9, 3.758478064882402*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"All", ",", RowBox[{ RowBox[{"{", RowBox[{"#Date", ",", RowBox[{"#WordCounts", "[", RowBox[{"ToString", "[", "word", "]"}], "]"}]}], "}"}], "&"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "False"}], ",", RowBox[{"Filling", "\[Rule]", "Bottom"}]}], "]"}], ",", RowBox[{"{", RowBox[{"word", ",", "freedom"}], "}"}]}], "]"}]], "Input", CellLabel->"In[7]:="], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`word$$ = $CellContext`freedom, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`word$$], $CellContext`freedom}}, Typeset`size$$ = { 360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`word$$ = $CellContext`freedom}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> DateListPlot[ ResourceData["ad08960b-f43e-4e8f-92bf-04fd17234703"][All, { Slot["Date"], Slot["WordCounts"][ ToString[$CellContext`word$$]]}& ], Joined -> False, Filling -> Bottom], "Specifications" :> {{$CellContext`word$$, $CellContext`freedom}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{407., {156., 163.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.758478237132071*^9}, CellLabel->"Out[7]="] }, Open ]], Cell["Generate a word cloud of a single president's speeches:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.726417571500445*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{ RowBox[{"StringJoin", "@", RowBox[{"Normal", "@", RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"#President", "\[Equal]", TemplateBox[{"\"Franklin D. Roosevelt\"",RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"FranklinDRoosevelt::xj8jv\""}], "]"}],"\"Entity[\\\"Person\\\", \\\"FranklinDRoosevelt::xj8jv\\\ \"]\"","\"person\""}, "Entity"]}], "&"}], "]"}], "]"}], "[", RowBox[{"All", ",", "\"\\""}], "]"}]}]}], ",", " ", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.72641757934476*^9, 3.726417595333496*^9}, {3.758478123662603*^9, 3.758478138211577*^9}}, CellLabel->"In[6]:="], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Government\"\>", StripOnInput->False, FontSize->Scaled[0.1341422312099764], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.1470845972362656], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0., 31.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.12443545669025953`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {0., -36.}, Center, Automatic], InsetBox[ StyleBox["\<\"Congress\"\>", StripOnInput->False, FontSize->Scaled[0.09855072463768116], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {0., 68.}, Center, Automatic], InsetBox[ StyleBox["\<\"national\"\>", StripOnInput->False, FontSize->Scaled[0.1131108864172565], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {0., -72.}, Center, Automatic], InsetBox[ StyleBox["\<\"war\"\>", StripOnInput->False, FontSize->Scaled[0.2028985507246377], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0., 101.}, Center, Automatic], InsetBox[ StyleBox["\<\"Nations\"\>", StripOnInput->False, FontSize->Scaled[0.10178631614425346`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {0., -104.}, Center, Automatic], InsetBox[ StyleBox["\<\"Nation\"\>", StripOnInput->False, FontSize->Scaled[0.1098752949106842], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-70., -128.}, Center, Automatic], InsetBox[ StyleBox["\<\"American\"\>", StripOnInput->False, FontSize->Scaled[0.08479946073474891], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {0., 132.}, Center, Automatic], InsetBox[ StyleBox["\<\"peace\"\>", StripOnInput->False, FontSize->Scaled[0.10016852039096731`], FontColor->RGBColor[1, 0.75, 0]], {31., -128.}, Center, Automatic], InsetBox[ StyleBox["\<\"United\"\>", StripOnInput->False, FontSize->Scaled[0.09288843950117963], FontColor->RGBColor[0.571589, 0.586483, 0.]], {106., 32.}, Center, Automatic], InsetBox[ StyleBox["\<\"production\"\>", StripOnInput->False, FontSize->Scaled[0.06619480957195821], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {100., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.08156386922817661], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-97., -29.}, Center, Automatic], InsetBox[ StyleBox["\<\"States\"\>", StripOnInput->False, FontSize->Scaled[0.06619480957195821], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-95., 32.}, Center, Automatic], InsetBox[ StyleBox["\<\"economic\"\>", StripOnInput->False, FontSize->Scaled[0.052443545669025954`], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {103., -23.}, Center, Automatic], InsetBox[ StyleBox["\<\"security\"\>", StripOnInput->False, FontSize->Scaled[0.057296932928884395`], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {101., -40.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.08237276710481968], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {-95., -59.}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.07590158409167509], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-101., 54.}, Center, Automatic], InsetBox[ StyleBox["\<\"power\"\>", StripOnInput->False, FontSize->Scaled[0.06457701381867206], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {100., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"year\"\>", StripOnInput->False, FontSize->Scaled[0.0726659925851028], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {98., 63.}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.07185709470845973], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-81., 94.}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.09046174587125042], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-98., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"democracy\"\>", StripOnInput->False, FontSize->Scaled[0.041927873272666], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {105., -83.}, Center, Automatic], InsetBox[ StyleBox["\<\"forces\"\>", StripOnInput->False, FontSize->Scaled[0.05648803505224132], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {87., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"business\"\>", StripOnInput->False, FontSize->Scaled[0.04354566902595214], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-105., 74.}, Center, Automatic], InsetBox[ StyleBox["\<\"freedom\"\>", StripOnInput->False, FontSize->Scaled[0.04435456690259522], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-88., -100.}, Center, Automatic], InsetBox[ StyleBox["\<\"problems\"\>", StripOnInput->False, FontSize->Scaled[0.04111897539602292], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {88., 109.}, Center, Automatic], InsetBox[ StyleBox["\<\"program\"\>", StripOnInput->False, FontSize->Scaled[0.041927873272666], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-86., 112.}, Center, Automatic], InsetBox[ StyleBox["\<\"today\"\>", StripOnInput->False, FontSize->Scaled[0.05325244354566903], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-16., 151.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.0783282777216043], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {18., -150.}, Center, Automatic], InsetBox[ StyleBox["\<\"employment\"\>", StripOnInput->False, FontSize->Scaled[0.033838894506235256`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-50., -148.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.05325244354566903], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {85., 125.}, Center, Automatic], InsetBox[ StyleBox["\<\"international\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {47., 147.}, Center, Automatic], InsetBox[ StyleBox["\<\"fighting\"\>", StripOnInput->False, FontSize->Scaled[0.041927873272666], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {101., -116.}, Center, Automatic], InsetBox[ StyleBox["\<\"years\"\>", StripOnInput->False, FontSize->Scaled[0.0508257499157398], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-87., 128.}, Center, Automatic], InsetBox[ StyleBox["\<\"Japanese\"\>", StripOnInput->False, FontSize->Scaled[0.0354566902595214], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {73., -148.}, Center, Automatic], InsetBox[ StyleBox["\<\"future\"\>", StripOnInput->False, FontSize->Scaled[0.050016852039096726`], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-132., 90.}, Center, Automatic], InsetBox[ StyleBox["\<\"democratic\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-88., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"income\"\>", StripOnInput->False, FontSize->Scaled[0.03950117964273677], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-64., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"necessary\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {106., -132.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.048399056285810586`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {140., 56.}, Center, Automatic], InsetBox[ StyleBox["\<\"common\"\>", StripOnInput->False, FontSize->Scaled[0.042736771149309065`], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {109., 141.}, Center, Automatic], InsetBox[ StyleBox["\<\"country\"\>", StripOnInput->False, FontSize->Scaled[0.040310077519379844`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {134., 122.}, Center, Automatic], InsetBox[ StyleBox["\<\"present\"\>", StripOnInput->False, FontSize->Scaled[0.037883383889450624`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-138., 105.}, Center, Automatic], InsetBox[ StyleBox["\<\"essential\"\>", StripOnInput->False, FontSize->Scaled[0.033838894506235256`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-134., 122.}, Center, Automatic], InsetBox[ StyleBox["\<\"labor\"\>", StripOnInput->False, FontSize->Scaled[0.04354566902595214], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-143., -52.}, Center, Automatic], InsetBox[ StyleBox["\<\"public\"\>", StripOnInput->False, FontSize->Scaled[0.042736771149309065`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-139., -98.}, Center, Automatic], InsetBox[ StyleBox["\<\"Americans\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-111., -146.}, Center, Automatic], InsetBox[ StyleBox["\<\"Service\"\>", StripOnInput->False, FontSize->Scaled[0.03464779238287833], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {137., -98.}, Center, Automatic], InsetBox[ StyleBox["\<\"military\"\>", StripOnInput->False, FontSize->Scaled[0.03626558813616448], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-109., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"conditions\"\>", StripOnInput->False, FontSize->Scaled[0.028985507246376812`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {103., 152.}, Center, Automatic], InsetBox[ StyleBox["\<\"progress\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {123., -145.}, Center, Automatic], InsetBox[ StyleBox["\<\"defense\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-138., 134.}, Center, Automatic], InsetBox[ StyleBox["\<\"America\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-145., -12.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.04111897539602292], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-144., 14.}, Center, Automatic], InsetBox[ StyleBox["\<\"Industrial\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {147., -1.}, Center, Automatic], InsetBox[ StyleBox["\<\"Federal\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {148., 11.}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.04435456690259522], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-144., 30.}, Center, Automatic], InsetBox[ StyleBox["\<\"need\"\>", StripOnInput->False, FontSize->Scaled[0.040310077519379844`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-148., -27.}, Center, Automatic], InsetBox[ StyleBox["\<\"attack\"\>", StripOnInput->False, FontSize->Scaled[0.037883383889450624`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-149., 45.}, Center, Automatic], InsetBox[ StyleBox["\<\"action\"\>", StripOnInput->False, FontSize->Scaled[0.03707448601280755], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-148., 59.}, Center, Automatic], InsetBox[ StyleBox["\<\"continue\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-148., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"greater\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-144., -66.}, Center, Automatic], InsetBox[ StyleBox["\<\"human\"\>", StripOnInput->False, FontSize->Scaled[0.033838894506235256`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {144., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"enemies\"\>", StripOnInput->False, FontSize->Scaled[0.028985507246376812`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {29., 159.}, Center, Automatic], InsetBox[ StyleBox["\<\"needs\"\>", StripOnInput->False, FontSize->Scaled[0.0354566902595214], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {154., -35.}, Center, Automatic], InsetBox[ StyleBox["\<\"resources\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-6., -165.}, Center, Automatic], InsetBox[ StyleBox["\<\"policy\"\>", StripOnInput->False, FontSize->Scaled[0.03626558813616448], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {151., -49.}, Center, Automatic], InsetBox[ StyleBox["\<\"means\"\>", StripOnInput->False, FontSize->Scaled[0.04111897539602292], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-37., 166.}, Center, Automatic], InsetBox[ StyleBox["\<\"believe\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {147., -70.}, Center, Automatic], InsetBox[ StyleBox["\<\"certain\"\>", StripOnInput->False, FontSize->Scaled[0.03222109875294911], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-145., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"capital\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-154., 72.}, Center, Automatic], InsetBox[ StyleBox["\<\"private\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-49., -161.}, Center, Automatic], InsetBox[ StyleBox["\<\"modern\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {47., -164.}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.03707448601280755], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {65., 163.}, Center, Automatic], InsetBox[ StyleBox["\<\"Europe\"\>", StripOnInput->False, FontSize->Scaled[0.028985507246376812`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {137., 107.}, Center, Automatic], InsetBox[ StyleBox["\<\"task\"\>", StripOnInput->False, FontSize->Scaled[0.0386922817660937], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {157., -14.}, Center, Automatic], InsetBox[ StyleBox["\<\"order\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {156., -84.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.031412200876306036`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {140., -112.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.037883383889450624`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-139., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"past\"\>", StripOnInput->False, FontSize->Scaled[0.0386922817660937], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {80., -162.}, Center, Automatic], InsetBox[ StyleBox["\<\"trade\"\>", StripOnInput->False, FontSize->Scaled[0.03222109875294911], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-81., -162.}, Center, Automatic], InsetBox[ StyleBox["\<\"effort\"\>", StripOnInput->False, FontSize->Scaled[0.03222109875294911], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-139., -126.}, Center, Automatic], InsetBox[ StyleBox["\<\"seek\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {94., 164.}, Center, Automatic], InsetBox[ StyleBox["\<\"large\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {146., -125.}, Center, Automatic], InsetBox[ StyleBox["\<\"rights\"\>", StripOnInput->False, FontSize->Scaled[0.028985507246376812`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-108., -159.}, Center, Automatic], InsetBox[ StyleBox["\<\"small\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {108., -160.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.033838894506235256`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {151., 135.}, Center, Automatic], InsetBox[ StyleBox["\<\"living\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {121., 163.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.03950117964273677], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {162., 24.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.0354566902595214], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-147., -137.}, Center, Automatic], InsetBox[ StyleBox["\<\"pay\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-142., 148.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {132., -159.}, Center, Automatic], InsetBox[ StyleBox["\<\"total\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-133., -158.}, Center, Automatic], InsetBox[ StyleBox["\<\"faith\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-99., 165.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.03302999662959218], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {162., 38.}, Center, Automatic], InsetBox[ StyleBox["\<\"end\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-2., 165.}, Center, Automatic], InsetBox[ StyleBox["\<\"fact\"\>", StripOnInput->False, FontSize->Scaled[0.03060330299966296], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-70., 164.}, Center, Automatic], InsetBox[ StyleBox["\<\"Act\"\>", StripOnInput->False, FontSize->Scaled[0.02979440512301989], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {163., 80.}, Center, Automatic], InsetBox[ StyleBox["\<\"use\"\>", StripOnInput->False, FontSize->Scaled[0.03222109875294911], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-121., 166.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-172.5, 172.5}, {-171.5, 172.5}}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.72641763838789*^9, 3.758478161788307*^9}, CellLabel->"Out[6]="] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for State of the Union Addresses", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[635, 23, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"5366b5d7-6623-4e02-8d95-93a1d37cc0a7", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 404229, 8558} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[635, 23, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"5366b5d7-6623-4e02-8d95-93a1d37cc0a7", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[756, 29, 227, 7, 70, "Subsection",ExpressionUUID->"e5b53e53-8c50-405d-af17-326288c3586d"], Cell[986, 38, 170, 3, 70, "Text",ExpressionUUID->"0e392f89-a916-46ef-a13e-f3de39572f1e", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[1181, 45, 236, 4, 70, "Input",ExpressionUUID->"c9275e5c-6c9b-4896-96f1-e775321c74eb"], Cell[1420, 51, 17663, 354, 70, "Output",ExpressionUUID->"e277e82f-3bb7-4fc3-a29d-8c3c93dbcaff"] }, Open ]], Cell[19098, 408, 162, 2, 70, "Text",ExpressionUUID->"69545908-cc4a-45fd-bc0b-143b0b2ab73d"], Cell[CellGroupData[{ Cell[19285, 414, 205, 4, 57, "Input",ExpressionUUID->"a7fb3a69-0323-4bb9-b58c-12a7b38f3477"], Cell[CellGroupData[{ Cell[19493, 420, 160060, 3181, 70, "Output",ExpressionUUID->"69ee6773-f12b-45c8-acef-ae3e26f2c1bf"], Cell[179556, 3603, 1675, 40, 56, "PrintTemporary",ExpressionUUID->"3f49f229-673f-4660-93f6-c50509d27eff"] }, Open ]], Cell[181246, 3646, 1737, 40, 70, "PrintTemporary",ExpressionUUID->"2593764b-f7f5-4262-b281-862861f0235e"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[183032, 3692, 35, 0, 70, "Subsection",ExpressionUUID->"74ca8ade-15c6-4a6d-9f62-5d2a6f4bdfb1"], Cell[183070, 3694, 355, 5, 70, "Text",ExpressionUUID->"c6e19c3b-c60d-4cfb-a852-2430a98434f0"], Cell[CellGroupData[{ Cell[183450, 3703, 737, 18, 70, "Input",ExpressionUUID->"f110ed71-d0fa-42e4-aa9a-f819ac55f3e4"], Cell[184190, 3723, 63863, 1304, 70, "Output",ExpressionUUID->"17cb41d1-40f8-4001-8199-b0df295a3455"] }, Open ]], Cell[248068, 5030, 380, 5, 70, "Text",ExpressionUUID->"9c3addd9-d968-4bd7-9978-27a96d4be3e9"], Cell[CellGroupData[{ Cell[248473, 5039, 715, 16, 70, "Input",ExpressionUUID->"fee9afef-51c2-4c6a-97c6-ed358ac6eb64"], Cell[249191, 5057, 13737, 301, 70, "Output",ExpressionUUID->"29bb79b4-8188-46ac-a8aa-530a3e468008"] }, Open ]], Cell[262943, 5361, 401, 7, 70, "Text",ExpressionUUID->"a579a1b5-32b7-4559-ba91-bb9ef98eb860"], Cell[CellGroupData[{ Cell[263369, 5372, 1378, 35, 70, "Input",ExpressionUUID->"dc3923c0-6cef-4c33-8fe4-e6ca58b69204"], Cell[264750, 5409, 22778, 536, 70, "Output",ExpressionUUID->"ddeff564-312c-4aa8-a80f-4da1429dbd82"] }, Open ]], Cell[287543, 5948, 354, 4, 70, "Text",ExpressionUUID->"827a93ec-7d34-4949-92af-d16b54e14100"], Cell[CellGroupData[{ Cell[287922, 5956, 843, 19, 70, "Input",ExpressionUUID->"0173ac47-5f69-4950-8afb-82d55cf38ac9"], Cell[288768, 5977, 23908, 457, 70, "Output",ExpressionUUID->"54a0a8e0-882a-43f9-afcd-d431d65f9b70"], Cell[312679, 6436, 50826, 1129, 70, "Output",ExpressionUUID->"b1d0a4e4-aa3d-41f1-809e-97de083c3bea"] }, Open ]], Cell[363520, 7568, 347, 4, 70, "Text",ExpressionUUID->"7269a5c4-8cfb-4347-ba4f-be1a4d6ca8ad"], Cell[CellGroupData[{ Cell[363892, 7576, 789, 17, 70, "Input",ExpressionUUID->"575e8970-a901-434f-b96a-c14e19a57f97"], Cell[364684, 7595, 10357, 263, 70, "Output",ExpressionUUID->"00dd21ea-5ed9-45d3-8d2f-e0f51d5ee7c4"] }, Open ]], Cell[375056, 7861, 377, 5, 70, "Text",ExpressionUUID->"0ac58c3f-fb3a-46ef-b99d-b8c4c24348d6"], Cell[CellGroupData[{ Cell[375458, 7870, 673, 20, 70, "Input",ExpressionUUID->"7ae8f717-4509-4ef5-aa67-24625e0cc598"], Cell[376134, 7892, 2024, 41, 70, "Output",ExpressionUUID->"eb1ed65d-f002-42e6-9cd2-eeaf89b99e52"] }, Open ]], Cell[378173, 7936, 356, 4, 70, "Text",ExpressionUUID->"07c95b40-e4c6-4a80-bf0a-397facb5384a"], Cell[CellGroupData[{ Cell[378554, 7944, 1162, 25, 70, "Input",ExpressionUUID->"e6cd7732-1060-436d-b5f4-7daeb0e28c3c"], Cell[379719, 7971, 23941, 566, 70, "Output",ExpressionUUID->"a911cdef-aa01-42fa-924e-486a464b8cc1"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)