r - ggplot2中的构面网格中的相关值

Question

在ggplot2中使用facet_grid时，我希望能够在特定图的右上角具有每个网格单元的子集数据的相关性值。

例如如果正在运行:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p + facet_grid(vs ~ am, margins=TRUE)

我想看到某处网格中9个图的每一个的相关值。在此示例中，从外观检查来看，我希望每个值都接近-0.9左右。

或者，可能是一个输出表与该图一起给出，该图给出了表中每个单元与facet_grid匹配的相关值...(这不太理想，但也是一种选择)。

理想情况下，我想将此扩展到我选择的任何其他函数，以便它可以使用绘制的两个变量中的一个或两个来计算统计信息。

这可能吗？

提前致谢

Answer 1

温斯顿·张(Winston Chang)对ggplot2组提出了一个答案...这就是他说的...这不是一个坏答案...

您可以执行以下操作:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()

# Calculate correlation for each group
cors <- ddply(mtcars, c("vs", "am"), summarise, cor = round(cor(mpg, wt), 2))

p + facet_grid(vs ~ am) +
geom_text(data=cors, aes(label=paste("r=", cor, sep="")), x=30, y=4)

我认为不可能以margins = TRUE正确显示出来。如果需要页边距，则可能需要预处理数据以为每个构面变量添加ALL值。

-温斯顿