Visualisasi data dengan GGPlot2

Instal library

Beberapa library yang perlu diinstal sebagai berikut :

library(ggplot2)

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

library(readxl)

## Warning: package 'readxl' was built under R version 4.4.2

library(ggthemes)

## Warning: package 'ggthemes' was built under R version 4.4.2

library(gridExtra)

## Warning: package 'gridExtra' was built under R version 4.4.2

Input Data

Data di input dari microsoft Excel dengan syntax sebagai berikut :

setwd("C:/Users/aulia.rachmah/Documents/Zoom/Tugas Kuliah-Informatika/Probabilitas & Statistika Sem.2")
data <- read_excel("data_tren_penggunaan_ai.xlsx")
head(data)

## # A tibble: 6 × 8
##   Industri   `Jenis Pekerjaan` `Tingkat Penggunaan AI` `Respon terhadap AI`
##   <chr>      <chr>             <chr>                   <chr>               
## 1 Manufaktur Software Engineer Rendah                  Negatif             
## 2 Keuangan   Analis Keuangan   Tinggi                  Positif             
## 3 Teknologi  Data Scientist    Sedang                  Negatif             
## 4 Teknologi  Dosen             Tinggi                  Positif             
## 5 Teknologi  Analis Keuangan   Rendah                  Positif             
## 6 Pendidikan Analis Keuangan   Sedang                  Positif             
## # ℹ 4 more variables: `Lama Bekerja (tahun)` <dbl>,
## #   `Frekuensi Penggunaan AI per Minggu` <dbl>,
## #   `Efisiensi Kerja Sebelum AI` <dbl>, `Efisiensi Kerja Sesudah AI` <dbl>

Pie chart

Dari data tersebut akan disajikan visualisasi data dalam bentuk pie chart. Berikut terlampir hasil visualisasi datanya :

pie_chart <- ggplot(data, aes(x ="", fill = Industri)) +
geom_bar(width = 1) +
coord_polar("y", start=0) +
theme_minimal() +
labs(title="Distribusi Industri") +
theme(axis.text.x = element_blank())

pie_chart