如何为遗传算法创建图

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)