Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: DiagramPlot and PlanarGraphPlot colors

• To: mathgroup at smc.vnet.net
• Subject: [mg128050] Re: DiagramPlot and PlanarGraphPlot colors
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Tue, 11 Sep 2012 02:34:49 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20120909213324.167C06765@smc.vnet.net>

Needs["ComputationalGeometry`"]

data2D = {
   {4.4, 14}, {6.7, 15.25}, {6.9, 12.8},
   {2.1, 11.1}, {9.5, 14.9}, {13.2, 11.9},
   {10.3, 12.3}, {6.8, 9.5}, {3.3, 7.7},
   {0.6, 5.1}, {5.3, 2.4}, {8.45, 4.7},
   {11.5, 9.6}, {13.8, 7.3}, {12.9, 3.1},
   {11, 1.1}};

p1 = DiagramPlot[data2D];

p2 = PlanarGraphPlot[data2D];

Graphics[{
  Red,
  AbsoluteThickness[1.5],
  Tooltip[
   Cases[p1, Line[_], Infinity],
   "Diagram Plot"],
  Green,
  Tooltip[
   Cases[p2, Line[_], Infinity],
   "Planar Graph Plot"],
  Black,
  Cases[p1, Text[x__] :>
    Style[Text[x], Bold, 14], Infinity]}]


Bob Hanlon


On Mon, Sep 10, 2012 at 4:04 AM, Dave Snead <dsnead6 at charter.net> wrote:
> Hi,
>
> I'm showing two plots p1 and p2 on top of each other,
> but I'd like to show them in two different colors,
> say red and green.
> Anybody know how to do this?
>
> Here's the code with both plots in black:
>
> Needs["ComputationalGeometry`"]
> data2D = {{4.4, 14}, {6.7, 15.25}, {6.9, 12.8}, {2.1, 11.1}, {9.5,
>     14.9}, {13.2, 11.9}, {10.3, 12.3}, {6.8, 9.5}, {3.3, 7.7}, {0.6,
>     5.1}, {5.3, 2.4}, {8.45, 4.7}, {11.5, 9.6}, {13.8, 7.3}, {12.9,
>     3.1}, {11, 1.1}};
> p1 = DiagramPlot[data2D]
> p2 = PlanarGraphPlot[data2D]
> Show[{p1, p2}]
>
> Thanks in advance,
> Dave
>
>

• References:
  • How to simplify certain covariance expressions using
    • From: hewei2004@gmail.com