根据题目描述，对于每一个数据点，都需要进行如下的缩放操作：

• 如果该数据点的 EM% 大于 50%，则进行如下操作：

  $x = |EM% - 50|^4$

• 如果该数据点的 EM% 小于 50%，则进行如下操作：

  $x = -|EM% - 50|^4$

  
  

其中，EM% 表示该数据点对应的 EM plants 的百分比。

因此，对于给定的一个数据集，可以对每一个数据点进行如上的计算，得到对应的缩放后的 x 值。注意，由于 |EM% - 50|^4 的值会非常大，因此在计算的时候需要注意数值溢出的问题，可以使用 R 语言中的函数如 abs()、^ 等来实现。