通过R编程求解以下题目： 1. 根据VADeaths数据集，绘制城镇居民与农村居民死亡人数占比情况的饼图，添加标题及图例说明。 2. 将第1题的结果保存为PNG文件格式，并存储到当前工作目录下。 3. 在同一画布上绘制iris数据集的两两属性之间的散点图。

在R语言中，可以按照以下步骤解决这个问题：

1. 绘制城镇与农村居民死亡人数占比饼图:
首先，你需要加载`VADeaths`数据集，如果尚未安装该数据集，你可以使用`data.table`包的`get.datasets()`函数获取。然后，筛选出城镇和农村的数据，计算各自的比例并绘制饼图。

library(data.table)  # 加载数据表库
data <- data[, .(DeathPercentage = (Urban == "Urban") * 100, Group = ifelse(Urban == "Urban", "城镇", "农村")), by = .(Year)]
pie(town_village$DeathPercentage, labels = town_village$Group, main = "城镇与农村居民死亡人数比例", col = c("#E69F00", "#56B4E9"))  # 绘制饼图

记得在实际操作前确认`data.table`是否已安装，如果没有，运行`install.packages('data.table')`。

2. 保存为PNG文件:
使用`png()`函数创建一个新的PNG设备，然后利用`dev.off()`关闭设备并保存图片。

png("death_pie_chart.png")  # 创建PNG设备
pie(town_village$DeathPercentage, ...)  # 继续绘制饼图
dev.off()  # 关闭设备并保存

3. 绘制Iris数据集的散点图:
对于`iris`数据集，我们可以选择两个变量，比如花瓣长度(petal length)和花瓣宽度(petal width)，进行散点图绘制。

library(ggplot2)  # 加载ggplot2库，如果你还没有安装，运行`install.packages('ggplot2')`
iris_data <- iris[, c("Petal.Length", "Petal.Width")]  # 提取需要的列
ggplot(iris_data, aes(x=Petal.Length, y=Petal.Width)) + geom_point() +
  facet_wrap(~Species, ncol=2)  # 按物种分组，每个物种的散点图放在一张小图里
ggsave("iris_scatterplot.png")  # 保存为PNG文件

同样地，在这一步骤之前检查是否已经安装了`ggplot2`。