如何从R中的列表中子集唯一值?