修复轴标签中的排版

Question

序言：我想从 R 创建出版级图形，而无需后处理。 我研究所的其他研究人员总是在图形软件（如 Adob​​e Illustrator）中进行后处理。 我希望避免这种情况。

我的抱怨是 R 没有对负数使用正确的减号（尤其是在绘图轴中）：

plot(-20:-1, rnorm(20) + 1 : 20)

（我已圈出违规者供您考虑。）

作为有点排版的书呆子（这是真的！检查我的职业简历！）这是不可接受的。 我需要在这里使用正确的 Unicode 字符 ᴍɪɴᴜꜱ ꜱɪɢɴ (U+2212, “−”)。 我的一个朋友通过在发布之前替换 Adob​​e Illustrator 中的所有减号来实现这一点，但我不禁认为必须有更好的方法 - 从 R 中 - 来实现这一点； 并且不会强迫我手动替换所有轴标签。

（我目前没有使用 ggplot2，但如果有一个只适用于 ggplot2 的解决方案，我会很乐意接受它。）

Answer 1

也许手动绘制轴和标签，而不是接受默认值？

plot(-20:-1, rnorm(20) + 1 : 20, xaxt="n")
Axis(-20:-1, at=seq(-20,-5,5), side=1,
  labels=paste("\U2212",seq(20,5,-5),sep=""))

Answer 2

另一种与 Joshua Ulrich 提供的方法几乎相同的方法，除了您可以让 R 计算轴刻度：

plot(-20:-1, rnorm(20) + 1 : 20, xaxt="n")
at <- axTicks(1, usr=par("usr")[1:2])
labs <- gsub("-", "\U2212", print.default(at))
axis(1, at=at, labels=labs)

Answer 3

以下是如何使用 ggplot 执行此操作。 pdf设备不呈现 unicode 符号，因此请改用cairo_pdf 。

unicode_minus <- function(x) sub('^-', '\U2212', format(x))

# change the default scales
scale_x_continuous <- function(..., labels=unicode_minus)
                        ggplot2::scale_x_continuous(..., labels=labels)
scale_y_continuous <- function(..., labels=unicode_minus)
                        ggplot2::scale_y_continuous(..., labels=labels)

qplot(-20:-1, rnorm(20) + 1:20)

Answer 4

这是一个修复点阵图轴标签的黑客。 这个想法是在低级函数panel.axis()插入代码，它被大多数/所有高级绘图函数调用。

这里（上面和下面有几行上下文）是您将在调用library(lattice); trace("panel.axis", edit=TRUE) “手动”插入的代码library(lattice); trace("panel.axis", edit=TRUE) library(lattice); trace("panel.axis", edit=TRUE) ：

if (draw.labels && !is.null(labels)) {
    {
        labels <- gsub("-", "\U2212", labels)  ## <- My addition
        Encoding(labels) <- "UTF-8"            ## <- My addition
        just <- if (outside) 
            switch(side, bottom = if (rot[1] == 0) c("centre", 

一个更好的选择（一旦你已经推测了at=参数的正确值（ 并在此处查看执行此操作的几种方法））是运行以下命令：

library(lattice)

trace(what = "panel.axis",
      tracer = quote({labels <- gsub("-", "\U2212", labels)
                      Encoding(labels) <- "UTF-8"}),
      at = list(c(30,3,2,2)))

在我检查过的许多屏幕或文件图形设备中的任何一个上打印刻度标签中的正确减号

要在您自己的屏幕设备上进行比较，请直接运行上面的代码块，然后：

xyplot(1:10 ~ -1:-10)
untrace("panel.axis")
windows()
xyplot(1:10 ~ -1:-10)

Answer 5

新包的签名完全符合 OP 的要求。 这是网站上的一个例子：

library(dplyr)
library(ggplot2)
library(ggrepel)

theme_set(theme_gray())
theme_update(panel.grid.minor = element_blank())

p <- 
  ggplot(sleep) +
  aes(group, extra) +
  geom_point() +
  xlab("Drug") +
  ylab("Extra Sleep (hours)")

label_hours <- function(mapping) {
  geom_text_repel(
    mapping,
    nudge_x       = -.1,
    direction     = "y",
    segment.size  = .4,
    segment.color = "grey75",
    hjust         = "right"
  )
}

p +
  label_hours(
    mapping = aes(
      label = case_when(
        group == 1 ~ signs(extra, accuracy = .1), # Unicode minuses
        group == 2 ~ number(extra, accuracy = .1) # ASCII minuses
      )
    )
  ) +
  scale_y_continuous(
    limits = c(-4, 6),
    breaks = seq(-4, 6),
    labels = signs_format(accuracy = .1) # Unicode, analogous to number_format() 
  )