ggplot中轴/变量标签的键值映射

Question

我经常使用具有“R 友好”/“程序员友好”列名的数据框，通常没有空格和/或缩写（在进行分析时懒得输入全名）。例如：

ir <- data.frame(
   sp=iris$Species,
   sep.len=iris$Sepal.Length,
   sep.wid=iris$Sepal.Width,
   pet.len=iris$Petal.Length,
   pet.wid=iris$Petal.Width
)

当我用 ggplot 绘制这些时，我经常想用“用户友好”的列名替换标签，例如

p <- ggplot(ir, aes(x=sep.len, y=sep.wid, col=sp)) + geom_point() +
  xlab("sepal length") + ylab("sepal width") + 
  scale_color_discrete("species")

问题：有没有办法指定标签映射传递给 ggplot ？

lazy.labels <- c(
  sp     ='species',
  sep.len='sepal length',
  sep.wid='sepal width',
  pet.len='petal length',
  pet.wid='petal width'
)

然后做类似的事情

p + labs(lazy.labels)

甚至

p + xlab(lazy.labels[..x..]) + ylab(lazy.labels[..y..])

..x..，..y.. 是一些自动 ggplot 变量，其中包含当前 X/Y 变量的名称？ （然后我可以将这些注释放入一个方便的函数中，而不必为每个图形更改它们）

当我在报表中绘制许多图时，这特别有用。我总是可以用“用户友好”列重命名ir，但是我必须做很多

ggplot(ir, aes(x=`sepal length`, y=`sepal width`, ...

因为都是空格，有点麻烦。

Answer 1

我深入研究了 ggplot 对象并想出了这个：好处是您不需要提前知道映射

library(ggplot2)

ir <- data.frame(
  sp = iris$Species,
  sep.len = iris$Sepal.Length,
  sep.wid = iris$Sepal.Width,
  pet.len = iris$Petal.Length,
  pet.wid = iris$Petal.Width
)

p <- ggplot(ir, aes(x=sep.len, y=sep.wid, col=sp)) +
     geom_point() +
     scale_color_discrete("species")


## for lazy labels

lazy.labels <- c(
  sp     ='species',
  sep.len='sepal length',
  sep.wid='sepal width',
  pet.len='petal length',
  pet.wid='petal width'
)

p$labels <-lapply(p$labels,function(x){as.character(lazy.labels[x])})

或者，使用函数：

plot_with_labels <- function(p, l) {
  p$labels <- lapply(p$labels, function(x) { as.character(l[x]) } )
  return(p)
}

plot_with_labels(p, lazy.labels)

Answer 2

如果您的图表始终相同，一种解决方案是提前创建标签，使用列表将美学映射到新名称以替换默认名称。那么你就可以 使用labs(lazy.labels)。

ir <- data.frame(
  sp = iris$Species,
  sep.len = iris$Sepal.Length,
  sep.wid = iris$Sepal.Width,
  pet.len = iris$Petal.Length,
  pet.wid = iris$Petal.Width
)
library(ggplot2)
# mapping aesthetics names to labels
lazy.labels <- list(
  col = 'species',
  x = 'sepal length',
  y ='sepal width'
)
p <- ggplot(ir, aes(x = sep.len, y = sep.wid, col = sp)) + 
  geom_point() +
  labs(lazy.labels)

由reprex package (v0.2.0) 于 2018 年 7 月 9 日创建。