Это? На основании запроса ОП, здесь представитель, использующий gapminder
. Его можно настроить по желанию.
gapminder::gapminder %>%
gather("id","value",4:ncol(.)) %>%
ggplot(aes(continent,value,col=id))+geom_col()+facet_wrap(.~id)+
theme_minimal()+
theme(axis.text.x = element_text(angle=90))
Оригинальный ответ:
library(tidyverse)
iris %>%
keep(is.numeric) %>%
gather() %>%
ggplot(aes(value,key))+geom_point()+facet_wrap(key~.)
Образец 2:
iris %>%
keep(is.numeric) %>%
gather() %>%
ggplot(aes(key,value))+geom_col()+facet_wrap(.~key)