Как создавать графики для генетических алгоритмов

Question

Я работаю с пакетом ga и хотел бы создать несколько графиков на основе функции ниже. plot(GA), кажется, дает хорошую отправную точку, но я хотел бы создать конкретные графики, такие как

Ось X: номер поколения

Ось Y: Лучший фитнес

и

Ось X: номер поколения

Ось Y: средняя приспособленность

library(GA)

cross <- function(x1, x2, x3, x4) {2 * x2 * x4 + x3 * ( x1 - 2 * x4)}

GA <- ga(type = "real-valued",
         fitness = function(x) -cross(x[1], x[2], x[3], x[4]),
         lower = c(10, 10, 0.9, 0.9), upper = c(80,50,5,5),
         popSize = 50, maxiter = 100, run = 100, pcrossover = 0.75, pmutation = .001)


summary(GA)
plot(GA)

Answer 1

Вы можете извлекать данные из результатов через слот summary объекта.

results <- as.data.frame(GA@summary)
results $iter = seq.int(nrow(results))

И затем можете использовать это для создания ваших графиков

plot(mean~iter, results)
plot(max~iter, results)