How to change the word's color in string

Question

The picture I load is my target:

This is my code in mathematica

    StringTemplate["``Ratio is ``,``Ratio is ``,``Ratio is ``,"][
 Sequence @@ 
  Flatten@Transpose[{{Style["red", Red, Bold], 
      Style["green", Green, Bold], Style["blue", Blue, Bold]}, {0.1, 
      0.2, 0.3}}]]

But the result is

What's problem in my code?Can Anybody give some advice?

Try the option InsertionFunction -> (ToString[#, TraditionalForm] &) — Greg Hurst, Dec 01 '15 at 18:03
If the expression need not be a string, you could use Row. — Greg Hurst, Dec 01 '15 at 18:05
See here http://stackoverflow.com/questions/8956915/mathematica-how-to-have-text-in-multiple-colors — Quantum_Oli, Dec 01 '15 at 18:37
@ChipHurst that should be an answer. Perhaps more compact if you use InsertionFunction -> (ToString[Style@@#, TraditionalForm] &), then you can omit the Style from each list item. — george2079, Dec 01 '15 at 20:05
Related: "Highlighting pattern strings in a large text," also (7732). — Alexey Popkov, Dec 02 '15 at 03:14

score 5 · Accepted Answer · answered Dec 01 '15 at 18:42

5

Row@MapThread[
  Row[{Style[#1, ToExpression@#1, Bold], " Ratio is ", #2, #3}] &,
  {{"Red", "Green", "Blue"}, {0.1, 0.2, 0.3}, {", ", ", ", ""}}]

answered Dec 01 '15 at 18:42

eldo

67,911
5
60
168

score 3 · Answer 2 · answered Apr 15 '22 at 05:22

TemplateApply[
 StringTemplate["`` Ratio is ``, `` Ratio is ``, `` Ratio is ``"], 
 Flatten[Transpose[{ToString[#, StandardForm] & /@ {Style["Red", Red, 
       Bold], Style["Green", Green, Bold], 
      Style["Blue", Blue, Bold]}, {0.1, 0.2, 0.3}}]]]

score 2 · Answer 3 · answered Apr 15 '22 at 07:48

As per How to join Styled strings

str = StringJoin[
  ToString[Style["red ", Red], StandardForm],
  "Ratio is 0.1, ",
  ToString[Style["green ", Green], StandardForm],
  "Ratio is 0.2, ",
  ToString[Style["blue ", Blue], StandardForm],
  "Ratio is 0.3"]

StringQ[str]

True

How to change the word's color in string

3 Answers3