in reply to Re^2: Bioperl newbie - Bio::Graphics::Glyph::xyplot
in thread Bioperl newbie - Bio::Graphics::Glyph::xyplot
#!/usr/bin/perl use strict; use warnings; use Bio::DB::GFF; use Bio::Graphics::Panel; use Bio::DB::GFF::Aggregator; use Bio::Graphics::Glyph::xyplot; my $agg = Bio::DB::GFF::Aggregator->new(-method => 'repeat_density', - +sub_parts => 'density:repeat'); my $db = Bio::DB::GFF->new(-dsn => 'mydatabase', -aggregators => $agg); my $segment = $db->segment('Chr1'); my $features = $segment->features('repeat_density'); my $panel = Bio::Graphics::Panel::->new(-pad_left=>40,-pad_right=>40); $panel->add_track($features, -glyph => 'xyplot', -graph_type => 'points', -point_symbol => 'disc', -point_radius => 4, -scale => 'both', -height => 200, );
|
|---|