R 使用ecdf中的所有值，但应用xlimit

我想用

ecdf

绘制他的数据[1]，数据严重倾斜。代码是

df <- data.frame(x=eval(parse(file("http://sprunge.us/XYJK"))))
ggplot(df, aes(x=x)) + xlim(0,100) + geom_line(stat='ecdf')

---

df请阅读
？xlim
并了解您可以这样做：

ggplot(df, aes(x=x)) + geom_line(stat='ecdf') + coord_cartesian(xlim = c(0,100))

请找到一种不使用
eval（parse（））
共享数据的方法。