Правильный способ передачи ссылки функции - использовать обратные вызовы.
names.forEach(name => setTimeout(function() {
printer(name);
}, 1000));
обратные вызовы содержат ссылку на функцию.
setTimeout(callbackFunction, milliseconds);
Попробуйте следующее:
ggplot(data=alldf.m, aes(x=variable, y = value, colour = ID, group = ID)) +
geom_line() + facet_wrap(~fn)
[/g0]
Даже для OP требуется ggplot2, но я думаю, что этот пример также подходит для lattice
:
library(lattice)
xyplot(data=alldf.m, value~variable|fn, type ='b', groups = ID, auto.key = T)
[/g0]
и используя latticeExtra
, мы можем получить что-то colse для решения ggplot2
:
p <- xyplot(data=alldf.m, value~variable|fn, type ='b', groups = ID, auto.key = T)
update(p , par.settings = ggplot2like())
[/g1]