R言語でデータを年代別にし、箱ひげ図を作成したい


データは年齢と幸福度になります。  
年代別の箱ひげ図をRで作成したいです。  
私の想定としては、以下の二つが必要だと思っています。  
・年齢を20～29などに設定し、まず年代別にする。  
・箱ひげ図をそれぞれの年代でプロットするようにする。

[code]

    #hensuu1 <- age, hensuu2 <- kouhukudo
    ggplot(data, aes(x = hensuu1, y = hensuu2)) +
      geom_boxplot()
    
[/code]

上記コードを試しましたが、条件を定めていないため、上手くいきませんでした。

[![画像の説明をここに入力](https://i.stack.imgur.com/dS2r8.png)](https://i.stack.imgur.com/dS2r8.png)

下記のようなグラフが理想です。

[![理想のグラフ](https://i.stack.imgur.com/Yz3Ub.png)](https://i.stack.imgur.com/Yz3Ub.png)




[base::cut()](https://search.r-project.org/R/refmans/base/html/cut.html)
関数を使って「年代」列を追加し，それを使って描画する記述例を示します。

なお，最後の `theme_bw()` の行は環境に合わせて変更または（前行の `+` も含めて）削除してください。

[code]

    library(ggplot2)
    
    set.seed(113)
    data <- data.frame(年齢 = sample(20:59, 100, replace=TRUE),
                       幸福度 = rnorm(100, mean=3.0, sd=0.6))
    
    data$年代 <- cut(data$年齢, breaks = c(20, 30, 40, 50, 60),
                     labels = c("20代", "30代", "40代", "50代"),
                     right=FALSE)
    
    ggplot(data, aes(x=年代, y=幸福度)) +
        geom_boxplot() +
        coord_cartesian(ylim=c(1, 5)) +
        labs(x="年代", y="幸福度") +
        theme_bw(base_family="HiraginoSans-W3", base_size=14)
    
[/code]

[![描画結果](https://i.stack.imgur.com/yemY4.png)](https://i.stack.imgur.com/yemY4.png)




[base::cut()](https://search.r-project.org/R/refmans/base/html/cut.html)
関数を使って「年代」列を追加し，それを使って描画する記述例を示します。

なお，最後の `theme_bw()` の行は環境に合わせて変更または（前行の `+` も含めて）削除してください。

[code]

    library(ggplot2)
    
    set.seed(113)
    data <- data.frame(年齢 = sample(20:59, 100, replace=TRUE),
                       幸福度 = rnorm(100, mean=3.0, sd=0.6))
    
    data$年代 <- cut(data$年齢, breaks = c(20, 30, 40, 50, 60),
                     labels = c("20代", "30代", "40代", "50代"),
                     right=FALSE)
    
    ggplot(data, aes(x=年代, y=幸福度)) +
        geom_boxplot() +
        coord_cartesian(ylim=c(1, 5)) +
        labs(x="年代", y="幸福度") +
        theme_bw(base_family="HiraginoSans-W3", base_size=14)
    
[/code]

[![描画結果](https://i.stack.imgur.com/yemY4.png)](https://i.stack.imgur.com/yemY4.png)

