agop (version 0.2.4)

plot_producer: Draws a Graphical Representation of a Numeric Vector

Description

Draws a step function that represents a numeric vector with elements in \([a,\infty]\).

Usage

plot_producer(
  x,
  type = c("left.continuous", "right.continuous", "curve"),
  extend = FALSE,
  add = FALSE,
  pch = 1,
  col = 1,
  lty = 1,
  lwd = 1,
  cex = 1,
  col.steps = col,
  lty.steps = 2,
  lwd.steps = 1,
  xlab = "",
  ylab = "",
  main = "",
  xmarg = 10,
  xlim = c(0, length(x) * 1.2),
  ylim = c(a, max(x)),
  a = 0,
  ...
)

Value

nothing interesting

Arguments

x

non-negative numeric vector

type

character; 'left.continuous' (the default) or 'right.continuous' for step functions and 'curve' for a continuous step curve

extend

logical; should the plot be extended infinitely to the right? Defaults to FALSE

add

logical; indicates whether to start a new plot, FALSE by default

pch, col, lty, lwd, cex, xmarg

graphical parameters

col.steps, lty.steps, lwd.steps

graphical parameters, used only for type of 'left.continuous' and 'right.continuous' only

ylim, xlim, xlab, ylab, main, ...

additional graphical parameters, see plot.default

a

single numeric value

Details

In agop, a vector \(x=(x_1,\dots,x_n)\) can be represented by a step function defined for \(0\le y<n\) and given by: $$\pi(y)=x_{(n-\lfloor y+1\rfloor+1)}$$ (for type == 'right.continuous') or for \(0< y\le n\) $$\pi(y)=x_{(n-\lfloor y\rfloor+1)}$$ (for type == 'left.continuous', the default) or by a curve interpolating the points \((0, x_{(n)})\), \((1, x_{(n)})\), \((1, x_{(n-1)})\), \((2, x_{(n-1)})\), ..., \((n, x_{(1)})\). Here, \(x_{(i)}\) denotes the \(i\)-th smallest value in \(x\).

In bibliometrics, a step function of one of the two above-presented types is called a citation function.

For historical reasons, this function is also available via its alias, plot.citfun [but its usage is deprecated].

Examples

john_s <- c(11,5,4,4,3,2,2,2,2,2,1,1,1,0,0,0,0)
plot_producer(john_s, main="Smith, John", col="red")