毎月行われているNHKの世論調査で自民党と参政党の支持率がどう変化するかに関心を持っている。

きのうformat()という関数を使った——年月日のデータを年月だけにして表にするために。自民党の総裁選が10月4日に行われたので、10月の結果が発表されるのを待っている。なお、作成した表でNPSは「特になし」を意味する。特になし、参政党、自民党、国民民主党だけを取りあげたのは、参政党支持者がどこからやってきたのかということに関心を持っているからである。

library(tidyverse)
library(ggplot2)
df <- data.frame(
  date = as.Date(c("2025-05-01", "2025-06-01", "2025-07-01", "2025-08-01", "2025-09-01")),
  SAN =  c(1.5,1.9,5.9,6.8,6.3),
  LDP =  c(26.4,31.6,24.0,29.4,27.9),
 ....
)

df$date<- format(df$date, "%Y-%m")
knitr::kable(df)

次の図は、福岡県選挙管理委員会のウェブサイトで公表されている参院選福岡比例代表の各政党得票数のデータから作成した相関図である。自民党と参政党の得票率の間の関係を示すものである。