Гистограмма + дихотомия + ось

Question

Я хотел бы сделать гистограмму моей переменной «секс» со значениями 1 = мужчина и 2 = женщина. Мой код работает правильно, но я бы хотел иметь только значения 1 и 2 по оси x (в настоящий момент R печатает все значения от 0 до 1 по шагам, что делает меньше смысла в случае секса).

hist(g1_sex, 
    main = "Häufigkeitsverteilung Geschlecht", 
    sub = "1 = männlich, 2 = weiblich", 
    xlab = "Geschlecht", 
    ylab ="Häufigkeit", 
    ylim = c(0,120), 
    col = "lightblue", 
    labels = TRUE, 
    breaks=2) 

Я уже пытался сделать это с

breaks = seq (1,2,1) 

, но это не выглядит слишком хорошо.

Я был бы очень благодарен за каждый ваш намек! С наилучшими пожеланиями!

Answer 1

Я думаю, вы действительно хотите barplot. Смотрите примеры:

set.seed(0); x <- rbinom(500, 1, 0.3) ## generate toy 0-1 data 
y <- table(x) ## make contingency table 
names(y) <- c("male", "female") 
ylim = c(0, 1.2 * max(y)) ## set plotting range 
z <- barplot(y, space = 0, col = 5, main = "statistics", ylim = ylim) 
text(z, y + 20, y, cex = 2, col = 5) ## add count number above each bar 

Я также дают решения, чтобы добавить номер выше каждого бара, установив дополнительное место на вершине с помощью ylim и использовать text положить тексты.

Обратите внимание, что barplot также принимает main и т.д., так что вы можете добавить другие аннотации, если вы хотите.