Freq_tab

度数分布表の作成（単純集計）

必要なパッケージを読み込むためのセットアップ

library(readxl)
library(dplyr)
library(knitr)

Excelファイルの読み込み

# ExcelファイルのURL
file_url <- "https://takafumikubota.jp/ds1/DS1data2024.xlsx"

# ローカルにダウンロードするための一時ファイルパスを生成
temp_file <- tempfile(fileext = ".xlsx")

# ファイルをダウンロード
download.file(file_url, temp_file, mode = "wb")

# 'party'タブを読み込み
data <- read_excel(temp_file, sheet = "party", col_types = c("text"))

# 一時ファイルを削除
unlink(temp_file)

度数分布の計算と整形

# 度数分布の計算
frequency_distribution <- data %>%
  group_by(支持政党) %>%
  summarise(度数 = n()) %>%
  mutate(カテゴリー = case_when(
    支持政党 %in% c("その他", "支持なし", "わからない・無回答") ~ "最後に移動",
    TRUE ~ "その他"
  )) %>%
  arrange(カテゴリー, desc(度数)) %>%
  select(-カテゴリー) %>%
  rbind(summarise(., 支持政党 = "合計", 度数 = sum(度数)))

表形式での出力

# 綺麗な表形式で出力
kable(frequency_distribution)

支持政党	度数
自民党	689
立憲民主党	124
公明党	99
共産党	60
日本維新の会	47
国民民主党	33
社会党	10
支持なし	812
わからない・無回答	165
その他	21
合計	2060