Это то, что я делаю, сначала создаю функцию, которая оценивает, уместно ли создавать гистограмму, а затем вызываю эту функцию в другой функции, которая принимает тиббл в качестве аргумента и использует функцию карты. Я ищу решение, которое использует карту и typeof, поэтому я делаю это таким образом. почему не работает?
+ if (typeof(ar)=="double" | typeof(ar)=="integer"){ ar%>% ggplot(aes(x=ar))+geom_histogram()
+ }
+ }
>
>
> df_hist<-function(x){
+ map(x, function1)
+
+ }
>
> mpg
> df_hist(mpg)
Error: `data` must be a data frame, or other object coercible by `fortify()`, not a numeric vector```