R code

datax <- head(datax)
kable(datax)
kode jeniskelamin pendidikan jenispekerjaan lamabekerja penghasilan
94001 LAKI LAKI SMA Pegawai swasta 5 12432199
94002 LAKI LAKI SMA PNS 15 3645634
94003 LAKI LAKI SMA Pegawai swasta 1 3560606
94004 LAKI LAKI DIPLOMA Pegawai swasta 6 10254833
94005 LAKI LAKI DIPLOMA Pegawai swasta 16 5197534
94006 LAKI LAKI S1 Pegawai swasta 2 8000000 
summary(datax)
##       kode       jeniskelamin        pendidikan        jenispekerjaan    
##  Min.   :94001   Length:6           Length:6           Length:6          
##  1st Qu.:94002   Class :character   Class :character   Class :character  
##  Median :94004   Mode  :character   Mode  :character   Mode  :character  
##  Mean   :94004                                                           
##  3rd Qu.:94005                                                           
##  Max.   :94006                                                           
##   lamabekerja     penghasilan      
##  Min.   : 1.00   Min.   : 3560606  
##  1st Qu.: 2.75   1st Qu.: 4033609  
##  Median : 5.50   Median : 6598767  
##  Mean   : 7.50   Mean   : 7181801  
##  3rd Qu.:12.75   3rd Qu.: 9691125  
##  Max.   :16.00   Max.   :12432199
datax %>%
  group_by(jenispekerjaan) %>%
  summarise(rata_penghasilan = mean(penghasilan, na.rm = TRUE)) %>%
  ggplot(aes(x = reorder(jenispekerjaan, -rata_penghasilan), y = rata_penghasilan, fill = jenispekerjaan)) +
  geom_col() +
  labs(title = "Rata-Rata Penghasilan per Jenis Pekerjaan",
       x = "Jenis Pekerjaan",
       y = "Rata-Rata Penghasilan") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))