ggplot2 qplot 中只有一个观察值但有 2 个点？答案

【问题标题】：Only one observation but 2 points in ggplot2 qplot?ggplot2 qplot 中只有一个观察值但有 2 个点？
【发布时间】：2014-01-27 21:20:30
【问题描述】：

我想在 ggplot2 qplot 中按学科显示出版日期。 data$DISCIPLINE 是我的因子，包含 10 个级别。

这是我的数据的样子：

> head(cbind(data$DATE,data$DISCIPLINE))
     [,1]   [,2]                   
[1,] "2001" "Politikwissenschaften"
[2,] "2006" "Geographie"           
[3,] "1999" "Soziologie"           
[4,] "2013" "Architektur"          
[5,] "2007" "Soziologie"           
[6,] "2004" "Soziologie"

我制作的qplot如下：

require(ggplot2)
MYPLOT <- qplot(data$DATE, data$DISCIPLINE)
MYPLOT + geom_point(aes(size=..count..), stat="bin") + scale_size(range=c(0, 15))

当然，我希望不绘制具有 0 个观察值的箱 - 这就是我将范围最小值设置为 0 的原因。至少，这是有效的。

然而奇怪的是，单个观察在情节中获得了两个点。例如，请参阅级别 “Soziologie”，情节中有 2 个点 在 80 年代初期，尽管我的数据集中只有一个观察结果。

这是 ggplot2 中的错误吗？我该如何纠正它？

【问题讨论】：

你能分享你的数据（或它的样本）吗？如果您运行ggplot(data, aes(x=DATE, y=DISCIPLINE) + geom_point(aes(size=..count..), stat="bin") + scale_size(range=c(0, 15))，它是否已修复
我的数据头添加到我的问题中。我试过你的代码，它没有解决问题。
这很奇怪，你能给我们看一下你的数据摘要吗？

标签： r plot ggplot2

【解决方案1】：

这是你想要的吗？

MYPLOT <- qplot(data$DATE, data$DISCIPLINE)
MYPLOT + geom_point() + stat_sum(aes(size = ..n..))

【讨论】：

感谢 matt_k，解决了问题！尽管我的数据中没有 NA，但我不得不添加 geom_point(na.rm=T)。不要问我为什么。