使用R语言中infected_images是一个包含十个magick-image对象的list如果使用lapply进行image_resize调整

大小，并将结果存储在一个新的list中，可以使用以下代码：

new_images <- lapply(infected_images, function(x) { image_resize(x, "800x600") })

这将遍历infected_images中的每个magick-image对象，并调整其大小为800x600像素，然后将结果存储在一个新的list中，即new_images。