ggplot2クリップデータ

Question

データファイル：このクリップのようにそれのいくつかの上記データをプロットhttp://ubuntuone.com/3x5z4kFEUcVUB8KXYjICpD

：この一方

tc = read.table('tertiary-tc.csv', header=T, sep=',') 
library(ggplot2) 
old <- theme_set(theme_bw()) 
pg <- ggplot(tertiary, aes(Conductivity)) + stat_density(geom = 'path' 
    , position = 'identity') + facet_wrap(~Lithology) 
print(pg) 

はない：

library(lattice) 
densityplot(~Conductivity | Lithology 
    , data = tc 
    , groups=Lithology 
    , plot.points=T 
    , ref = T 
    , main="Density plot" 
    , auto.key=F 
    , scales=list(tck=-1)) # set to a negative to plot inside ticks? Works! 
dev.off() 

プロットされていない点（すぐにしか見えない点）は、Lithology列の下に「ドロマイト」として分類された2点です。 ggplot2はオフスケールであるためプロットしていませんか？または、2つのポイントしかないので？このような

Answer 1

何か問題があるあなたは、それが何らかの形でトリミング見える理由

density2 <- function(x, select, ...){ 
    n <- nrow(x) 
    range <- range(x[[select]]) 
    xgrid <- seq(range[1], range[2], length=200) 

    weight <- rep(1, n)/n 
    d <- density(x[[select]], ..., 
        weight=weight, from=range[1], to=range[2]) 

    as.data.frame(d[c("x","y")]) 

} 


summaries <- ddply(tc, "Lithology", density2, select="Conductivity") 

ggplot(summaries, aes(x, y)) + facet_wrap(~Lithology) + 
    geom_path() 

が、私はdensity()