我有test.data
如下示例数据。
income expend id
9142.7 1576.2 1
23648.75 2595 2
9014.25 156 1
4670.4 604.4 3
6691.4 3654.4 3
14425.2 66 2
8563.45 1976.2 2
2392 6 1
7915.95 619.2 3
4424.2 504.2 2
我首先ddply
用来获取每个 id 的平均收入和支出
library(plyr)
group<-ddply(test.data, .id,summarize, income.mean=mean(income),expend.mean=mean(expend))
现在,我使用 plot 函数来ggplot2
绘制income.mean and expend.mean
id.
library (ggplot2)
plot.income<-qplot(id,income.mean,data=group)
plot.expend<-qplot(id,expend.mean,data=group)
虽然上面的代码运行没有任何错误,但我正在寻找在 ddply 中组合 qplot 函数的有效方法,反之亦然。另外,如果我需要结合这两个图,我该怎么做?
谢谢 。