Gallery: Histograms (S-Lang)

add_histogram("spectrum.fits[fit][cols x,y]");

variable tbl = read_file("spectrum.fits[fit]");
variable xlo = get_colvals(tbl,"xlo");
variable xhi = get_colvals(tbl,"xhi");
variable y = get_colvals(tbl,"y");
add_histogram(xlo,xhi,y,{"line.color","red"});
log_scale(X_AXIS);

variable tbl = read_file("histogram.fits");
variable xlo = get_colvals(tbl,"xlo");
variable xhi = get_colvals(tbl,"xhi");
variable y = get_colvals(tbl,"y");
add_histogram(xlo,xhi,y,{"line.style","longdash","dropline",1});

variable tbl = read_file("histogram.fits");
variable xlo = get_colvals(tbl,"xlo");
variable xhi = get_colvals(tbl,"xhi");
variable y = get_colvals(tbl,"y");
variable dylo = get_colvals(tbl,"dylo");
variable dyhi = get_colvals(tbl,"dyhi");
variable hist = ChipsHistogram;
hist.dropline = 1;
hist.line.color = "red";
hist.symbol.style = "diamond";
hist.symbol.size = 4.0;
hist.symbol.fill = 1;
hist.symbol.color = "orange";
hist.err.color = "green";
hist.fill.visible = 1;
hist.fill.opacity = "0.2";
hist.fill.color = "blue";
add_histogram(xlo,xhi,y,dylo,dyhi,hist);

% Move the histogram behind the axes so that the tick marks are not hidden
shuffle_back(chips_histogram);