我正在尝试使用 ggplot 和 facet_wrap 一次性绘制所有变量。但是,我无法使代码工作。
我的数据集是各种分类变量和数值变量,我希望所有数据集的 x 可用值都相同。
我做了什么:
data %>%
keep(is.numeric) %>%
gather() %>%
ggplot(aes(value))+
geom_point(~ key)
facet_wrap(~ key)
我也试过
问题是什么都没有出现,或者缺少 y 变量...
我希望有人能帮助我从这个挑战中前进。
这个?根据OP的要求,这里是使用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)