Re: Applying Apply
- To: mathgroup at smc.vnet.net
- Subject: [mg107792] Re: [mg107782] Applying Apply
- From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
- Date: Fri, 26 Feb 2010 04:06:12 -0500 (EST)
- References: <201002252238.RAA17105@smc.vnet.net>
Hi,
what about
#1 /. Text[str_, cord_] :> Text[Style[str, #2], cord] & @@@
Transpose[{plabel, textColours}]
?
Cheers
Patrick
Am Feb 25, 2010 um 11:38 PM schrieb Chris Degnen:
> 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]
>
- References:
- Applying Apply
- From: Chris Degnen <degnen@cwgsy.net>
- Applying Apply