Abalone <- read.csv("abalone.csv")
Abalone<-data.frame(Abalone)
dim(Abalone)

1. 4177
2. 9

head(Abalone)

Sex	Length	Diam	Height	Whole	Shucked	Viscera	Shell	Rings
M	0.455	0.365	0.095	0.5140	0.2245	0.1010	0.150	15
M	0.350	0.265	0.090	0.2255	0.0995	0.0485	0.070	7
F	0.530	0.420	0.135	0.6770	0.2565	0.1415	0.210	9
M	0.440	0.365	0.125	0.5160	0.2155	0.1140	0.155	10
I	0.330	0.255	0.080	0.2050	0.0895	0.0395	0.055	7
I	0.425	0.300	0.095	0.3515	0.1410	0.0775	0.120	8

str(Abalone)

'data.frame':	4177 obs. of  9 variables:
 $ Sex    : Factor w/ 3 levels "F","I","M": 3 3 1 3 2 2 1 1 3 1 ...
 $ Length : num  0.455 0.35 0.53 0.44 0.33 0.425 0.53 0.545 0.475 0.55 ...
 $ Diam   : num  0.365 0.265 0.42 0.365 0.255 0.3 0.415 0.425 0.37 0.44 ...
 $ Height : num  0.095 0.09 0.135 0.125 0.08 0.095 0.15 0.125 0.125 0.15 ...
 $ Whole  : num  0.514 0.226 0.677 0.516 0.205 ...
 $ Shucked: num  0.2245 0.0995 0.2565 0.2155 0.0895 ...
 $ Viscera: num  0.101 0.0485 0.1415 0.114 0.0395 ...
 $ Shell  : num  0.15 0.07 0.21 0.155 0.055 0.12 0.33 0.26 0.165 0.32 ...
 $ Rings  : int  15 7 9 10 7 8 20 16 9 19 ...

summary(Abalone)

 Sex          Length           Diam            Height           Whole       
 F:1307   Min.   :0.075   Min.   :0.0550   Min.   :0.0000   Min.   :0.0020  
 I:1342   1st Qu.:0.450   1st Qu.:0.3500   1st Qu.:0.1150   1st Qu.:0.4415  
 M:1528   Median :0.545   Median :0.4250   Median :0.1400   Median :0.7995  
          Mean   :0.524   Mean   :0.4079   Mean   :0.1395   Mean   :0.8287  
          3rd Qu.:0.615   3rd Qu.:0.4800   3rd Qu.:0.1650   3rd Qu.:1.1530  
          Max.   :0.815   Max.   :0.6500   Max.   :1.1300   Max.   :2.8255  
    Shucked          Viscera           Shell            Rings       
 Min.   :0.0010   Min.   :0.0005   Min.   :0.0015   Min.   : 1.000  
 1st Qu.:0.1860   1st Qu.:0.0935   1st Qu.:0.1300   1st Qu.: 8.000  
 Median :0.3360   Median :0.1710   Median :0.2340   Median : 9.000  
 Mean   :0.3594   Mean   :0.1806   Mean   :0.2388   Mean   : 9.934  
 3rd Qu.:0.5020   3rd Qu.:0.2530   3rd Qu.:0.3290   3rd Qu.:11.000  
 Max.   :1.4880   Max.   :0.7600   Max.   :1.0050   Max.   :29.000  

library(ggplot2)
library(gridExtra)
p1 <- qplot(Length, data = Abalone, ylab = "count")
p2 <- qplot(Diam, data = Abalone, ylab = "count")
p3 <- qplot(Height, data = Abalone, ylab = "count")
p4 <- qplot(Whole, data = Abalone, ylab = "count")
p5 <- qplot(Shucked, data = Abalone, ylab = "count")
p6 <- qplot(Viscera, data = Abalone, ylab = "count")
p7 <- qplot(Shell, data = Abalone, ylab = "count")
p8 <- qplot(Rings, data = Abalone, ylab = "count")
gridExtra::grid.arrange(p1, p2, p3, p4, p5, p6, p7, p8,ncol=4, nrow = 3)

Warning message:
"package 'ggplot2' was built under R version 3.4.4"`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

#install.packages("ggsci")
library(ggsci)
t<-data.frame(table(Abalone$Sex))
colnames(t)<-c("Sex","Freq")
t
g <- ggplot(t, aes(x =Sex, y = Freq, fill = Sex))
g <- g + geom_bar(stat = "identity")
g <- g + scale_fill_nejm()
gridExtra::grid.arrange(g,ncol=3, nrow = 3)

Warning message:
"package 'ggsci' was built under R version 3.4.4"

Sex	Freq
F	1307
I	1342
M	1528

x=Abalone[,-1]
pairs(x,main="アワビデータの散布図",pch = 21)

cor(Abalone[,-1])

	Length	Diam	Height	Whole	Shucked	Viscera	Shell	Rings
Length	1.0000000	0.9868116	0.8275536	0.9252612	0.8979137	0.9030177	0.8977056	0.5567196
Diam	0.9868116	1.0000000	0.8336837	0.9254521	0.8931625	0.8997244	0.9053298	0.5746599
Height	0.8275536	0.8336837	1.0000000	0.8192208	0.7749723	0.7983193	0.8173380	0.5574673
Whole	0.9252612	0.9254521	0.8192208	1.0000000	0.9694055	0.9663751	0.9553554	0.5403897
Shucked	0.8979137	0.8931625	0.7749723	0.9694055	1.0000000	0.9319613	0.8826171	0.4208837
Viscera	0.9030177	0.8997244	0.7983193	0.9663751	0.9319613	1.0000000	0.9076563	0.5038192
Shell	0.8977056	0.9053298	0.8173380	0.9553554	0.8826171	0.9076563	1.0000000	0.6275740
Rings	0.5567196	0.5746599	0.5574673	0.5403897	0.4208837	0.5038192	0.6275740	1.0000000

#Heightが0.4以上の観測値を除外
Abalone2<-Abalone[Abalone$Height<0.4,]
dim(Abalone2)
head(Abalone2)

1. 4175
2. 9

Sex	Length	Diam	Height	Whole	Shucked	Viscera	Shell	Rings
M	0.455	0.365	0.095	0.5140	0.2245	0.1010	0.150	15
M	0.350	0.265	0.090	0.2255	0.0995	0.0485	0.070	7
F	0.530	0.420	0.135	0.6770	0.2565	0.1415	0.210	9
M	0.440	0.365	0.125	0.5160	0.2155	0.1140	0.155	10
I	0.330	0.255	0.080	0.2050	0.0895	0.0395	0.055	7
I	0.425	0.300	0.095	0.3515	0.1410	0.0775	0.120	8

x=Abalone2[,-1]
pairs(x,main="アワビデータの散布図",pch = 21)