Question: Creating a Bar Chart

Help me rewrite the code to create visible Bar chart of different colors. I can't figure out why this code is not giving me a visible bar graph

restart; with(Statistics); with(plots); Data := [45, 38, 51, 67, 74, 91]; P := BarChart(Data, tickmarks = [[1 = "Chemical Vector Control", 2 = "Resistant Cultivars", 3 = "Roguing & Sanitation", 4 = "u1+u2", 5 = "u1+u3", 6 = "Integrated"], default], width = .75); T := textplot([[1, 48, "45%"], [2, 41, "38%"], [3, 54, "51%"], [4, 70, "67%"], [5, 77, "74%"], [6, 94, "91%"]], font = ["TIMES", "BOLD", 12]); display([P, T], title = "Figure 20: Comparative Effectiveness of Optimal Control Strategies", labels = ["Control Strategies", "Reduction in Coinfection Burden (%)"], labelfont = ["TIMES", "BOLD", 14], titlefont = ["TIMES", "BOLD", 16], axes = boxed, gridlines = true, view = [.5 .. 6.5, 0 .. 100], size = [1000, 650])

 
 

NULL

Download Bargraph.mw

Please Wait...