R 基于颜色和形状的嵌套图例

我想绘制嵌套组（组和子组）的xy图，其中点按组着色，按子组具有形状。下面是一个简单的例子：

数据