排除无差异的列

如何从近1,000个变量的数据矩阵中排除方差等于0（零）的变量/列（即，变量/列中的所有案例/观察值都具有相同的值）？我可以想象计算每个列的方差，然后手动写入要排除（或包括在内的列数），因为这在R中似乎更容易做到。但是，请确保R中有一个更优雅，更省时的解决方案。预先感谢您！

我们可以用 Filter

Filter(var, df1)