• このページは公開されるので個人情報などは記載しないこと。
  • 課題が完成したらknitしPublishする。
d <- read.csv(file = "C:/Users/Owner/Desktop/heart.data (1).csv")

library(DT)
datatable(d[,-1])
a='biking'
b='smoking'
c='heart.disease'
r=cor(d[,-1])
r
##                    biking    smoking heart.disease
## biking         1.00000000 0.01513618    -0.9354555
## smoking        0.01513618 1.00000000     0.3091310
## heart.disease -0.93545547 0.30913098     1.0000000
library(kableExtra)
kable(round(r, 2), caption = '相関表') |> kable_classic('striped', full_width = F)
相関表
biking smoking heart.disease
biking 1.00 0.02 -0.94
smoking 0.02 1.00 0.31
heart.disease -0.94 0.31 1.00 
library(psych)
pairs.panels(d[,-1])

cor.plot(d[,-1])

library(corrplot)
## corrplot 0.92 loaded
corrplot.mixed(r, lower = 'ellips', upper = 'number')

library(plotly)
##  要求されたパッケージ ggplot2 をロード中です
## 
##  次のパッケージを付け加えます: 'ggplot2'
##  以下のオブジェクトは 'package:psych' からマスクされています:
## 
##     %+%, alpha
## 
##  次のパッケージを付け加えます: 'plotly'
##  以下のオブジェクトは 'package:ggplot2' からマスクされています:
## 
##     last_plot
##  以下のオブジェクトは 'package:stats' からマスクされています:
## 
##     filter
##  以下のオブジェクトは 'package:graphics' からマスクされています:
## 
##     layout
# フォント設定
kyokasho <- list(size = 11, color = 'blue', family = 'UD Digi Kyokasho NK-R')

plot_ly(x = rownames(r),
        y = colnames(r),
        z = as.matrix(r),
        text = paste(r),
        type = 'heatmap') |>
  layout(font = kyokasho,
         title = '心臓病とタバコと自転車通勤の関係')

自転車通勤と心臓病には強い負の相関性がある タバコと心臓病には正の相関性がある 自転車通勤とタバコに相関性はない