NOT work with legend.position = "inside".

[whooooong]

The legend did not show up when setting legend.position = "inside".

With the most recent version of ggplot2 and ggbreak.

[veronicar239]

Yes I also noticed that the legend is missing when using theme(legend.position = c(,)) when trying to place the legend inside the plot while using scale_y_break() - screenshot 1. If I run the same code and comment out the scale_y_break() line then the legend appears as normal - screenshot 2.

packageVersion("ggplot2")
[1] ‘3.5.1’
packageVersion("ggbreak")
[1] ‘0.1.3’

data %>%
drop_na(classKey) %>% #drop_na(class) - still shows NA groups among departments
group_by(Department, class) %>%
dplyr::summarise(
count = n()) %>%
arrange(desc(count)) %>%
head(50) %>%
ungroup() %>%
mutate(class = fct_reorder(class, count, .desc = TRUE)) %>%
ggplot(aes(x=class, y=count, fill = Department)) +
geom_bar(stat = "identity") +
scale_y_break(breaks = c(1000000, 2500000)) + #scale_y_break(c(break_point, max(your_data$value))) # breaks = c(50)
scale_fill_discrete(type = palette_secondary_6_green) +
labs(#title = "Top 50 classes",
x = "Class",
y = "Occurences",
fill = "Department") +
theme_minimal() +
theme(legend.position = c(.85,.31), axis.text.x = element_text(angle = 45, hjust=1))

screenshot 1

screenshot 2