7

我正在使用 ggplot 和 facet_wrap 来获取所需的图。我必须在每个 facet 的标签或变量或每个 facet 的名称中添加一些东西,就像我们如何直接在 ggplot 下修改 xlab 和 ylab 一样。

例子:

d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) +
  xlim(0, 2) + stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1)

d + facet_wrap(~ color)

在此处输入图像描述

我现在要做的就是将每个方面的标签 i,e D,E,F,G,H,I,J 更改为其他内容。

我该如何修改这个?

添加

抱歉,我试图打破它,但它需要时间,所以我已将它添加到 github 中。您可以上传文件并检查结果。问题在于选项 4 facet_wrap ...您可以选择单选按钮选项 4。

我已经评论了我在数据完整性良好的情况下使用的先前 facet_wrap,但是如果我更改 facet wrap,则图形的行为会有所不同,数据也会有所不同。

要上传的数据可以在“要上传的数据”文件夹中找到

代码可以在这里找到:我会在一分钟内添加这个

4

2 回答 2

8

虽然这是一个非常古老的问题,但我想回答它,因为我学到了一个简单的方法!

该解决方案与 facet_wrap() 一起使用,并且也无需以任何方式更改您的数据。

text.on.each.panel <-"_new"
d <- ggplot(diamonds, aes(carat, price)) +
     xlim(0, 2) 
d + facet_wrap(~ color, labeller = label_bquote(.(color)-.(text.on.each.panel)))
于 2016-07-04T18:53:50.087 回答
6

据我所知,facet_grid在这种情况下可能是一个更好的解决方案。facet_grid不仅可以帮助您按一个变量对图进行分组,还可以按两个甚至更多,有一个名为的参数labeller,旨在自定义标签。

myfunction <- function(var, string) {
  print(var)
  print(string)
  result <- paste(as.character(string),'_new', sep="")
  return(result)
}

ggplot(diamonds, aes(carat, price, fill = ..density..)) + xlim(0, 2) + 
  stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1) + facet_grid(~color, labeller=myfunction, as.table=TRUE)

# OUTPUT
[1] "color"
[1] D E F G H I J
Levels: D < E < F < G < H < I < J

在此处输入图像描述

as.table但是,如您所见,情节是一排的,我认为即使您基于此处打开标志,我认为它也不容易分成多行。

如果您添加一个专门用于标签的新列,您认为是否可行?然后你可以保持facet_wrap...的真棒

diamonds$label <- paste(as.character(diamonds$color), "_new", sep="")
ggplot(diamonds, aes(carat, price, fill = ..density..)) + xlim(0, 2) + 
  stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1) + facet_wrap(~label)

在此处输入图像描述

于 2014-11-20T02:41:42.347 回答