(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 26294, 550] NotebookOptionsPosition[ 24277, 503] NotebookOutlinePosition[ 24917, 526] CellTagsIndexPosition[ 24831, 521] 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 graph:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[2]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Minister 1", "P.Minister", "Minister 2", "Minister 3", "Minister 4", "Minister 5", "Minister 6", "Minister 7", "Adviser 1", "Adviser 2", "Adviser 3"}, {{{1, 2}, {1, 3}, {1, 6}, {1, 10}, {2, 4}, {2, 6}, {2, 8}, {3, 1}, {3, 2}, {3, 4}, {3, 5}, {3, 6}, {3, 7}, {3, 8}, {3, 10}, { 4, 7}, {4, 8}, {5, 2}, {5, 4}, {5, 6}, {5, 7}, {5, 8}, {5, 10}, {6, 2}, {6, 4}, {6, 5}, {6, 7}, {6, 8}, {7, 4}, {7, 8}, {7, 9}, {7, 11}, { 8, 2}, {8, 4}, {8, 7}, {8, 11}, {9, 2}, {9, 3}, {9, 7}, {9, 8}, {9, 11}, {10, 1}, {10, 2}, {10, 3}, {10, 5}, {11, 4}, {11, 6}, {11, 8}}, Null}, {GraphLayout -> {"Dimension" -> 2}, ImagePadding -> Automatic, VertexLabels -> { "Name", "Adviser 2" -> Placed["Adviser 2", {{1.0496438209077268`, 0.9334647276745305}, {-0.08890409382970721, 0.035573506063003135`}}], "P.Minister" -> Placed["P.Minister", {{0.6300160502367724, 1.1878196178365583`}, { 0.36069708903202946`, -0.23694959053916953`}}], "Minister 2" -> Placed["Minister 2", {{0.4261555552650049, 1.1960941013841304`}, { 0.5791190479303517, -0.2458151086258542}}], "Minister 5" -> Placed["Minister 5", {{0.6033794141524601, -0.1923241269300775}, { 0.38923634197950774`, 1.241775850282226}}], "Minister 3" -> Placed["Minister 3", {{0.3707132003010808, -0.18795706510189392`}, { 0.638521571105985, 1.2370968554663149`}}], "Adviser 1" -> Placed["Adviser 1", {{0.27106178426592814`, 1.1615038120649794`}, { 0.7452909454293626, -0.20875408435533505`}}], "Minister 1" -> Placed["Minister 1", {{ 0.9834173381519276, -0.006268384529495297}, {-0.01794714801992281, 1.0424304119958874`}}], "Minister 6" -> Placed["Minister 6", {{0.1428043199414722, -0.10200601836487133`}, { 0.8827096572055655, 1.1450064482480764`}}], "Minister 7" -> Placed["Minister 7", {{0.8076926522868395, 1.128748941731666}, { 0.17032930112124306`, -0.17365958042678498`}}], "Adviser 3" -> Placed["Adviser 3", {{-0.17956765575967404`, 0.33210776895490046`}, { 1.228108202599651, 0.6798845332626062}}], "Minister 4" -> Placed["Minister 4", {{0.8420013566774421, -0.1107659715724092}, { 0.1335699749884549, 1.15439211239901}}]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{2.7254676708650174`, 0.27376565156996885`}, { 1.8950460046575524`, 1.0748002242261958`}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{2.7254676708650174`, 0.27376565156996885`}, {2.0958691517096026`, 0.3409610690177539}, { 1.6290600676829377`, 0.7687446574348165}}], 0.02935630997966368], ArrowBox[{{2.7254676708650174`, 0.27376565156996885`}, { 1.387429579880225, 0.07053668260050439}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{2.7254676708650174`, 0.27376565156996885`}, {2.6760833522868364`, 0.6804679549208802}, { 2.8777422728272803`, 1.0370899596232137`}}], 0.02935630997966368], ArrowBox[{{1.8950460046575524`, 1.0748002242261958`}, { 0.9068057406680242, 0.}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.8950460046575524`, 1.0748002242261958`}, { 1.8063796394225828`, 0.48919562924048016`}, {1.387429579880225, 0.07053668260050439}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.8950460046575524`, 1.0748002242261958`}, { 1.4535625387033735`, 0.8316862931169741}, {0.9539585990137894, 0.898078594304774}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.6290600676829377`, 0.7687446574348165}, { 2.258658586838347, 0.7015492399870487}, {2.7254676708650174`, 0.27376565156996885`}}], 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 1.8950460046575524`, 1.0748002242261958`}}, 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 0.9068057406680242, 0.}}, 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 1.9000033903197493`, 0.25571078776256584`}}, 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 1.387429579880225, 0.07053668260050439}}, 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 0.6058897464823879, 0.4785408529409273}}, 0.02935630997966368], ArrowBox[{{1.6290600676829377`, 0.7687446574348165}, { 0.9539585990137894, 0.898078594304774}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.6290600676829377`, 0.7687446574348165}, { 2.2092742682601734`, 1.108251543337214}, {2.8777422728272803`, 1.0370899596232137`}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9068057406680242, 0.}, { 0.6776561281599539, 0.18978757554725365`}, {0.6058897464823879, 0.4785408529409273}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9068057406680242, 0.}, { 0.7827014547642662, 0.45679314841054675`}, {0.9539585990137894, 0.898078594304774}}], 0.02935630997966368], ArrowBox[{{1.9000033903197493`, 0.25571078776256584`}, { 1.8950460046575524`, 1.0748002242261958`}}, 0.02935630997966368], ArrowBox[{{1.9000033903197493`, 0.25571078776256584`}, { 0.9068057406680242, 0.}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.9000033903197493`, 0.25571078776256584`}, {1.6741666533118036`, 0.07883571480634767}, { 1.387429579880225, 0.07053668260050439}}], 0.02935630997966368], ArrowBox[{{1.9000033903197493`, 0.25571078776256584`}, { 0.6058897464823879, 0.4785408529409273}}, 0.02935630997966368], ArrowBox[{{1.9000033903197493`, 0.25571078776256584`}, { 0.9539585990137894, 0.898078594304774}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.9000033903197493`, 0.25571078776256584`}, {2.2603822567194225`, 0.8071804860829718}, { 2.8777422728272803`, 1.0370899596232137`}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.387429579880225, 0.07053668260050439}, { 1.4760959451151952`, 0.6561412775857917}, {1.8950460046575524`, 1.0748002242261958`}}], 0.02935630997966368], ArrowBox[{{1.387429579880225, 0.07053668260050439}, { 0.9068057406680242, 0.}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{1.387429579880225, 0.07053668260050439}, { 1.6132663168881711`, 0.24741175555673975`}, {1.9000033903197493`, 0.25571078776256584`}}], 0.02935630997966368], ArrowBox[{{1.387429579880225, 0.07053668260050439}, { 0.6058897464823879, 0.4785408529409273}}, 0.02935630997966368], ArrowBox[{{1.387429579880225, 0.07053668260050439}, { 0.9539585990137894, 0.898078594304774}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.6058897464823879, 0.4785408529409273}, { 0.8350393589904591, 0.28875327739365525`}, {0.9068057406680242, 0.}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.6058897464823879, 0.4785408529409273}, { 0.710935073086702, 0.745546425803684}, {0.9539585990137894, 0.898078594304774}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.6058897464823879, 0.4785408529409273}, { 0.45176982116947345`, 1.000958097167978}, {0.6378226625876978, 1.5128731962266597`}}], 0.02935630997966368], ArrowBox[{{0.6058897464823879, 0.4785408529409273}, {0., 0.5158895045091136}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9539585990137894, 0.898078594304774}, { 1.3954420649679709`, 1.1411925254150381`}, {1.8950460046575524`, 1.0748002242261958`}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9539585990137894, 0.898078594304774}, { 1.0780628849175473`, 0.44128544589423924`}, {0.9068057406680242, 0.}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9539585990137894, 0.898078594304774}, { 0.8489132724094751, 0.6310730214408058}, {0.6058897464823879, 0.4785408529409273}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.9539585990137894, 0.898078594304774}, { 0.5398267589981304, 0.5501143846032447}, {0., 0.5158895045091136}}], 0.02935630997966368], ArrowBox[{{0.6378226625876978, 1.5128731962266597`}, { 1.8950460046575524`, 1.0748002242261958`}}, 0.02935630997966368], ArrowBox[{{0.6378226625876978, 1.5128731962266597`}, { 1.6290600676829377`, 0.7687446574348165}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{0.6378226625876978, 1.5128731962266597`}, { 0.7919425879006129, 0.9904559519995342}, {0.6058897464823879, 0.4785408529409273}}], 0.02935630997966368], ArrowBox[{{0.6378226625876978, 1.5128731962266597`}, { 0.9539585990137894, 0.898078594304774}}, 0.02935630997966368], ArrowBox[{{0.6378226625876978, 1.5128731962266597`}, {0., 0.5158895045091136}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{2.8777422728272803`, 1.0370899596232137`}, { 2.9271265914054627`, 0.6303876562726614}, {2.7254676708650174`, 0.27376565156996885`}}], 0.02935630997966368], ArrowBox[{{2.8777422728272803`, 1.0370899596232137`}, { 1.8950460046575524`, 1.0748002242261958`}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{2.8777422728272803`, 1.0370899596232137`}, { 2.29752807225005, 0.697583073719606}, {1.6290600676829377`, 0.7687446574348165}}], 0.02935630997966368], ArrowBox[BezierCurveBox[{{2.8777422728272803`, 1.0370899596232137`}, { 2.5173634064276134`, 0.4856202613033525}, {1.9000033903197493`, 0.25571078776256584`}}], 0.02935630997966368], ArrowBox[{{0., 0.5158895045091136}, {0.9068057406680242, 0.}}, 0.02935630997966368], ArrowBox[{{0., 0.5158895045091136}, {1.387429579880225, 0.07053668260050439}}, 0.02935630997966368], ArrowBox[BezierCurveBox[{{0., 0.5158895045091136}, { 0.41413184001566006`, 0.8638537142108154}, {0.9539585990137894, 0.898078594304774}}], 0.02935630997966368]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.7254676708650174, 0.27376565156996885}, 0.02935630997966368], InsetBox["\<\"Minister 1\"\>", {2.753850369321681, 0.24404130831166598}, ImageScaled[{-0.01794714801992281, 1.0424304119958874}], BaseStyle->"Graphics"]}, { DiskBox[{1.8950460046575524, 1.0748002242261958}, 0.02935630997966368], InsetBox["\<\"P.Minister\"\>", {1.9026795876037168, 1.1151839160488035}, ImageScaled[{0.36069708903202946, -0.23694959053916953}], BaseStyle->"Graphics"]}, { DiskBox[{1.6290600676829377, 0.7687446574348165}, 0.02935630997966368], InsetBox["\<\"Minister 2\"\>", {1.6247244668631042, 0.8096141658653123}, ImageScaled[{0.5791190479303517, -0.2458151086258542}], BaseStyle->"Graphics"]}, { DiskBox[{0.9068057406680242, 0.}, 0.02935630997966368], InsetBox["\<\"Minister 3\"\>", {0.8992149739315439, -0.04039176171166173}, ImageScaled[{0.638521571105985, 1.2370968554663149}], BaseStyle->"Graphics"]}, { DiskBox[{1.9000033903197493, 0.25571078776256584}, 0.02935630997966368], InsetBox["\<\"Minister 4\"\>", {1.9200831859999263, 0.21985111738954563}, ImageScaled[{0.1335699749884549, 1.15439211239901}], BaseStyle->"Graphics"]}, { DiskBox[{1.387429579880225, 0.07053668260050439}, 0.02935630997966368], InsetBox["\<\"Minister 5\"\>", {1.3934992561349762, 0.029888519247385628}, ImageScaled[{0.38923634197950774, 1.241775850282226}], BaseStyle->"Graphics"]}, { DiskBox[{0.6058897464823879, 0.4785408529409273}, 0.02935630997966368], InsetBox["\<\"Minister 6\"\>", {0.5849178522679981, 0.4431955023714428}, ImageScaled[{0.8827096572055655, 1.1450064482480764}], BaseStyle->"Graphics"]}, { DiskBox[{0.9539585990137894, 0.898078594304774}, 0.02935630997966368], InsetBox["\<\"Minister 7\"\>", {0.9720240407717841, 0.9349940919704945}, ImageScaled[{0.17032930112124306, -0.17365958042678498}], BaseStyle->"Graphics"]}, { DiskBox[{0.6378226625876978, 1.5128731962266597}, 0.02935630997966368], InsetBox["\<\"Adviser 1\"\>", {0.6243811001331367, 1.5517118181460772}, ImageScaled[{0.7452909454293626, -0.20875408435533505}], BaseStyle->"Graphics"]}, { DiskBox[{2.8777422728272803, 1.0370899596232137}, 0.02935630997966368], InsetBox["\<\"Adviser 2\"\>", {2.9100133015972283, 1.0625398094449416}, ImageScaled[{-0.08890409382970721, 0.035573506063003135}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.5158895045091136}, 0.02935630997966368], InsetBox["\<\"Adviser 3\"\>", {-0.03989919750926874, 0.5060321117536392}, ImageScaled[{1.228108202599651, 0.6798845332626062}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->Automatic, ImageSize->{225, 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.771670648044874*^9, 3.771692179273431*^9, 3.77237078183291*^9, 3.772889360855802*^9}, CellLabel->"Out[2]="] }, Open ]], Cell["Summary properties:", "Text", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{"\"\\"", ",", "All"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[3]:="], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Name\"\>", "\<\"Discussion by Recognition Network\"\>"}, {"\<\"VertexCount\"\>", "11"}, {"\<\"EdgeCount\"\>", "48"}, {"\<\"Description\"\>", "\<\"Network of members that are discussed with \ by recall\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"9.044`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"]} }, AutoDelete->False, FrameStyle->RGBColor[0, 0, 0, 0.4], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> { RGBColor[0.92, 0.92, 0.9]}, "Rows" -> {{ RGBColor[0.985, 0.98, 0.973]}}}, GridBoxDividers->{"Columns" -> { RGBColor[0, 0, 0, 0.4], RGBColor[0, 0, 0, 0.3], { RGBColor[0, 0, 0, 0.09]}, RGBColor[0, 0, 0, 0.4]}, "Rows" -> { RGBColor[0, 0, 0, 0.4], { RGBColor[0, 0, 0, 0.08]}, RGBColor[0, 0, 0, 0.4]}}, GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{1.3}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}, "Rows" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}}, GridBoxSpacings->{"Columns" -> { Offset[1.4], { Offset[1.75]}, Offset[2.1]}, "Rows" -> { Offset[1.2], { Offset[0.48]}, Offset[0.4]}}], "Grid"]], "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.771670698744463*^9, 3.7728893615355864`*^9}, CellLabel->"Out[3]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Applications", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Show the discussions between members:", "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.769167416268371*^9, 3.769167444547776*^9}, 3.7691675152275887`*^9, {3.769875191194684*^9, 3.769875194521842*^9}, {3.771670138022665*^9, 3.771670156621894*^9}, 3.771688144095155*^9}], Cell[BoxData[ RowBox[{ RowBox[{"g", " ", "=", " ", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellLabel->"In[4]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"AdjacencyMatrix", "[", "g", "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression","SequenceIcon",GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1064", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],Dynamic[ Typeset`open]}, "IconizedObject"]], Sequence[FrameTicks -> {{ Thread[{ Range[11], VertexList[$CellContext`g]}], None}, {None, Thread[{ Range[11], Map[Rotate[#, 40 Degree]& , VertexList[$CellContext`g]]}]}}, Mesh -> True], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellLabel->"In[5]:="], Cell[BoxData[ GraphicsBox[{RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGDghmIQGwI+2FOLflglss794S17BhQwcOqp5X5SxQfK/bSm qRUOg83eoZJuByqch7r5gy1+ae3OgSpnBlu4jZbP9PHXQKXn4ZoeBlt5RWt/ Dbf6EQCUEg+J "], {{0, 0}, {11, 11}}, {0, 1}], { {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 11}, {11, 11}}, {{0, 10}, {11, 10}}, {{0, 9}, {11, 9}}, {{ 0, 8}, {11, 8}}, {{0, 7}, {11, 7}}, {{0, 6}, {11, 6}}, {{0, 5}, {11, 5}}, {{0, 4}, {11, 4}}, {{0, 3}, {11, 3}}, {{0, 2}, {11, 2}}, {{0, 1}, {11, 1}}, {{0, 0}, {11, 0}}}], Antialiasing->False]}, {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 0}, {0, 11}}, {{1, 0}, {1, 11}}, {{2, 0}, {2, 11}}, {{3, 0}, {3, 11}}, {{4, 0}, {4, 11}}, {{5, 0}, {5, 11}}, {{6, 0}, {6, 11}}, {{7, 0}, {7, 11}}, {{8, 0}, {8, 11}}, {{9, 0}, {9, 11}}, {{10, 0}, {10, 11}}, {{11, 0}, {11, 11}}}], Antialiasing->False]}}}, Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{10.5, FormBox["\"Minister 1\"", TraditionalForm]}, {9.5, FormBox["\"P.Minister\"", TraditionalForm]}, {8.5, FormBox["\"Minister 2\"", TraditionalForm]}, {7.5, FormBox["\"Minister 3\"", TraditionalForm]}, {6.5, FormBox["\"Minister 4\"", TraditionalForm]}, {5.5, FormBox["\"Minister 5\"", TraditionalForm]}, {4.5, FormBox["\"Minister 6\"", TraditionalForm]}, {3.5, FormBox["\"Minister 7\"", TraditionalForm]}, {2.5, FormBox["\"Adviser 1\"", TraditionalForm]}, {1.5, FormBox["\"Adviser 2\"", TraditionalForm]}, {0.5, FormBox["\"Adviser 3\"", TraditionalForm]}}, None}, {None, {{0.5, FormBox[ RotationBox["\"Minister 1\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {1.5, FormBox[ RotationBox["\"P.Minister\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {2.5, FormBox[ RotationBox["\"Minister 2\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {3.5, FormBox[ RotationBox["\"Minister 3\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {4.5, FormBox[ RotationBox["\"Minister 4\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {5.5, FormBox[ RotationBox["\"Minister 5\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {6.5, FormBox[ RotationBox["\"Minister 6\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {7.5, FormBox[ RotationBox["\"Minister 7\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {8.5, FormBox[ RotationBox["\"Adviser 1\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {9.5, FormBox[ RotationBox["\"Adviser 2\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {10.5, FormBox[ RotationBox["\"Adviser 3\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "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.769167390141818*^9, 3.769180958419593*^9, 3.769522267569483*^9, 3.770118819950658*^9, 3.771670129391148*^9, 3.771670709499872*^9, 3.772370779739938*^9, 3.772889363552825*^9}, GraphicsBoxOptions->{ImageSize->225}, CellLabel->"Out[5]="] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, DockedCells->{}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"d8f64981-1cab-4e85-ac54-efc9130cc9c2", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 24656, 515} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"d8f64981-1cab-4e85-ac54-efc9130cc9c2", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"af8248e9-962f-4cbe-93f2-991faef18b65"], Cell[931, 37, 35, 0, 70, "Text",ExpressionUUID->"ca0cb93b-7394-4023-a4ce-e24ae4712da1"], Cell[CellGroupData[{ Cell[991, 41, 179, 5, 70, "Input",ExpressionUUID->"a6547357-2416-4a89-82d8-b56a941bcd86"], Cell[1173, 48, 14434, 230, 70, "Output",ExpressionUUID->"c6ab284c-9241-4983-a865-88fb6d0c5bcd"] }, Open ]], Cell[15622, 281, 73, 1, 70, "Text",ExpressionUUID->"3244e5d6-b09a-4e9e-b634-dbb89f68bb04", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[15720, 286, 247, 7, 70, "Input",ExpressionUUID->"ea825e1b-0342-4f44-8568-936bd1d65f85"], Cell[15970, 295, 1778, 44, 70, "Output",ExpressionUUID->"8f4fe1db-517d-4768-bc88-e788aad025ca"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17797, 345, 231, 7, 70, "Subsection",ExpressionUUID->"bd1f89c3-2643-4713-aae0-8c57251d8a87"], Cell[18031, 354, 512, 7, 70, "Text",ExpressionUUID->"0ff908ae-e319-4146-8400-8931a6d7a6fb"], Cell[18546, 363, 187, 6, 70, "Input",ExpressionUUID->"367ff9d7-c415-406c-8623-c245c42b87ee"], Cell[CellGroupData[{ Cell[18758, 373, 1276, 33, 70, "Input",ExpressionUUID->"ea7b0152-876f-4369-b128-7d3a1d15225d"], Cell[20037, 408, 4200, 90, 70, "Output",ExpressionUUID->"ff502b25-56a2-46c9-ae99-3eb0a5996e01"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)