using Gadfly
set_default_plot_size(21cm, 8cm)
palettef = Scale.lab_gradient("darkgreen", "orange", "blue")
p1 = plot(x=1:10, y=rand(10), color=1:10, Geom.point,
Scale.color_continuous(colormap=palettef, minvalue=0, maxvalue=10),
Guide.title("Scale.color_continuous, Theme(alphas=[0.5])"),
Theme(alphas=[0.5], continuous_highlight_color=identity,
point_size=2mm)
)
p2 = plot(x=1:10, y=rand(10), alpha=1:10, Geom.point,
Scale.alpha_continuous(minvalue=0, maxvalue=10),
Guide.title("Scale.alpha_continuous, Theme(default_color=\"blue\")"),
Theme(default_color="blue", discrete_highlight_color=c->"gray",
point_size=2mm)
)
hstack(p1, p2)
using DataFrames, Gadfly
set_default_plot_size(21cm, 8cm)
D = DataFrame(x=1:6, y=rand(6), Shape=repeat(["a","b","c"], outer=2))
coord = Coord.cartesian(xmin=0, xmax=7, ymin=0, ymax=1.0)
p1 = plot(D, x=:x, y=:y, color=:x, coord,
Scale.color_discrete, Geom.point, Geom.hair,
Guide.title("Scale.color_discrete, Theme(alphas=[0.5])"),
Theme(alphas=[0.5], discrete_highlight_color=identity,
point_size=2mm)
)
p2 = plot(D, x=:x, y=:y, alpha=:x, shape=:Shape, coord,
Scale.alpha_discrete, Geom.point, Geom.hair,
Guide.title("Scale.alpha_discrete, Theme(default_color=\"green\")"),
Theme(default_color="green", discrete_highlight_color=c->"gray",
point_size=2mm, alphas=[0.0,0.2,0.4,0.6,0.8,1.0])
)
hstack(p1,p2)
using Gadfly
set_default_plot_size(21cm, 8cm)
xdata, ydata, cdata = rand(12), rand(12), rand(12)
p1 = plot(x=xdata, y=ydata, color=cdata)
p2 = plot(x=xdata, y=ydata, color=cdata,
Scale.color_continuous(minvalue=-1, maxvalue=1))
hstack(p1,p2)
using Gadfly, Colors
set_default_plot_size(21cm, 8cm)
x = repeat((1:10).-0.5, inner=[10])
y = repeat((1:10).-0.5, outer=[10])
p1 = plot(x=x, y=y, color=x+y, Geom.rectbin,
Scale.color_continuous(colormap=p->RGB(0,p,0)))
p2 = plot(x=x, y=y, color=x+y, Geom.rectbin,
Scale.color_continuous(colormap=Scale.lab_gradient("green", "white", "red")))
p3 = plot(x=x, y=y, color=x+y, Geom.rectbin,
Scale.color_continuous(colormap=p->RGB(0,p,0), minvalue=-20))
hstack(p1,p2,p3)
using Gadfly, Colors, RDatasets, Random
set_default_plot_size(14cm, 8cm)
Random.seed!(1234)
function gen_colors(n)
cs = distinguishable_colors(n,
[colorant"#FE4365", colorant"#eca25c"],
lchoices = Float64[58, 45, 72.5, 90],
transform = c -> deuteranopic(c, 0.1),
cchoices = Float64[20,40],
hchoices = [75,51,35,120,180,210,270,310])
convert(Vector{Color}, cs)
end
iris = dataset("datasets", "iris")
plot(iris, x=:SepalLength, y=:SepalWidth, color=:Species,
Geom.point, Scale.color_discrete(gen_colors))
using Gadfly, Random
set_default_plot_size(21cm, 8cm)
Random.seed!(1234)
xdata, ydata = rand(12), rand(12)
p1 = plot(x=xdata, y=ydata, color=repeat([1,2,3], outer=[4]))
p2 = plot(x=xdata, y=ydata, color=repeat([1,2,3], outer=[4]), Scale.color_discrete)
hstack(p1,p2)
using Gadfly, Random
Random.seed!(12345)
set_default_plot_size(14cm, 8cm)
plot(x=rand(12), y=rand(12), color=repeat(["a","b","c"], outer=[4]),
Scale.color_discrete_manual("red","purple","green"))
using Gadfly, RDatasets, DataFrames
set_default_plot_size(14cm, 8cm)
hecolor = dataset("datasets","HairEyeColor")
D = combine(groupby(hecolor, [:Eye,:Sex]), :Freq=>sum=>:Frequency)
palette = ["brown","blue","tan","green"] # Is there a hazel color?
pa = plot(D, x=:Sex, y=:Frequency, color=:Eye, Geom.bar(position=:stack),
Scale.color_discrete_manual(palette...))
pb = plot(D, x=:Sex, y=:Frequency, color=:Eye, Geom.bar(position=:stack),
Scale.color_discrete_manual(palette[4:-1:1]..., order=[4,3,2,1]))
hstack(pa,pb)
using DataFrames, Gadfly, RDatasets
set_default_plot_size(18cm, 8cm)
labs = ["exp", "sqrt", "log", "winsor", "linear"]
funcs = [x->60*(1.0.-exp.(-0.2*x)), x->sqrt.(x)*10, x->log.(x)*10,
x->clamp.(x,5,26), x->x*0.6]
x = [1.0:30;]
D = vcat([DataFrame(x=x, y=f(x), linev=l) for (f,l) in zip(funcs, labs)]...)
D[134:136,:y] .= NaN
p1 = plot(D, x=:x, y=:y, linestyle=:linev, Geom.line)
p2 = plot(dataset("datasets", "CO2"), x=:Conc, y=:Uptake,
group=:Plant, linestyle=:Treatment, color=:Type, Geom.line,
Scale.linestyle_discrete(order=[2,1]),
Theme(key_position=:top, key_title_font_size=-8mm))
hstack(p1,p2)
using Gadfly, RDatasets, Statistics
set_default_plot_size(14cm, 8cm)
tips = dataset("reshape2", "tips")
tipsm = combine(groupby(tips, [:Day, :Sex]), [:TotalBill, :Tip].=>mean)
plot(tipsm, Geom.point,
x=:TotalBill_mean, y=:Tip_mean, color=:Sex, shape=:Day,
layer(x=:TotalBill_mean, y=:Tip_mean, group=:Day, Geom.line,
color=[colorant"gray"]),
Scale.shape_discrete(levels=["Thur","Fri","Sat","Sun"]),
Guide.shapekey(pos=[14.5, 3.8]), Guide.colorkey(pos=[16, 3.87]),
Theme(discrete_highlight_color=identity, alphas=[0.1],
point_size=5pt, key_swatch_color="slategray")
)
using Gadfly, RDatasets
set_default_plot_size(21cm, 8cm)
aq = dropmissing(dataset("datasets","airquality"))
aq = filter(x-> 7≤x.Month≤9, aq)
sizemap(p::Float64; min=0.75mm, max=3mm) = min + p*(max-min)
labels = ["July", "August", "September"]
coord = Coord.cartesian(xmin=0, xmax=32, ymin=0, ymax=160)
plot(aq, x=:Day, y=:Ozone, color=:Month, size=:Wind,
coord, Scale.color_discrete,
Guide.colorkey(title="", labels=labels, pos=[2,240]),
Scale.size_area(sizemap, minvalue=4, maxvalue=16),
Guide.sizekey(title="Wind (mph)"), Guide.xlabel("Day of Month"),
Theme(key_swatch_shape=Shape.circle, key_swatch_color="gray",
discrete_highlight_color=identity, alphas=[0.5])
)
using Compose, Gadfly, RDatasets
set_default_plot_size(14cm, 8cm)
D = groupby(dataset("datasets", "Titanic"), :Class)
Titanic = combine(D, :, :Freq=>(c->100*c./sum(c))=>:prcnt)
filter!(:Survived=>x->x=="Yes", Titanic)
sizemap = n->range(4pt, 12pt, length=n)
plot(Titanic, Scale.x_log10, Scale.y_log10,
x=:Freq, y=:prcnt, size=:Class, color=:Age, shape=:Sex,
Scale.size_discrete2(sizemap, levels=["1st","2nd","3rd","Crew"]),
Guide.colorkey(pos=[0.1, -0.3h]), Guide.shapekey(pos=[0.5, -0.31h]),
Guide.ylabel("% of Passenger Class"),
Theme(discrete_highlight_color=identity, alphas=[0.1], key_swatch_color="grey")
)