using Gadfly, Compose
set_default_plot_size(14cm, 8cm)
plot(sin, 0, 2pi, Guide.annotation(compose(context(),
Shape.circle([pi/2, 3*pi/2], [1.0, -1.0], [2mm]),
fill(nothing), stroke("orange"))))
using Gadfly, RDatasets
set_default_plot_size(14cm, 8cm)
Dsleep = dataset("ggplot2", "msleep")[:,[:Vore,:BrainWt,:BodyWt,:SleepTotal]]
DataFrames.dropmissing!(Dsleep)
Dsleep.SleepTime = Dsleep.SleepTotal .> 8
plot(Dsleep, x=:BodyWt, y=:BrainWt, Geom.point, color=:SleepTime,
Guide.colorkey(title="Sleep", labels=[">8","≤8"]),
Scale.x_log10, Scale.y_log10 )
using Gadfly, Compose, RDatasets
set_default_plot_size(21cm, 8cm)
iris = dataset("datasets","iris")
pa = plot(iris, x=:SepalLength, y=:PetalLength, color=:Species, Geom.point,
Theme(key_position=:inside) )
pb = plot(iris, x=:SepalLength, y=:PetalLength, color=:Species, Geom.point,
Guide.colorkey(title="Iris", pos=[0.05w,-0.28h]) )
hstack(pa, pb)
using DataFrames, Gadfly, RDatasets
set_default_plot_size(21cm, 7cm)
points = DataFrame(index=rand(0:10,30), val=rand(1:10,30))
line = DataFrame(val=rand(1:10,11), index=collect(0:10))
p1 = plot(layer(points, x=:index, y=:val, color=[colorant"green"]),
layer(line, x=:index, y=:val, Geom.line),
Guide.manual_color_key("Legend", ["Points", "Line"], ["green", "deepskyblue"],
shape=[Shape.circle, Shape.hline]))
D = groupby(dataset("COUNT", "titanicgrp"), :Class)
fn1(s,c) = 100*s./sum(c)
D = combine(D, :Age, :Sex, [:Survive, :Cases]=>fn1=>:prcnt)
p2 = plot(stack(D, [:Age, :Sex]), xgroup=:Class,
Geom.subplot_grid(layer(x=:variable, y=:prcnt, color=:value, Geom.bar)),
Scale.x_discrete, Guide.ylabel("Survival (% Class)"),
Guide.manual_color_key("Age", ["children","adults"], 1:2),
Guide.manual_color_key("Sex", ["female","male"], 3:4),
Theme(bar_spacing=1mm, key_position=:none,
key_swatch_shape=Shape.square, point_size=4pt))
hstack(p1, p2)