Эмулируйте это решение применительно к фрейму данных X
:
pairs(subset(X, select=sapply(X, is.numeric)))
Обратите внимание, что pairs
завершится ошибкой, когда X
имеет менее двух числовых столбцов, поэтому для общего использования рассмотрите возможность инкапсуляции этого в функцию, которая проверяет результат sapply
перед выполнением поднабора.