library(psych) psych::pairs.panels(d[,c( "自チームの10分あたりのTOUCH数", "相手チームの10分あたりのTOUCH数", "自チームと相手チームのTOUCH数比率", "自チームの10分あたりの得点", "自チームの10分あたりの失点", "自チームの10分あたりの得失点" )]…