Вот один из подходов, предполагая, что ваша таблица выглядит как dat
ниже:
library(ggplot2)
# generate some fake data that sounds like what OP's table is
dat <- data.frame(vet = sample(c("yes","no"), size=1e3, replace=TRUE),
sleep = round(runif(1e3, min=1, max=5)) + sample(1:4, 1))
# make a histogram of `$sleep` grouped by `$vet` status:
ggplot(dat, aes(x=sleep, fill=vet)) +
geom_histogram(position="dodge", bins=5)
Результат будет выглядеть следующим образом:
Или выможет создавать параллельные гистограммы (одна для "yes"
ветеранов, одна для "no"
), например:
ggplot(dat, aes(x=sleep)) +
geom_histogram(position="dodge", bins=5) +
facet_wrap(~vet)