Взятие непропорциональной выборки из набора данных в R

Если у меня есть большой набор данных в R, как я могу взять случайную выборку данных с учетом распределения исходных данных, особенно если данные искажены и только 1% принадлежат к второстепенному классу, и я хочу взять предвзятую выборку данных?