Я пишу функцию, которая использует qplot()
для рисования гистограммы, например,
> library(ggplot2)
> d=rnorm(100)
> myfun=function(x) qplot(x)
Запуск он дает предупреждение:
> myfun(d)
stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
Чтобы подавить предупреждение, я пробовал самостоятельно вычислить binwidth, но это дает ошибку и не выводит на экран:
> myfun=function(x) print(qplot(x, binwidth=diff(range(x))/30))
> myfun(d)
Error in diff(range(x)) : object 'x' not found
У меня есть два связанных вопроса:
- Что здесь происходит? Почему объект 'x' не найден?
- Как я могу написать функцию, чтобы предупреждение не генерировалось?
Спасибо!