Legend filtration for stacked and line plot in ggplotly R - r

Question

I have shiny app to shows some line plots, and I have used ggplotly with ggplot structure, everything was nice, but I was informed that I need to add stacked barplot in addition to line, I will add what I found on internet to modify my code.
options(scipen = 999)
df <- data.frame (country = c("Estonia", "Latvia", "Lithuania", "Estonia", "Latvia", "Lithuania"),
obs_week = c(0,1, 0, 1, 0, 1),
wbeg = c("2022-12-26","2023-01-02", "2022-12-26","2023-01-02","2022-12-26","2023-01-02"),
vp = c(5000000, 6000000, 7000000, 5000000, 6000000, 7000000))
filteredDataplot <- df %>%
filter(obs_week != -1) %>%
group_by(obs_week, wbeg, country) %>%
summarise(vp = sum(vp, na.rm = T)) %>% ungroup()
p <- ggplotly(ggplot(filteredDataplot, aes_string(x= "obs_week", y = "vp", key = "wbeg", fill = "country")) +
geom_bar(stat="identity", position = "stack", color = 'white', size = 0.3) +
stat_summary(aes(group = 1, color = "Total"), fun = sum, geom = "line", color="black") +
stat_summary(aes(group = 1, color = "Total"), fun = sum, geom = "point", color="black") +
geom_vline(xintercept = lubridate::week(Sys.Date()), colour = "red") +
scale_fill_manual(values = c("Estonia" = "#009900",
"Lithuania" = "#1DE6E6",
"Latvia" = "#6666FF"
)
) +
# facet_wrap(~country + time_horizon,
# scales = "free_y",
# ncol = 3) +
#expand_limits(y = 0) +
scale_x_continuous(labels = comma) +
scale_y_continuous(labels = comma) +
theme_bw() +
labs(
title = "Variable profit (Euro)
<span style='font-size:11pt'></span>",
x = "Week", y = "VP (Euro)"
#caption = "<b>Source</b>: "
) +
th`your text`eme_minimal() +
theme(
plot.title = element_markdown(lineheight = 1.1, size = 25),
text = element_text(size = 13),
legend.text = element_markdown(size = 11),
plot.caption = element_markdown(size = 11)
), source = "select", tooltip = c("vp","obs_week","key"))
for (i in 1:length(p$x$data)) {
p$x$data[[i]]$base <- c()
tmp <- p$x$data[[i]]
p$x$data[[i]] <- p$x$data[[length(p$x$data) - i + 1]]
p$x$data[[length(p$x$data) - i + 1]] <- tmp
}
p
so I added simple data here, my main problem is that, legend filtration works well for stacked barplot but I want to make interactive filtration for barplot and line both of them together, for example if you unselect Estonia in legend, then showing sum of only Lithuania and Latvia for line plot, and respective stacked bar plot... and have some more countries and different range of numbers, if you select small range country, then Y axis should also need to be small to see more effectively.
I hope I could explain what I would like to see, thanks a lot