R

Rで令和4年の国民生活基礎調査から年齢別の悩みやストレスの原因を面グラフを作るまで。 e-statのAPIを使って対象のデータを取得して、先頭の150行を表示。 options(crayon.enabled = FALSE) # 色無効化 library(tidyverse) library(httr) library(Polychrome) # palette36 __ ── Attaching core tidyverse packages ──────────────────────────────────────────────────────────── tidyverse 2.0.0 ── ✔ dplyr 1.1.4 ✔ readr 2.1.5 ✔ forcats 1.0.0 ✔ stringr 1.5.1 ✔ ggplot2 3.5.2 ✔ tibble 3.2.1 ✔ lubridate 1.9.4 ✔ tidyr 1.3.1 ✔ purrr 1.0.4 ── Conflicts ────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ── ✖ dplyr::filter() masks stats::filter() ✖ dplyr::lag() masks stats::lag() ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors ...

Rでパッケージ{magick}を使って投稿記事のアイキャッチ画像(featured image)を作る話。 tidyverseに出会ってRにはまっている。 パイプで処理をつなげていけるって分かりやすい。 magickも同様にパイプで処理ができる。 まずmagickパッケージを読み込む。 library(magick) ## Linking to ImageMagick 6.9.11.60 ## Enabled features: fontconfig, freetype, fftw, heic, lcms, pango, webp, x11 ## Disabled features: cairo, ghostscript, raw, rsvg ## Using 4 threads 以下のコードでpng画像が作成できる。 # 初期設定 filename <- "Reyecatch.png" title <- "投稿記事のアイキャッチ画像作成" fontsize <- 6 # 画像作成 rlogo <- image_read("Rlogo.png") |> image_resize("x200") img1 <- image_blank(width = 1200, height = 628, color = 'white') img1 <- image_draw(img1) rect(0, 0, 1200, 314, col = "white", border = NA) rect(0, 314, 1200, 628, col = "#2369bd", border = NA) text(740, 157, "ラクにしたいでR", family = "Noto Sans Mono CJK JP", col = 'black', cex = 8) text(600, 157+314, title, family = "Noto Sans Mono CJK JP", col = 'white', cex = fontsize) img1 <- img1 |> image_border(color = "#2369bd", geometry = "10x10") |> image_composite(rlogo, offset = "+65+65") image_write(img1, filename) # 確認用 img1 |> image_resize("400x") |> print() ## format width height colorspace matte filesize density ## 1 png 400 212 sRGB TRUE 0 72x72 文字数によってフォントサイズを調整する必要があるのがちょっと手間だけど、微調整はきっと必要なのでいったんはこれでヨシ！ ...

「はい」、「いいえ」で答えた件数をggplotで棒グラフに描画する方法を紹介する。 データの準備 AさんからHさんまでの8名がある質問にYesかNoで答えたとする。 person = c("A", "B", "C", "D", "E", "F", "G", "H") answer = c("Y", "Y", "Y", "N", "Y", "Y", "N", "Y") df <- data.frame(person, answer) print(df) ## person answer ## 1 A Y ## 2 B Y ## 3 C Y ## 4 D N ## 5 E Y ## 6 F Y ## 7 G N ## 8 H Y グラフ描画 ggplotなどを含むtidyverseを読み込む。 ...