Попробуйте:
gender <- c(518, 482)
names(gender) <- c("male", "female")
pie(gender, names(gender))
barplot(gender)
То же самое для других категорий, например,
groups <- c(89, 190, 319, 262, 140)
names(groups) <- c("A", "B", "C", "D", "E")
pie(groups, names(groups))
barplot(groups)
возвращает: