Praktikum w11
Rafi Satrio Pratama
2024-05-17
MATERI PIE CHART
setwd('C:/Users/rafis/ITS/Visualisasi Data Eksploratori/Rstudio')
netflix <- read.csv('netflix_titles.csv')
library(ggplot2)
custom_col <- c('pink', '#68D2E8')
ggplot(netflix, aes(x = "", fill = factor(type))) +
geom_bar(width = 1, color = 'white') +
labs(fill = "class",
x=NULL,
y=NULL,
title = "Pie Chart of Netflix shows ") +
coord_polar(theta = "y", start = 0) + theme_minimal()+
theme(axis.line = element_blank(),
plot.title = element_text(hjust = 0.5, size = 22)) +
scale_fill_manual(values = custom_col)
STUDY CASE
library(dplyr)## Warning: package 'dplyr' was built under R version 4.3.3##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(tidyr)## Warning: package 'tidyr' was built under R version 4.3.3library(readr)## Warning: package 'readr' was built under R version 4.3.3library(stringr)## Warning: package 'stringr' was built under R version 4.3.3library(forcats)## Warning: package 'forcats' was built under R version 4.3.3library(modelr)## Warning: package 'modelr' was built under R version 4.3.3library(ggplot2)train <- read.csv("train.csv")
head(train)## PassengerId Survived Pclass
## 1 1 0 3
## 2 2 1 1
## 3 3 1 3
## 4 4 1 1
## 5 5 0 3
## 6 6 0 3
## Name Sex Age SibSp Parch
## 1 Braund, Mr. Owen Harris male 22 1 0
## 2 Cumings, Mrs. John Bradley (Florence Briggs Thayer) female 38 1 0
## 3 Heikkinen, Miss. Laina female 26 0 0
## 4 Futrelle, Mrs. Jacques Heath (Lily May Peel) female 35 1 0
## 5 Allen, Mr. William Henry male 35 0 0
## 6 Moran, Mr. James male NA 0 0
## Ticket Fare Cabin Embarked
## 1 A/5 21171 7.2500 S
## 2 PC 17599 71.2833 C85 C
## 3 STON/O2. 3101282 7.9250 S
## 4 113803 53.1000 C123 S
## 5 373450 8.0500 S
## 6 330877 8.4583 Qtrain$Survived <- factor(train$Survived)
head(train)## PassengerId Survived Pclass
## 1 1 0 3
## 2 2 1 1
## 3 3 1 3
## 4 4 1 1
## 5 5 0 3
## 6 6 0 3
## Name Sex Age SibSp Parch
## 1 Braund, Mr. Owen Harris male 22 1 0
## 2 Cumings, Mrs. John Bradley (Florence Briggs Thayer) female 38 1 0
## 3 Heikkinen, Miss. Laina female 26 0 0
## 4 Futrelle, Mrs. Jacques Heath (Lily May Peel) female 35 1 0
## 5 Allen, Mr. William Henry male 35 0 0
## 6 Moran, Mr. James male NA 0 0
## Ticket Fare Cabin Embarked
## 1 A/5 21171 7.2500 S
## 2 PC 17599 71.2833 C85 C
## 3 STON/O2. 3101282 7.9250 S
## 4 113803 53.1000 C123 S
## 5 373450 8.0500 S
## 6 330877 8.4583 Qtrain <- train %>% mutate(
Survived = factor(Survived),
Pclass = factor(Pclass),
Embarked = factor(Embarked),
Sex = factor(Sex))
head(train)## PassengerId Survived Pclass
## 1 1 0 3
## 2 2 1 1
## 3 3 1 3
## 4 4 1 1
## 5 5 0 3
## 6 6 0 3
## Name Sex Age SibSp Parch
## 1 Braund, Mr. Owen Harris male 22 1 0
## 2 Cumings, Mrs. John Bradley (Florence Briggs Thayer) female 38 1 0
## 3 Heikkinen, Miss. Laina female 26 0 0
## 4 Futrelle, Mrs. Jacques Heath (Lily May Peel) female 35 1 0
## 5 Allen, Mr. William Henry male 35 0 0
## 6 Moran, Mr. James male NA 0 0
## Ticket Fare Cabin Embarked
## 1 A/5 21171 7.2500 S
## 2 PC 17599 71.2833 C85 C
## 3 STON/O2. 3101282 7.9250 S
## 4 113803 53.1000 C123 S
## 5 373450 8.0500 S
## 6 330877 8.4583 QCONTOH DARI ASDOS
p_age = ggplot(train) +
geom_freqpoly(mapping = aes(x = Age, color = Survived), binwidth = 1) +
theme(legend.position = "right")
p_sex = ggplot(train, mapping = aes(x = Sex, fill = Survived)) +
geom_bar(stat='count', position='fill') +
labs(x = 'Sex') +
scale_fill_discrete(name="Surv")
p_class = ggplot(train, mapping = aes(x = Pclass, fill = Survived, colour = Survived)) +
geom_bar(stat='count', position='fill') +
labs(x = 'Pclass') +
theme(legend.position = "none")
p_emb = ggplot(train, aes(Embarked, fill = Survived)) +
geom_bar(stat='count', position='fill') +
labs(x = 'Embarked') +
theme(legend.position = "none")
p_sib = ggplot(train, aes(SibSp, fill = Survived)) +
geom_bar(stat='count', position='fill') +
labs(x = 'SibSp') +
theme(legend.position = "none")
p_par = ggplot(train, aes(Parch, fill = Survived)) +
geom_bar(stat='count', position='fill') +
labs(x = 'Parch') +
theme(legend.position = "none")
p_fare = ggplot(train) +
geom_freqpoly(mapping = aes(Fare, color = Survived), binwidth = 0.05) +
scale_x_log10() +
theme(legend.position = "none")
p_age
Fig. 2
p_sex
Fig. 2
p_fare
Fig. 2
p_class
Fig. 2
p_emb
Fig. 2
p_sib
Fig. 2
p_par
Fig. 2
GRAFIK
ggplot(train, aes(x = Age)) +
geom_histogram(bins = 30, fill = 'pink', color = 'black') +
labs(x = 'Usia', y = 'Jumlah Penumpang', title = 'Distribusi Usia Penumpang') +
theme(plot.title = element_text(hjust = 0.5))## Warning: Removed 177 rows containing non-finite outside the scale range
## (`stat_bin()`).
ggplot(train, aes(x = factor(Pclass), fill = factor(Pclass))) +
geom_bar() +
labs(x = 'Kelas Tiket', y = 'Jumlah Penumpang', title = 'Distribusi Kelas Tiket Penumpang') +
theme(plot.title = element_text(hjust = 0.5)) +
scale_fill_manual(values = c('#FF70AB', '#FFAF61', '#FFDB5C'),
name = "Kelas Tiket",
labels = c("Kelas 1", "Kelas 2", "Kelas 3")) +
theme_minimal() +
theme(
plot.title = element_text(hjust = 0.5, face = "bold", size = 14),
axis.title = element_text(face = "bold", size = 12),
axis.text = element_text(size = 10),
legend.title = element_text(face = "bold", size = 12),
legend.text = element_text(size = 10)
) +
geom_text(stat = 'count', aes(label = ..count..), vjust = -0.5, color = 'black')## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
embarked_counts <- train %>% count(Embarked)
ggplot(embarked_counts, aes(x = "", y = n, fill = Embarked)) +
geom_bar(stat = "identity", width = 1) +
coord_polar("y", start = 0) +
theme_void() +
labs(fill = "Pelabuhan Embarkasi", title = "Distribusi Pelabuhan Embarkasi Penumpang")
sex_counts <- train %>% count(Sex)
ggplot(sex_counts, aes(x = "", y = n, fill = Sex)) +
geom_bar(stat = "identity", width = 1) +
coord_polar("y", start = 0) +
theme_void() +
labs(fill = "Sex", title = "Distribusi Sex Penumpang")