png("goodbye.png", height = 625, width = 500)par(col = "purple")plot(1, 1, xlim = c(0,800), ylim = c(0,1600), type = "n", bty = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "")symbols(x = 400, y = 1200, circles = 400, add = T, lwd = 40)lines(x = c(40...