To do so, first read the data

data = read.table(“myfile.txt”)

Then, you can check how data is distributed

quantile(data, c(.02, .05, .10, .50, .90, .95, .98))

An example output would be

2% 5% 10% 50% 90% 95% 98%

189 190 190 194 241 275 316

Now, to plot your data discarding the 1% lowest values and 1% higher values, you could use

x <- quantile(data, c(.01, .99))

Now, to plot your data discarding the 1% lowest values and 1% higher values, you could use

x <- quantile(data, c(.01, .99))

And then

plot(data, xlim=c(x[[1]], x[[2]]))

plot(data, xlim=c(x[[1]], x[[2]]))