Visualisasi Data Univariate dan Multivariate

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.3

library(data.table)

datairis <- data.table(iris)
datairis

##      Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
##             <num>       <num>        <num>       <num>    <fctr>
##   1:          5.1         3.5          1.4         0.2    setosa
##   2:          4.9         3.0          1.4         0.2    setosa
##   3:          4.7         3.2          1.3         0.2    setosa
##   4:          4.6         3.1          1.5         0.2    setosa
##   5:          5.0         3.6          1.4         0.2    setosa
##  ---                                                            
## 146:          6.7         3.0          5.2         2.3 virginica
## 147:          6.3         2.5          5.0         1.9 virginica
## 148:          6.5         3.0          5.2         2.0 virginica
## 149:          6.2         3.4          5.4         2.3 virginica
## 150:          5.9         3.0          5.1         1.8 virginica

summary(datairis)

##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 

str(datairis)

## Classes 'data.table' and 'data.frame':   150 obs. of  5 variables:
##  $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
##  $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
##  $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
##  $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
##  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...
##  - attr(*, ".internal.selfref")=<externalptr>

ggplot(datairis, aes(x = Sepal.Length)) +
  geom_histogram(binwidth = 0.5, fill = "blue", color = "black") +
  labs(title = "Histogram Sepal Length")

ggplot(datairis, aes(y = Sepal.Length)) +
  geom_boxplot(fill = "red") +
  labs(tittle = "Boxplot Sepal Length")

## Ignoring unknown labels:
## • tittle : "Boxplot Sepal Length"

ggplot(datairis, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point(aes(color = Species)) +
  labs(tittle = "Scatter Plot Sepal Length vs Sepal Width")

## Ignoring unknown labels:
## • tittle : "Scatter Plot Sepal Length vs Sepal Width"

library(ggplot2)

ggplot(datairis, aes(x = Sepal.Length, y = Petal.Length, color = Species)) +
  geom_line(stat = "summary", fun = mean)

cor(datairis$Sepal.Length, datairis$Sepal.Width)

## [1] -0.1175698

ggplot(datairis, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  labs(tittle = "Boxplot Sepal Length berdasarkan Species")

## Ignoring unknown labels:
## • tittle : "Boxplot Sepal Length berdasarkan Species"

pairs(iris[,1:4], col = iris$Species, pch = 19)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, size = Petal.Length, color = Species)) +
  geom_point(alpha = 0.7) +
  labs(tittle = "Bubble Plot Sepal vs. Petal")

## Ignoring unknown labels:
## • tittle : "Bubble Plot Sepal vs. Petal"