MathGroup Archive 2010

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

Search the Archive

Re: Applying Apply

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107795] Re: Applying Apply
  • From: Raffy <adraffy at gmail.com>
  • Date: Fri, 26 Feb 2010 04:06:47 -0500 (EST)
  • References: <hm6u23$gke$1@smc.vnet.net>

On Feb 25, 2:36 pm, Chris Degnen <deg... at cwgsy.net> wrote:
> Can anyone suggest an elegant way to apply a function - in this case a
> Style - to elements in a list.
> In the example below I'm applying colours to their names.  (I don't
> know how Text is being used so I aimed to preserve the original
> structure).  As you can see it took me two lines to splice in the
> colour styles.  I thought I should have been able to do it in one, but
> couldn't figure out how.
>
> plabel = {Text["Orange", {10, 44}], Text["Blue", {10, 50}],
>    Text["Green", {2, 99}], Text["Red", {2, 20}]};
> textColours = {Orange, Blue, Green, Red};
> plabel2 =
>   Append[Transpose[Apply[{#1, #2} &, plabel, 1]], textColours];
> plabel = Apply[Text[Style[#1, #3], #2] &, Transpose[plabel2], 1]

MapThread[Function[{p, c}, MapAt[Style[#, c] &, p, 1]], {plabel,
textColours}]


  • Prev by Date: ListLinePlot with null value
  • Next by Date: Re: auto-save in Mathematica
  • Previous by thread: Re: Applying Apply
  • Next by thread: Re: Applying Apply