agop (version 0.2-2)

plot_producer: Draws a Graphical Representation of a Given Vector

Description

Draws a step function that represents given 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, ...)

Arguments

x

non-negative numeric vector

type

character; type of the graphical '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

Value

nothing interesting

Details

In agop, a given 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 joining 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

# NOT RUN {
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")
# }