Рассмотрим следующее
X <- matrix (c (rnorm (50)), ncol = 5);
Предположим, что каждый столбец X
указывает серию, которую вы хотите превзойти.
Вы можете сделать это следующим образом, сначала создав пустой график, а затем нанеся ряд, соответствующий каждому столбцу, используя lapply
. Хотя lapply
вернет значения, возвращаемые вызовом plot
, которые нам не нужны.
plot (NULL, ylim = range (X), xlim = c (1, nrow (X)));
lapply (1:ncol (X), function (i) points (X[,i], type = "o", col = i));
Вместо этого вы можете использовать
plot (NULL, ylim = range (X), xlim = c (1, nrow (X)));
l_ply (1:ncol (X), function (i) points (X[,i], type = "o", col = i));
Это имеет тот же эффект, но не возвращает значения, возвращаемые plot
. Здесь «побочным эффектом» является отображение функции plot
на устройстве.