Удалите лишние графики в приморском котловине

Попробуйте следующее:

ggplot(data=alldf.m, aes(x=variable, y = value, colour = ID, group = ID)) + 
  geom_line() + facet_wrap(~fn)

[/g0]