Are you looking for something like this?
library(tidyverse)
dat <-
tibble::tribble(
~Country_Name, ~EP, ~NP,
"EU", 39.6, 33.2,
"Belgium", 38, 42,
"Denmark", 46, 41.3
)
dat_long <-
dat %>%
pivot_longer(cols = c("EP", "NP"),
names_to = "variable",
values_to = "value")
dat_long %>%
ggplot(aes(x = variable,
y = value)) +
geom_bar(stat = "identity") +
facet_grid(Country_Name ~ .)
