使用数据框中的表绘制多行图

Question

我试图绘制一个多线图来表示一个频率表，这样在x轴下的图形下，它还给出了表格中每个系列的实际值。 例如：

如果在x轴上绘制3个值 - 1,2,3;
A系列的频率为1 - 2倍，2 - 5倍，3 - 7倍; B系列的频率是1-7倍，2-5倍，3-3倍。

然后在折线图的x轴下，形成表格，使得两个系列的频率列在每个x值下。

虽然我可以使用 ggplot 创建多线图，但我不确定如何添加表格。

Answer 1

您可以这样做：

df <- data.frame(group = c("A", "A", "A", "B", "B", "B"), 
                 x = c(1, 2, 3, 1, 2, 3), 
                 y = c(2, 5, 7, 7, 5, 3))
library(ggplot2)
plt <- ggplot(data = df, aes(x = x, y = y, group = group, colour = group)) +
  geom_line() +
  geom_point()
tbl <- tableGrob(t(df), rows = NULL,
                 theme = ttheme_minimal())
# Plot and table together
library(gridExtra)
grid.arrange(plt, tbl,
             nrow = 2,
             as.table = TRUE,
             heights = c(3,1))