d0 <- read.csv(file = "C:/Users/Kenny815/Downloads/heart.data.csv")

library(DT)
datatable(d0)

x <- d0$biking
y <- d0$smoking
z <- d0$heart.disease

cor(x, y)

## [1] 0.01513618

cor(y, z)

## [1] 0.309131

cor(z, x)

## [1] -0.9354555

r <- cor(d0)
r

##                         X      biking    smoking heart.disease
## X              1.00000000  0.05708763 0.05267393   -0.05172509
## biking         0.05708763  1.00000000 0.01513618   -0.93545547
## smoking        0.05267393  0.01513618 1.00000000    0.30913098
## heart.disease -0.05172509 -0.93545547 0.30913098    1.00000000

library(kableExtra)
kable(round(r, 2), caption = '相関表') |> kable_classic('striped', full_width = F)

相関表

	X	biking	smoking	heart.disease
X	1.00	0.06	0.05	-0.05
biking	0.06	1.00	0.02	-0.94
smoking	0.05	0.02	1.00	0.31
heart.disease	-0.05	-0.94	0.31	1.00

自転車通勤と喫煙には相関がない。 喫煙と心臓病には弱い正の相関がある。 自転車通勤と心臓病には強い負の相関がある。