Hello, I like these elegant BarChart solutions. I’m a beginner and took a more “direct” approach. But then I thought how to bring some uniqueness to the solution. I thought it would be cool to use a speech synthesizer that verbalizes the height of the histogram bars. I found a speech synthesizer but the problem I face is how to take the adjustable bar height numerical value; convert it to text; and have the text inserted into the speech synthesizer. Any suggestions would be very helpful . I've attached my bar-chart program.

Thank you very much, Andrew Skipor

Attachments:

colored barchart.nb

Thank you very much.This is a big help! Andrew Skipor

Here's mine:

Manipulate[
 BarChart[{a, b, c, d}, ChartStyle -> "DarkRainbow", 
  ColorFunction -> 
   Function[{x}, 
    Directive[ ColorData["DarkRainbow"][x], 
     EdgeForm[{Thickness[x/100], Dashed, RandomColor[]}]]], 
  ChartLabels -> {"a", "b", "c", "d"}, PlotRange -> {0, 10}, 
  ImagePadding -> 10], {{a, 2}, Range[0, 10]}, {{b, 4}, Range[0, 10], 
  ControlType -> SetterBar}, {{c, 6}, 0, 10, 1}, {{d, 8}, 
  Button["Pick a number between 0 and 10", 
    d = RandomInteger[{0, 10}]] &}, 
 ControlPlacement -> {Top, Top, Bottom, Bottom}]

Manipulate[
 BarChart[{a, b, c, d},
  PlotRange -> {0, 10},
  LabelingFunction -> Top,
  ChartLabels -> Placed[{"a", "b", "c", "d"}, Above],
  ColorFunction -> "Rainbow"],
 {a, 0, 10}, {b, 0, 10}, {c, 0, 10}, {d, 0, 10}]

Daily Challenge (Day 12): This one is again from EIWL (Chapter 9).

Make a Manipulate to show a bar chart with 4 bars, each with a height that can be between 0 and 10

(*A little bit memory intensive but nice*)
threeLavaredoPeaks = 
  GeoElevationData[Entity["Mountain", "TreCimeDiLavaredo"], 
    GeoRange -> Quantity[5, "Kilometers"], 
    GeoProjection -> Automatic, GeoZoomLevel -> 12] // Reverse;
(*Plots. Mouse over contour line will show tooltip with height value*)
GraphicsRow[{
  GeoContourPlot[
   Reverse@GeoElevationData[
     GeoBoundingBox[
      GeoDisk[Entity["Mountain", "TreCimeDiLavaredo"], 
       Quantity[5, "Kilometers"]]], Automatic, "GeoPosition", 
     GeoZoomLevel -> 12], GeoBackground -> "Satellite", 
   ContourStyle -> White, ImageSize -> 450],
  ListContourPlot[threeLavaredoPeaks, ColorFunction -> "DarkTerrain", 
   ContourLabels -> Automatic, ImageSize -> 600], 
  ReliefPlot[threeLavaredoPeaks, ColorFunction -> "DarkTerrain", 
   ImageSize -> 550]
  }, Spacings -> {10, 0}, ImageSize -> 1000]

(*3D plot*)
ListPlot3D[threeLavaredoPeaks, Mesh -> None, 
 ColorFunction -> "DarkTerrain", ImageSize -> 900]

nearestMountain = GeoNearest["Mountain", Here] // First;
elevationData = 
 GeoElevationData[nearestMountain,
   GeoRange -> Quantity[5, "Kilometers"],
   UnitSystem -> "Metric"];

ListContourPlot[Reverse@elevationData, ColorFunction -> "LightTerrain"]

Turns out that the mountain nearest me has higher elevations within 5 km than the mountain itself.

This is GREAT!

Hi, Abrita,

I have modified a little your code:

Graphics[Table[{RGBColor[i^2/100, j^2/100, 1 - (i^2 + j^2)/200], 
   EdgeForm[
    Directive[Opacity[.977], Dashed, 
     Thickness[RandomReal[{0.05, 0.1}]], Opacity[.87], 
     Hue[(i^2 + j^2)/200]]], Disk[{i, j}, RandomReal[{.5, 1.}]]}, {i, 
   10}, {j, 10}]]

to obtain the following result:

WOW , Real Nice!!!!

Stephen Wolfram is a colorful character.

sw = Entity["PopularCurve", "StephenWolframCurve"]["Graphics"];

SeedRandom[314];
sw /. RGBColor[___] :> RandomColor[] /. AbsoluteThickness[1] -> AbsoluteThickness[2] /. 
  Axes -> False