:
b <- c(1:10, 20)
par(mfrow = c(1,2))
boxplot(b, range=1.5)
vioplot(b, range=1.5 )

R boxplot ( ggplot help ):
, 1.5 * IQR , IQR - .
vioplot, upper[i] <- min(q3[i] + range*iqd, data.max)
.
:
quantile(b, 0.75) + 1.5 * IQR(b)
max(b[b <= quantile(b, 0.75) + 1.5 * IQR(b)])