R-如何消除向量的上x%

import numpy as np

def eliminate_top_x_percent(vector, x):
    sorted_vector = np.sort(vector)
    total_sum = np.sum(sorted_vector)
    eliminate_count = int(len(vector) * x / 100)

    eliminated_vector = sorted_vector[:-eliminate_count]

    return eliminated_vector

# 示例使用
vector = [1, 5, 3, 9, 2, 7, 4, 8, 6]
eliminated_vector = eliminate_top_x_percent(vector, 30)
print(eliminated_vector)