Tugas 5

Algoritma dan Sturktur Data

Email             : albert.prayogo99@gmail.com
RPubs            : https://rpubs.com/albert23899
Jurusan          : Statistika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 Import/Eksport data CSV dengan R

Memastikan Direktori Kerja

print(getwd()) #Cetak Direktori Kerja R

## [1] "E:/Matana/Semester 2/Algoritma dan Struktur Data/Tugas 5"

getwd() #Cetak Direktori Kerja R

## [1] "E:/Matana/Semester 2/Algoritma dan Struktur Data/Tugas 5"

setwd("E:\\Matana\\Semester 2\\Algoritma dan Struktur Data") #Atur Direktori

Mengimpor Data CSV Cara 1

setwd(getwd())
df1<-read.csv("Data/Input/input1.csv",sep = ",") #Format Pemisah Koma
df2<-read.csv("Data/Input/input2.csv",sep=";") #Format Pemisah Titik Koma

Export Data CSV

write.csv(df1,"Data/Output/output1.csv",row.names=FALSE)
write.csv(df2,"Data/Output/output2.csv",row.names=FALSE)

Cara 2

#Setting Direktori
(WD<-getwd())

## [1] "E:/Matana/Semester 2/Algoritma dan Struktur Data/Tugas 5"

if(!is.null(WD))setwd(WD)
df1<-read.csv(file.path(WD,'Data/Input','input1.csv'))
df2<-read.csv(file.path(WD,'Data/Input','input2.csv'))
#Eksport Data
write.csv(df1, file.path(WD,'Data/Output','output1.csv'),row.names=FALSE)
write.csv(df2, file.path(WD,'Data/Output','output2.csv'),row.names=FALSE)

Cara 3

df3<-read.csv(file.choose())

## Warning in read.table(file = file, header = header, sep = sep, quote = quote, :
## line 1 appears to contain embedded nulls

## Warning in read.table(file = file, header = header, sep = sep, quote =
## quote, : incomplete final line found by readTableHeader on 'E:\Matana\Semester
## 2\Algoritma dan Struktur Data\Tugas 5\Data\Input\input3.xlsx'

2 Mengimpor dan Mengeksport Data Excel

pacman::p_load(readxl,writexl)
#Import data
df3<-read_excel("Data/Input/input3.xlsx",sheet=1) #Import data xlsx(2003-up)
df4<-read_excel("Data/Input/input4.xls") #Import data XLS 97-03

#Eksport Data
write_xlsx(df3,"Data/Output/output3.xls")
write_xlsx(df4,"Data/Output/output4.xlsx")

3 Import dan Eksport TXT dan RDS

#Import data
df5<-read.table("Data/Input/input5.txt") #format TXT(notepad)
df6<-source("Data/Input/input6.Rdmpd")#format TXT(RDPMPD)
df7<-readRDS("Data/Input/input7.rds") #format binary RDS
df8<-readRDS("Data/Input/input8.ascii") #format binary ASCII
#Eksport Data
write.table(df5,"Data/Output/output5.txt")
dump("df6","Data/Output/output6.Rdmpd")
saveRDS(df7,"Data/Output/output7.rds")
saveRDS(df8,"Data/Output/output8.ascii",ascii=TRUE)

4 Impor/Ekspor XML

library("XML") #load paket XML
library("kulife") #load paket kulife
library("methods")#load paket kondisional
df9<-xmlParse("Data/Input/input9.xml") #impor data xml
xml_df<-xmlToDataFrame(df9) #konversi ke Data Frame
write.xml(xml_df,"Data/Output/output9.xml") #ekspor data XML

#Impor Data Dari WEB CSV

web_csv<-read.csv("https://github.com/Bakti-Siregar/dataset/raw/master/Bookdown-Data-Science-for-Beginners/csv1.csv")

library(rio)
install_formats()

## [1] TRUE

web_xlsx<-rio::import("https://github.com/Bakti-Siregar/dataset/blob/master/Bookdown-Data-Science-for-Beginners/xlsx1.xlsx?raw=true")