Tugas10

Algoritma & Struktur Data

Email             : calvin.riswandi@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/Calvinriswandy/
Jurusan          : Statistika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 Import/Eksport CSV

Terdapat beberapa cara untuk menginput data, berikut adalah cara menginput data dengan menggunakan format CSV

# pengaturan directory
print(getwd())

## [1] "C:/Users/5/Documents/Data"

getwd()

## [1] "C:/Users/5/Documents/Data"

setwd(getwd())

# Import data
df1 <-read.csv("Input/input1.csv",sep = ",")             # Import data 1 format CSV
df2 <-read.csv("Input/input2.csv",sep = ",")             # Import data 2 format CSV
 
# eksport data
write.csv(df1,"Output/output1.csv", row.names = FALSE)   # eksport data 1 format CSV
write.csv(df2,"Output/output2.csv", row.names = FALSE)   # eksport data 2 format CSV

2 Import/eksport Excel

Microsoft Excel adalah program spreadsheet yang paling banyak orang gunakan untuk menyimpan data dengan format .xls atau .xlsx. Berikut adalah langkah-langkah untuk menginput data tersebut masuk ke Rstudio. Caranya sebagai berikut:

#install.packages(c("readxl", "writexl"))
pacman::p_load(readxl, writexl)

# Import data
df3 <-read_excel("Input/input4.xls",sheet= 1)            # Import data format XLS
df4 <-read_excel("Input/input3.xlsx",sheet="DuplicateX") # Import data format XLSX (excel 2003<)

# eksport data
write_xlsx(df3,"Output/output3.xls")                     # eksport data format XLS
write_xlsx(df4,"Output/output4.xlsx")                    # eksport data format XLS

3 Import/Eksport TXT dan RDS

Kita ketahui bahwa format yang paling umum digunakan untuk Import/Eksport data adalah file CSV dan XLS. Tetapi, untuk ukuran data CSV dan XLS lebih besar. Jadi untuk mengatasi permasalahan ini, maka kita menggunakan data berformat TXT atau file biner R (RDS). Berikut cara untuk menginput data berformat TXT dan Biner:

# Import data

df5 <- read.table("Input/input5.txt")       # Import data format TXT (notepad)
df6 <- source("Input/input6.rdmpd")         # Import data format TXT (rdmpd)
df7 <- readRDS("Input/input7.rds")          # Import data format binary RDS
df8 <- readRDS("Input/input8.ascii")        # Import data format binart ASCII

# eksport data

write.table(df5,"Output/output5.txt")               # eksport data format TXT (notepad)
dump("df6","Output/output6.rdmpd")                  # eksport data format TXT (rdmpd)
saveRDS(df7,"Output/output7.rds")                   # eksport data format binary RDS
saveRDS(df8,"Output/output8.ascii", ascii= TRUE)    # eksport data format binart ASCII

4 Import/Eksport XML

XML adalah kumpulan file dan data di World Wide Web atau yang biasa kita kenal sebagai WWW. XML singkatan dari eXtensible Markup Language. Berikut cara untuk menginput data berformat XML:

library("XML")                                # memasukan library "XML"
library("kulife")                             # memasukan library "kulife"
library("methods")                            # memasukan library "methods"

df9 <- xmlParse("Input/input9.xml")           # Import data format xml
xml_df <- xmlToDataFrame(df9)                 # mengkonversi menjadi dataframe
write.xml(xml_df, "Output/output9.xml")       # eksport data format xml

5 Import/Eksport JSON

File JSON adalah file yang digunakan untuk menyimpan data sebagai teks dalam format yang daapat dibaca manusia. JSON adalah singkatan dari JavaScript Object Nation. Berikut cara untuk menginput data berformat JSON:

library("jsonlite")                             # memasukan library "jsonlite"

df10 <-fromJSON("Input/Input10.json")           # Import data format json
json_df <- as.data.frame(df10)                  # mengkonversi menjadi dataframe
write_json(json_df, "Output/output10.json")     # eksport data format json

6 Import/Eksport dari web

banyak webside yang menyediakan data untuk digunakan penggunanya. di R kita bisa mengekstrak data spesifik dari situs web tersebut secara terprogram.

6.1 CSV

Sebagai contohnya:

# web_csv <- read.csv()         # Tinggal di isi link .CSV

6.2 XLSX

library(rio)
install_formats()

## [1] TRUE

# web_xlsx <- rio::import()     # Tinggal di isi link .XLSX