Untitled

getwd()

## [1] "C:/data"

setwd("c:/data")
df<-read.csv('fish.csv')
summary(df)

##    Species              Weight           Length         Diagonal    
##  Length:159         Min.   :   0.0   Min.   : 8.40   Min.   : 8.80  
##  Class :character   1st Qu.: 120.0   1st Qu.:21.00   1st Qu.:23.15  
##  Mode  :character   Median : 273.0   Median :27.30   Median :29.40  
##                     Mean   : 398.3   Mean   :28.42   Mean   :31.23  
##                     3rd Qu.: 650.0   3rd Qu.:35.50   3rd Qu.:39.65  
##                     Max.   :1650.0   Max.   :63.40   Max.   :68.00  
##      Height           Width      
##  Min.   : 1.728   Min.   :1.048  
##  1st Qu.: 5.945   1st Qu.:3.386  
##  Median : 7.786   Median :4.248  
##  Mean   : 8.971   Mean   :4.417  
##  3rd Qu.:12.366   3rd Qu.:5.585  
##  Max.   :18.957   Max.   :8.142

head(df)

##   Species Weight Length Diagonal  Height  Width
## 1   Bream    242   25.4     30.0 11.5200 4.0200
## 2   Bream    290   26.3     31.2 12.4800 4.3056
## 3   Bream    340   26.5     31.1 12.3778 4.6961
## 4   Bream    363   29.0     33.5 12.7300 4.4555
## 5   Bream    430   29.0     34.0 12.4440 5.1340
## 6   Bream    450   29.7     34.7 13.6024 4.9274

library(dplyr)

## Warning: 패키지 'dplyr'는 R 버전 4.3.2에서 작성되었습니다

## 
## 다음의 패키지를 부착합니다: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

glimpse(df)

## Rows: 159
## Columns: 6
## $ Species  <chr> "Bream", "Bream", "Bream", "Bream", "Bream", "Bream", "Bream"…
## $ Weight   <dbl> 242, 290, 340, 363, 430, 450, 500, 390, 450, 500, 475, 500, 5…
## $ Length   <dbl> 25.4, 26.3, 26.5, 29.0, 29.0, 29.7, 29.7, 30.0, 30.0, 30.7, 3…
## $ Diagonal <dbl> 30.0, 31.2, 31.1, 33.5, 34.0, 34.7, 34.5, 35.0, 35.1, 36.2, 3…
## $ Height   <dbl> 11.5200, 12.4800, 12.3778, 12.7300, 12.4440, 13.6024, 14.1795…
## $ Width    <dbl> 4.0200, 4.3056, 4.6961, 4.4555, 5.1340, 4.9274, 5.2785, 4.690…