r - ggplot2 の密度プロットを切り取る

Question

私が使う

frame <- read.table(paste('data', fname, sep="/"), sep=",", header=TRUE)
colnames(frame) <- c("pos", "word.length")
plot <- ggplot(frame, aes(x=pos, y=word.length)) + xlim(0,20) + ylim(0,20) + geom_density2d() + stat_density2d(aes(color=..level..))
png(paste("graphs/", fname, ".png", sep=""), width=600, height=600)
print(plot)
dev.off()

プロットを作成しますが、途切れます。これを修正するにはどうすればよいですか?

http://ompldr.org/vZTN0eQ

このプロットを作成するために使用したデータ: http://sprunge.us/gKiL

Answer 1

ggplot2 book によると、そのscale_x_continuous(limits=c(1,20))代わりに使用xlim(1,20)します。