Я хотел бы спросить, как я могу изменить вид оси y в этом примере. Я не хочу делать какие-либо преобразования, я просто хотел бы иметь даже разрывы, но определяемые мной (в моем собственном реальном примере у меня есть лоты в диапазоне 0: 300 и один высокий бар в одной категории, поэтому я хотел бы повысить нижние бары)
set.seed(123)
df <- data.frame(c(rnorm(20,10,2),rnorm(30,50,5),rnorm(25,5,0.5)),
c(rnorm(75,60,20)),
c(rep("A",20),rep("B",30),rep("C",25)))
colnames(df) <- c("bags","dist","source")
df %>%
mutate(bin = cut(dist, breaks = c(min(dist),18, 30,40, 50, max(dist)))) %>% # specify ranges
group_by(source, bin) %>%
summarise(sum_number = sum(bags)) %>%
ungroup() %>%
ggplot(aes(bin, sum_number, fill=source))+
geom_col()+
xlab("Km")+
ylab("Number of bags")+
scale_fill_manual(values = c("#a6611a","#dfc27d","#bababa"),
labels = unique(df$source),
name = "")+
scale_y_continuous(limits = c(0,1200), breaks =
c(0,50,100,150,200,250,300,500,1000),
labels = c("0", "50", "100","150", `"200","250","300", "500","1,000")) +`
theme_minimal()
Приведенный выше код применяет только выбранные тики, но не масштабирует ось Y, что мне и нужно.
