在r中绘制加权人口密度

Question

我正在分析R中的一批数据，并在上面绘制了人口密度。 我还想生成一个值密度图。 例如：

      dog.breed    weight.lbs
[1]   Labrador     63
[2]   Maltese      6
[3]   Dalmatian    55
[4]   Poodle       51
[5]   Maltese      4
[6]   Dalmatian    48
[7]   Poodle       56

标准密度图将计算每个品种的出现次数，然后输出一条漂亮的曲线，如下所示：

      dog.breed    x
[1]   Labrador     1
[2]   Maltese      2
[3]   Dalmatian    2
[4]   Poodle       2

但是，我试图获得的是一条类似的平滑曲线，用于跟踪每个品种的权重之和，如下所示：

      dog.breed    x
[1]   Labrador     63
[2]   Maltese      10
[3]   Dalmatian    103
[4]   Poodle       107

我可以通过建立一系列点（例如最后一个示例），然后拟合曲线来做到这一点。 但这很混乱。 我希望有人知道干净的包装可以完成繁重的工作。

谢谢您的帮助。

一些澄清：

另一个例子呢。 假设我有50家商店，对于我认识的每位顾客，以及他们每次来商店花费多少钱。 商店中顾客人数的密度图将显示有关每个商店有多少人光顾的信息。 我正在寻找相同的地块，但每个人在每个商店花多少钱。 嗯

Answer 1

如果使用的是基数R，则要查看aggregate ：

data <- read.table(text="dog.breed    weight.lbs
Labrador     63
Maltese      6
Dalmatian    55
Poodle       51
Maltese      4
Dalmatian    48
Poodle       56", header=TRUE, )

aggregate(. ~ dog.breed, data=data, sum)

#  dog.breed weight.lbs
#1 Dalmatian        103
#2  Labrador         63
#3   Maltese         10
#4    Poodle        107

如果您正在寻找一种无需进行任何操作即可直接从数据进行绘图的方法，则ggplot是您的朋友：

require(ggplot2)
ggplot(data, aes(x=dog.breed, y=weight.lbs)) +
  geom_bar(stat="identity")

ggplot(data, aes(x=dog.breed)) +
  geom_bar(aes(weight=weight.lbs))

第一张图为每个x绘制多个y值，其中geom_bar默认为position arg的"stack"值，从而得出x的总和。 第二个图起作用，因为geom_bar默认为stat_bin生成histogram，但指定了weight 。 两者都产生等效的输出：