Densityplot（）平均价格为9个汽车品牌

Question

我想将我的数据绘制为密度图，其中有2003年至2006年的4年。 我的部分数据如下所示:(县，年，x =平均价格）

SFO          2003-01-01  464592.0
Alameda      2003-01-01  452649.4
Santa Clara  2003-01-01  767437.5
San Mateo    2003-01-01  543756.1
Napa         2003-01-01  691220.3
Contra Costa 2003-01-01  699626.9

我试过densityplot( ~ price | county, housing)，但这不是我想要的。 它给了我这样的东西。 虽然我尝试了lines()

，但我无法在一个密度图中创建多行

如果我使用plot()，它会给出： 这不是我想要的......

我想要的是一个密度图，其中有6条不同颜色的线代表该县。 X轴将是年份，而y-sxis将是价格。

请帮帮我！谢谢！

Answer 1

这不是密度图。要绘制一个县的平均价格作为年份的函数，这将是您学习使用aggregate或plyr的一个很好的借口。为了保持尽可能简单，这是一种不使用强大功能的笨重方法。假设您的数据框名称为“county”，“year”和“price”。

sfomean <- sapply(unique(data$year), function(x) mean(data[(data$county=='SFO' & data$year==x),3])

对其他县名重复，或在

中包装上面的行

sapply(unique(data$county),function(y) sapply(unique(data$year), function(x) mean(data[(data$county==y & data$year==x),3]) )