ggplot-rs 0.8.0

A Rust implementation of ggplot2's Grammar of Graphics
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

//! Issue #50 — plot.title.position, plot.tag.position (+ legend.direction).
use ggplot_rs::prelude::*;

fn data() -> Vec<(String, Vec<Value>)> {
    vec![
        (
            "x".to_string(),
            (0..10).map(|i| Value::Float(i as f64)).collect(),
        ),
        (
            "y".to_string(),
            (0..10).map(|i| Value::Float((i % 3) as f64)).collect(),
        ),
    ]
}

fn tag_y(pos: TagPosition) -> f64 {
    let svg = GGPlot::new(data())
        .aes(Aes::new().x("x").y("y"))
        .geom_point()
        .tag("TAGMARK")
        .tag_position(pos)
        .render_svg_with_size(400, 300)
        .unwrap();
    let i = svg.find("TAGMARK").unwrap();
    let seg = &svg[svg[..i].rfind("<text").unwrap()..i];
    let yi = seg.find("y=\"").unwrap() + 3;
    seg[yi..].split('"').next().unwrap().parse().unwrap()
}

#[test]
fn tag_position_moves_the_tag() {
    assert!(
        tag_y(TagPosition::TopLeft) < tag_y(TagPosition::BottomLeft),
        "bottom tag should be lower than top tag"
    );
}

fn title_x(pos: TitlePosition) -> f64 {
    let mut t = theme_minimal();
    t.title.hjust = 0.0; // left-align so position matters
    let svg = GGPlot::new(data())
        .aes(Aes::new().x("x").y("y"))
        .geom_point()
        .theme(t)
        .title_position(pos)
        .title("TITLEMARK")
        .render_svg_with_size(400, 300)
        .unwrap();
    let i = svg.find("TITLEMARK").unwrap();
    let seg = &svg[svg[..i].rfind("<text").unwrap()..i];
    let xi = seg.find("x=\"").unwrap() + 3;
    seg[xi..].split('"').next().unwrap().parse().unwrap()
}

#[test]
fn title_position_plot_is_left_of_panel() {
    // Plot-width title (left edge = plot margin) sits left of the panel-left title.
    assert!(
        title_x(TitlePosition::Plot) < title_x(TitlePosition::Panel),
        "plot-position title should start further left"
    );
}