Я пытаюсь создать несколько гистограмм с помощью ggplot2. Он показывает отклонения от 0 и для первой переменной работает нормально, как вы можете видеть на рисунке 1.
Рисунок 1:
Но со вторым есть некоторые крайние выбросы, которые растягивают ось X, как можно видеть на рисунке 2, что является проблемой
Рисунок 2:
Поэтому я хотел бы добавить бин «больше 5», который включает все значения больше 5 (и наоборот для отрицательных значений).
Я нашел это решение, которое как раз то, что мне нужно, но я не могу понять, как его применить: https://edwinth.github.io/blog/outlier-bin/
Мой код:
library(ggplot2)
require(reshape2)
#Figure 1
ggplot(data = data, aes(x = data$V1*100)) +
geom_histogram(color="white", fill='#1E206B') +
geom_vline(xintercept = 0, color="black", linetype="dashed", size=1) +
labs(x = "Percentage change", y = "Counts") +
#xlim(-max(abs(data$V1))*100,max(abs(data$V1))*100) +
theme_bw()
#Figure 2
ggplot(data = data, aes(x = data$V2*100)) +
geom_histogram(color="white", fill='#1E206B') +
geom_vline(xintercept = 0, color="black", linetype="dashed", size=1) +
labs(x = "Percantage change", y = "Counts") +
#xlim(-max(abs(data$V2))*100,max(abs(data$V2))*100) +
theme_bw()