Collectives™ on Stack Overflow

Find centralized, trusted content and collaborate around the technologies you use most.

Learn more about Collectives

Teams

Q&A for work

Connect and share knowledge within a single location that is structured and easy to search.

Learn more about Teams library(ggh4x) data <- data.frame(col1=c("Sample1","Sample2","Sample3","Sample4","Sample5","Sample6"), col2=c(0.5,0.1,0.4,0.05,0.05,0.9), col3=c(0.6,0.1,0.3,0.1,0.1,0.8), col4=c(0.5,0.3,0.2,0.05,0.15,0.8), col5=c("a","a","a","b","b","b"), col6=c("c","c","c","c","c","c")) data2 <- melt(data) ggplot(data=data2, aes(x = variable, y = value, fill=col1))+ geom_bar(position="stack", stat="identity")+ scale_fill_manual(values=c("#e6194B","#ffe119","#f58231","#911eb4","#42d4f4","#bfef45")) + scale_y_continuous(expand = c(0, 0),labels = scales::percent) + facet_nested(~col6 + ~col5, scales = "free_x",space = "free_x",switch = "x") + ggtitle("Title") + theme_classic() + theme(strip.text.y = element_text(angle=0),legend.position = "right", legend.key.size = unit(0.4, 'cm'), axis.line = element_line(colour = "black"), axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1), strip.placement = "outside", strip.background = element_rect(color = "white", fill = "white"), axis.title = element_blank()) + guides(fill=guide_legend(title=NULL, ncol = 1)) + xlab("X axis") + ylab("Y axis")

Which creates a barplot like this: Please take a look

My question is simple, how can I set y-axis starting value to 10% instead of 0% (without changing the code too much). All answers are greatly appreciated! (Similar questions are checked, without success...)

While in general not recommended for bar charts one option to "set" the starting point would be to set the limits via coord_cartesian :

library(ggplot2)
library(ggh4x)
ggplot(data = data2, aes(x = variable, y = value, fill = col1)) +
  geom_bar(position = "stack", stat = "identity") +
  scale_fill_manual(values = c("#e6194B", "#ffe119", "#f58231", "#911eb4", "#42d4f4", "#bfef45")) +
  scale_y_continuous(expand = c(0, 0), labels = scales::percent) +
  facet_nested(~ col6 + ~col5, scales = "free_x", space = "free_x", switch = "x") +
  ggtitle("Title") +
  theme_classic() +
  theme(
    strip.text.y = element_text(angle = 0), legend.position = "right",
    legend.key.size = unit(0.4, "cm"),
    axis.line = element_line(colour = "black"),
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
    strip.placement = "outside",
    strip.background = element_rect(color = "white", fill = "white"),
    axis.title = element_blank()
  guides(fill = guide_legend(title = NULL, ncol = 1)) +
  xlab("X axis") +
  ylab("Y axis") +
  coord_cartesian(ylim = c(.1, NA))
                Formerly, I have tried ylim(), but that doesn't help. This does work and doesn't give an error. Thx!
– Thend
                Jun 20, 2022 at 6:40
        
Thanks for contributing an answer to Stack Overflow!
Please be sure to answer the question. Provide details and share your research!
But avoid …
Asking for help, clarification, or responding to other answers.
Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.