с данными? Или с версией ggplot2?
library(dplyr)
library(ggplot2)
library(scales)
set.seed(42)
data.frame(gender = rbinom(10, 1, 0.45)) %>%
mutate(genderf = factor(gender,
levels = c(0, 1),
labels = c('М', 'Ж'))) %>%
ggplot(aes(x = '')) +
geom_bar(aes(fill = genderf), position = 'fill') +
labs(x = NULL, y = 'Процент',
title = 'Соотношение кредитов, взятых мужчинами и женщинами') +
labs(fill = 'Пол') +
scale_y_continuous(labels = percent)
Спасибо, проверю
Обсуждают сегодня