R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

Pendahuluan

Histogram adalah salah satu jenis visualisasi data yang digunakan untuk menunjukkan distribusi frekuensi dari sekumpulan data numerik. Dalam R, histogram dapat dibuat dengan fungsi dasar hist() maupun menggunakan paket visualisasi seperti ggplot2.

Dokumen ini akan memandu Anda dalam membuat histogram dari file Excel menggunakan fungsi khusus di R.

Membaca Data dari Excel

Untuk membaca data dari file Excel, kita menggunakan paket readxl. Pastikan file DataTugasR.xlsx berada dalam direktori kerja.

# Membaca file Excel
library(readxl)
DataTugasR <- read_excel("C:/Users/USER/Downloads/MET/DataTugasR.xlsx", 
    range = "b2:g12", col_types = c("text", 
        "text", "text", "numeric", "numeric", 
        "numeric"))
View(DataTugasR)


# Menampilkan struktur data
str(DataTugasR)
## tibble [10 × 6] (S3: tbl_df/tbl/data.frame)
##  $ countrycode  : chr [1:10] "AUS" "AUS" "AUS" "AUS" ...
##  $ country      : chr [1:10] "Australia" "Australia" "Australia" "Australia" ...
##  $ currency_unit: chr [1:10] "Australian Dollar" "Australian Dollar" "Australian Dollar" "Australian Dollar" ...
##  $ year         : num [1:10] 2010 2011 2012 2013 2014 ...
##  $ rgdpo        : num [1:10] 1112664 1175046 1170344 1227129 1225111 ...
##  $ rkna         : num [1:10] 0.822 0.855 0.888 0.916 0.939 ...

Fungsi Membuat Histogram

Kita buat sebuah fungsi yang dapat digunakan untuk membuat histogram dari kolom tertentu:

buat_histogram <- function(data, kolom) {
  if (!kolom %in% colnames(data)) {
    stop("Kolom yang diminta tidak ditemukan dalam data.")
  }
  
  ggplot(data.frame(DataTugasR), aes(x = rgdpo)) +
    geom_histogram(bins = 10, fill = "skyblue", color = "black") +
    labs(title = "Histogram")
}

Contoh Penggunaan Fungsi

Misalnya kita ingin membuat histogram dari kolom bernama Nilai:

buat_histogram(DataTugasR,"rgdpo")

Catatan: Ganti “Nilai” dengan nama kolom sebenarnya sesuai dengan dataset Anda.

Penutup

Dengan pendekatan ini, kita dapat dengan mudah membuat histogram dari berbagai kolom hanya dengan memanggil fungsi buat_histogram(). Ini sangat berguna untuk eksplorasi awal data dan analisis distribusi.