R中的点图（与点图相对）

Question

我正在尝试编写一个能够产生我认为的真实点图的函数（与Cleveland品种不同，我需要一个单变量的散点图，其中的点堆叠为（几乎）相等的值） 。我已经接近了：

在此图中，您看到的点实际上是小写＆＃34; o＆＃34; s的旋转文本字符串。这样做是因为如果重新缩放绘图，我需要点间距保持不变。但是，我喜欢比小写＆＃34; o更好的东西，例如填充点而不是圆圈。如果我可以访问用于标准绘图符号的字体（pch = 1:25函数和亲戚中的plot），则可以执行此操作。然后我可以用该字体制作一个文本字符串，并获得所需的内容。有人知道怎么做吗？

PS - 不，带有大量垃圾箱的直方图不是可接受的替代品。

Answer 1

我确实找到了一种方法来使用低级图形参数获得所需的点图（即＆＃34; usr＆＃34;，绘图区域的实际用户坐标，以及＆＃34; cxy＆＃34;，字符大小）。 recordGraphics()函数包装了调整图形大小时需要更改的部分。这是功能：

dot.plot = function(x, pch = 16, bins = 50, spacing = 1, xlab, ...) {
  if(missing(xlab))
    xlab = as.character(substitute(x))

  # determine dot positions
  inc = diff(pretty(x, n = bins)[1:2])
  freq = table(inc * round(x / inc, 0))
  xx = rep(as.numeric(names(freq)), freq)
  yy = unlist(lapply(freq, seq_len))

  # make the order of the dots the same as the order of the data
  idx = seq_along(x)
  idx[order(x)] = idx
  xx = xx[idx]
  yy = yy[idx]

  # make a blank plot
  plot(xx, yy, type = "n", axes = FALSE, xlab = xlab, ylab = "")

  # draw scale
  axis(1)
  ylow = par("usr")[3]
  abline(h = ylow) # extend to full width

  # draw points and support resizing
  recordGraphics({
      yinc = 0.5 * spacing * par("cxy")[2]
      points(xx, ylow + yinc * (yy - .5), pch = pch, ...)
    },
    list(),
    environment(NULL))

  invisible()
}

如果您希望点之间的间隙更紧或更宽松，可以使用spacing参数。一个例子......

with(iris, dot.plot(Sepal.Length, col = as.numeric(Species)))

这是一个比尝试使用文本更好的解决方案，但由于您在recordGraphics

的文档中看到的警告，这也有点可怕