有一组关联交易数据：每个公司每一年会有很多笔交易且交易额会有不同的货币单位（如下）。我需要删除变量“curtype”不是“元” 所对应的公司样本（不是单独一行),或者说保留 curtype 纯粹为“元”的公司样本。因为如果仅删除对应的一行，该公司对应的数据会不全，所以需要全部删除，即删除该公司。
如此例中，需要删除所有stock等于1、3所对应的行，
我自己的思路是：如果变量 curtype 不是"元"的 ，识别出对应的stock并予以保存,再删除所有这些保存的值。
求助高人 该怎么编程？
谢谢！！！


stock     year   curtype   amount ……
1           2010     元           1000
1          2010      美元       2000
1           2011      元          1500
1           2012      美元       1234
2          2010       元          2300
2         2011      元          6500
2         2011       元        7500
2        2012       元         3200
3        2010        英镑      4560
3        2010        美元      1200
3       2011        元          2200
3       2012         英镑     2400
3     
4
4
4
5
5
5
5
6
6
6
6
6
……