如何找到用ggplot2创建的两个密度图的交集
来自名为组合式的数据框架的示例
futureChange direction
2009-10-26 0.9980446 long
2008-04-28 1.0277389 not long
2012-07-09 1.0302413 not long
2010-11-15 1.0017247 not long
我使用此代码创建密度图。
ggplot(combined, aes(futureChange, fill = direction))
geom_density(alpha = 0.2)
我正在用高斯混合近似一个分布,并想知道是否有一种简单的方法可以自动地用ggplot2将整个(单维)数据集的估计内核密度绘制成组件密度之和,就像这样:
考虑到下面的示例数据,我在ggplot2中的方法是手动将子集密度绘制成缩放的总体密度,如下所示:
#example data
a<-rnorm(1000,0,1) #component 1
b<-rnorm(1000,5,2) #component 2
d<-c(a,b) #overall data
df<-data.frame(d,id=rep(c(1,2),each=1000)) #add group id
这段代码
final ApplicationInfo ai = getPackageManager().getApplicationInfo("com.company.hello", 0);
final Drawable d = getPackageManager().getApplicationIcon(ai);
即使在我的高密度HoneyComb设备上也可以提取48x48 (mdpi)。
考虑到我可以放大Bitmap.createScaledBitmap绘制的图形,我想知道如何提取已经存在的hi密度图标。getDrawableForDensity方法对于sdk < 1
问题描述
我有几千行(大约4000行)我想要情节。然而,使用geom_line()绘制所有的线条是不可行的,而仅仅使用alpha=0.1来说明哪里有高密度的线条,哪里没有。我偶然发现了,尤其是答案的第二部分看起来非常好,但是如果ggplot2中可以实现类似的东西,我现在就不会了。因此,如下所示:
示例数据集
用一个显示模式的集合来演示这一点会更有意义,但现在我只生成了随机的窦性曲线:
set.seed(1)
gen.dat <- function(key) {
c <- sample(seq(0.1,1, by = 0.1), 1)
time <- se