library(tidyverse)
library(ggplot2)
library(ggrepel)
library(webr)
theme_set(theme_minimal())
datax <- read.csv("C:/Kuliah/Semester 2/Komputasi Statistika/Data/Data Visualisasi Plot/datacontoh3.csv", sep=",")

Data

Ini datanya

Data 1

head(datax)
##    kode jeniskelamin pendidikan jenispekerjaan lamabekerja penghasilan
## 1 94001    LAKI LAKI        SMA Pegawai swasta           5    12432199
## 2 94002    LAKI LAKI        SMA            PNS          15     3645634
## 3 94003    LAKI LAKI        SMA Pegawai swasta           1     3560606
## 4 94004    LAKI LAKI    DIPLOMA Pegawai swasta           6    10254833
## 5 94005    LAKI LAKI    DIPLOMA Pegawai swasta          16     5197534
## 6 94006    LAKI LAKI         S1 Pegawai swasta           2     8000000

Data setelah diolah

df2=data.frame(table(datax$jeniskelamin))
head(df2)
##        Var1  Freq
## 1 LAKI LAKI 44775
## 2 PEREMPUAN 11225

Plot

Ini plotnya:

JPG

Ini jpg (gatau apa terserah):