library(readxl)
## Warning: package 'readxl' was built under R version 4.3.3
library(ggplot2)
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, union
# Baca data
data1 <- read_excel("C:/Users/HP/Downloads/car.xlsx")
data1 <- data1[1:(nrow(data1)-1), ]
summary(data1)
##     Car_id               Date                        Customer Name     
##  Length:23905       Min.   :2022-01-02 00:00:00.00   Length:23905      
##  Class :character   1st Qu.:2022-09-20 00:00:00.00   Class :character  
##  Mode  :character   Median :2023-03-13 00:00:00.00   Mode  :character  
##                     Mean   :2023-03-01 14:09:50.64                     
##                     3rd Qu.:2023-09-08 00:00:00.00                     
##                     Max.   :2023-12-31 00:00:00.00                     
##     Gender          Annual_Income      Dealer_Name          Company         
##  Length:23905       Min.   :   10080   Length:23905       Length:23905      
##  Class :character   1st Qu.:  386000   Class :character   Class :character  
##  Mode  :character   Median :  735000   Mode  :character   Mode  :character  
##                     Mean   :  830824                                        
##                     3rd Qu.: 1175000                                        
##                     Max.   :11200000                                        
##     Model              Engine          Transmission          Color          
##  Length:23905       Length:23905       Length:23905       Length:23905      
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##      Price        Dealer_No          Body Style            Phone        
##  Min.   : 1200   Length:23905       Length:23905       Min.   :6000101  
##  1st Qu.:18001   Class :character   Class :character   1st Qu.:6746465  
##  Median :23000   Mode  :character   Mode  :character   Median :7496199  
##  Mean   :28090                                         Mean   :7497761  
##  3rd Qu.:34000                                         3rd Qu.:8248172  
##  Max.   :85800                                         Max.   :8999579  
##  Dealer_Region     
##  Length:23905      
##  Class :character  
##  Mode  :character  
##                    
##                    
##

Plot 2: Bar Chart

ggplot(data1, aes(x = Dealer_Name, y = Annual_Income, fill = Annual_Income)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  scale_fill_gradient(low = "lightblue", high = "darkblue", name = "Annual Income (Rp)") +
  labs(title = "Annual Income per Dealer", x = "Nama Dealer", y = "Annual Income (Rp)") +
  theme_minimal() +
  theme(legend.position = "right",
        plot.title = element_text(hjust = 0.5, face = "bold"))

Berdasarkan JUmlah Annual Income per Dealer bisa dilihat bahwa Dealer dengan jumlah Income terbanyak adalah progressive Shippers Cooperative Assosiation No dan Dealer dengan jumlah Income paling sedikit adalah Nebo Chevrolet