Prak Komstat StatDes

library(stats)
library(car)

## Warning: package 'car' was built under R version 4.5.3

## Loading required package: carData

## Warning: package 'carData' was built under R version 4.5.3

library(lmtest)

## Warning: package 'lmtest' was built under R version 4.5.3

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 4.5.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

library(zoo)

data<-read.table(file.choose(),header=T,sep="\t")

summary(data)

##    Provinsi              TPT             TPAK      
##  Length:38          Min.   :1.490   Min.   :63.98  
##  Class :character   1st Qu.:3.500   1st Qu.:67.44  
##  Mode  :character   Median :4.210   Median :69.56  
##                     Mean   :4.468   Mean   :70.52  
##                     3rd Qu.:5.545   3rd Qu.:72.37  
##                     Max.   :6.960   Max.   :90.66

# Visualisasi 1: Box Plot
boxplot(data$TPT,
        xlab="Tingkat Pengangguran Terbuka (TPT)",
        ylab="Persentase",
        main="Box Plot TPT",
        col="pink")

# Visualisasi 2: Scatter Plot
plot(data$TPAK, data$TPT,
     xlab="TPAK",
     ylab="TPT",
     main="Scatter Plot TPAK dan TPT")

abline(lm(data$TPT~data$TPAK),col="red")