Обрезать обе оси диаграммы рассеяния на 99% квантилях, чтобы исключить выбросы в R

Question

У меня большой фрейм данных. Я хотел бы создать точечный график, где визуальные выбросы обрезаются по обеим осям в 99% квантилях.

   A     B
a  1     2999
b  700   2
c  665   6
d  1778  3
e  4     4890

Так выглядит после построения графика A против B.

Answer 1

Опция 1

График по логарифмической шкале c, т. Е.

plot(x = A, y = B, log="xy")

Опция 2

Вы можете использовать функцию quantile():

quant_a <- quantile(A, 0.99)
quant_b <- qunatile(B, 0.99)

plot(x = A, y = B, xlim = c(0,quant_a), ylim = c(0, quant_b))