#Latihan VDE W9

#latihan titanic
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.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, union
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.4.3
#import dataset
titanic = read.csv("C:/Users/KOKO MEME/Downloads/titanic2.csv.csv")

#Contoh Visualisasi

#1. perbandingan jenis kelamin di titanic
ggplot(titanic,aes(x=Sex))+
  geom_bar(fill="pink")+
  labs(title = "Perbandingan jenis kelamin Penumpang Titanic")