在多个图（格子？）上绘制组的平均值

Question

这里是R新手。我正在尝试创建多个图，如所附屏幕截图所示：

（图表只是模型）但运行使用 ggplot / xyplot 时遇到困难。

我的目标是创建多个图表，使我们能够比较 months/years 中的趋势，并在图表上为每个部门单独划线。我的数据集当前包含以下列：利润、部门、年、月。有多行包含每个 dept/year/month 的利润值，我需要对其进行分组和平均。

我发现最接近这样做的方法是使用下面的 ggplot，但我当前的代码不允许我为不同的部门和不同年份的多个图获取多行图表。它应该能够做到这一点，但谷歌搜索让我陷入了 ggplot 是否是正确选择的圈子。

例如

ggplot(deptProfit,aes(x=Month,y=Profit))+
     stat_summary(fun.y=mean,geom="line",color="blue",linetype=2)+
     stat_summary(fun.y=mean,geom="point", pch=1,size=3)+
     scale_x_continuous(breaks=deptProfit$Month)+
     facet_grid(~Region)+
     theme_bw()

接受有关如何在屏幕截图中创建图表的任何建议。谢谢！

示例数据：

Region=c(1,1,1,1,2,2,2,2,0,0,0,0,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1,1,1,1,2,2)

Year= c(2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2014,2014,2015,2015,2016,2016,2014,2014,2015,2015,2016,2016,2017,2017)

Dept= c(sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing,sales,marketing)

Profit =c(16,24,29,24,41,51,71,66,78,73,88,117,23,23,25,28,65,51,54,44,49,66,76,94,20,18,25,25,24,17,69,56)

月 = c(9,12,9,7,4,1,5,5,9,6,3,3,7,10,7,9,7,7,7,12,4 ,1,8,6,5,7,5,3,9,6,10,8)

Answer 1

你快到了。如果我理解正确的话，我认为你不需要 stat_summary.

这里缺少很多数据，但希望这是一个开始：

首先创建数据框deptProfit:

deptProfit <- data.frame(Region=c(1,1,1,1,2,2,2,2,0,0,0,0,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1,1,1,1,2,2),
               Year= c(2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2017,2017,2013,2013,2014,2014,2015,2015,2016,2016,2014,2014,2015,2015,2016,2016,2017,2017),
               Dept= c("sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing","sales","marketing"),
               Profit =c(16,24,29,24,41,51,71,66,78,73,88,117,23,23,25,28,65,51,54,44,49,66,76,94,20,18,25,25,24,17,69,56),
               Month = c(9,12,9,7,4,1,5,5,9,6,3,3,7,10,7,9,7,7,7,12,4,1,8,6,5,7,5,3,9,6,10,8))

现在我们可以绘图了：

library(ggplot2)    
ggplot(deptProfit,aes(x=Month, y=Profit, color = Dept))+
  geom_line(linetype = 2) +
  geom_point(pch = 1, size = 3) +
  scale_x_continuous(breaks=1:12)+
  facet_grid(Year ~ Region)+
  theme_bw()

在上面，我们将 Dept 映射到 color 美学，因此它们将被单独绘制。现在美学已经正确映射，我们可以调用 geom_line 和 geom_point。最后，使用facet_grid，我们可以设置水平（Year）和垂直（Dept）类别。

这应该给你以下内容：

在多个图（格子？）上绘制组的平均值

Plotting average of groups on multiple graphs (lattice?)

r

ggplot2

lattice