在rPivotTable中绘制多个图表

Question

我想在rPivotTable中绘制多个列。

这是我的数据集。

data_plot = data.frame(month = c(1,2,3,1,2,3), SALES = c(47, 90, 23, 75, 19, 28), promotions = c(3,4,2,5,1,2))
rpivotTable(data_plot)

see here for pivot Table 1

see here for pivot Table 2

我想使用使用rPivotTable的折线图查看销售与促销的差异。但是我无法同时可视化这两个变量。 有什么办法吗？

Answer 1

如果将data_plot从宽格式更改为长格式，则两个变量都可以绘制在一张图中：

library(data.table)
library(rpivotTable)
rpivotTable(melt(data_plot, id.var = "month"))

要进行重塑，请使用melt()中的data.table函数。

melt(data_plot, id.var = "month")

   month   variable value
1      1      SALES    47
2      2      SALES    90
3      3      SALES    23
4      1      SALES    75
5      2      SALES    19
6      3      SALES    28
7      1 promotions     3
8      2 promotions     4
9      3 promotions     2
10     1 promotions     5
11     2 promotions     1
12     3 promotions     2