主页 / 问题 / 859443
Accepted
Alexshev92
Asked:2020-07-24 13:42:20 +0000 UTC2020-07-24 13:42:20 +0000 UTC

将包含统计信息的表格添加到图表

  • 772

我有一个像这样构建的图表

library(ggplot2)

x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x, y)

dt <- data.frame(x, y, z)
g <- ggplot(dt, aes(x = x, y = y))

g <- g + geom_point(aes(color = z)) + scale_color_gradient(low="blue", high="red")

plot(g)

我想在图表上方添加一个带有一些统计信息的表格：总分、带值的点、带值z < -1的点、带值-1 <= z <= 1的点z > 1。我试图通过添加一个表格annotation_custom()，但结果太歪了。也许还有其他方法可以在图表上方添加表格？

r

1 个回答

  1. Best Answer

    使用库制作gridExtra。也许有一个更简单的解决方案。如果是这样，那么如果有人分享，我会很高兴，直到我带上自己的。

    我们计算所需间隔内的点数并收集矩阵

    all <- length(z)
z1 <- length(z[z < -1])
z2 <- length(z[z >= - 1 & z <= 1])
z3 <- length(z[z > 1])

stat <- matrix(c(all, z1, z2, z3),ncol=4,byrow=TRUE)
colnames(stat) <- c("Всего", "(...;-1)", "[-1; 1]", "(1; ...)")

    使用tableGrob_

    table <- tableGrob(stat, rows = NULL)

    我们指出图表将占据画布上的多少部分，即 表格 - 1/6，图表 - 5/6。

    lay <- rbind(c(1),
             c(2),
             c(2),
             c(2),
             c(2),
             c(2))

    建立表格和图表

    grid.arrange(table, g, layout_matrix = lay)

    结果：

    日程

    • 0

相关问题