Я строю диаграмму фасетной обертки с использованием гистограмм, и я отмечаю, что есть некоторые длинные вертикальные линии, которые влияют на остальную часть диаграммы, о которой я хотел бы показать больше. Я знаю, что можно вручную удалить данные из строк и добавить стрелку вверх, чтобы указать, насколько далеко они на самом деле достигают, но мне было интересно, есть ли у R функция, которая будет делать это с минимальным (или вообще не) воздействием на данные. У меня есть некоторый код, но данные, которые я собираю, составляют более 400 000 записей, и я не уверен, как реализовать отображение с помощью Rnorm.
Код:
library(ggplot2)
library(gridExtra)
library(scales)
#_______________________________________________________________________________________________________________
dat <- read.table("C:/Projects/....T2S4.txt",
sep="\t", header=TRUE)
df<-data.frame(dat)
df$dist_f <- factor(df$dist, levels=c('Unused','Deducted','Carryover','Used'),ordered=TRUE)
ggplot(df)+
geom_histogram(aes(x=points,fill=type),bins=50,position="dodge") +
facet_wrap(.~dist_f,scales="free")+
labs(x="Points",y="Number of Members")+
scale_fill_manual(values=c("gray", "indianred4"))+
theme(axis.title.y = element_text(size="14",margin = margin(t = 0, r = 10, b = 0, l = 0)),axis.title.x = element_text(size="14"),
axis.text.x=element_text(size=10),axis.text.y=element_text(size=12),legend.title=element_blank(),legend.position=c(0.85, 0.90),
legend.box.background = element_rect(),legend.box.margin = margin(2, 2, 2, 2),legend.text= element_text(size=12))
grid.rect(width = 1.0, height = 1.0, gp = gpar(lwd = 2.5, col = "black", fill = NA))
Диаграмма:
