四分位数范围

Question

poll_iqr <- as.data.frame(sapply(pollutants, IQR, na.rm = TRUE))
names(poll_iqr)<-'IQR'
poll_est_iqr <- cbind(poll_est, poll_iqr)

我想获得这个循环sapply函数的5-95％四分位数范围。任何想法如何我可以从25-75％的默认值更改它。提前致谢