Объединение строк по оси x в пределах geom_bar

Question

Я предполагаю, что задаю довольно простой вопрос, однако сам не могу его решить. Как создать возрастные группы по оси x на изображении ниже. Например, 10-20, 20-30, 40-50 и т. Д. В пределах ggplot?

Я знаю, что я мог бы создать новую dataframe, но я предпочитаю, чтобы мой рабочий лист просто и сделать это в ggplot. Это код, который я использую:

figure1 <- ggplot(newdata, aes(x = factor(Leeftijd),)) + geom_bar() + xlab("Age") + 
ylab("Loneliness (count)") + ggtitle("Overview of the distrubtion of lonely people") 

figure1 

Спасибо!

Answer 1

Первый вопрос, который вы не спрашивали, но я хочу ответить. Я нашел намного лучше, чтобы накормить свою фреймворк через dplyr и tidyr, прежде чем он войдет в ggplot.

Это делает гораздо более удобочитаемый код и делает весь беспорядок намного проще, когда вы обнимаете его.

Во-вторых, это делает то, что вы хотите:

library(ggplot2) 
library(tidyr) 
library(dplyr) 


## I created some dummy data here, you want to use your own, obviously 
newdata <- data.frame(as.numeric(round(rnorm(1000,50,10)))) 
colnames(newdata) <- c("Leeftijd") 


figure1 <- ggplot(newdata, aes(x = factor(Leeftijd),)) + geom_bar() + xlab("Age") + 
    ylab("Loneliness (count)") + ggtitle("Overview of the distrubtion of lonely people") 

figure1 


## This does what you want, change the binwidth to whatever you're interested in. 
newdata %>% 
    ggplot() + 
    aes(x=Leeftijd) + 
    geom_histogram(binwidth=10, stat="bin") + 
    labs(x="Age", 
     y="Loneliness (count)", 
     title="Overview of the distribution of lonely people")