# data[].attributes.body
http://bit.do/PDFCombine

# data[].attributes.body
#Sum dan listkan by group
aggregate(MasterDBInterim$AMAUN, by=list(MasterDBInterim$TAHUN), FUN=sum)

#Sum dengan satu condition
sum(MasterDBInterim$AMAUN[which(MasterDBInterim$TAHUN=="2016")])

#typeof(NewDBHasil2014$Tahun)

#Tambah New column dan Value TAHUN ke dataframe
NewDBHasil2014 <- mutate(DBHasil2014, Tahun = 2014)
NewDBHasil2015 <- mutate(DBHasil2015, Tahun = 2015)
NewDBHasil2016 <- mutate(DBHasil2016, Tahun = 2016)
NewDBHasil2017 <- mutate(DBHasil2017, Tahun = 2017)

#Tukar nama Column/standardkan

NewDBHasil2014 <- setNames(NewDBHasil2014, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2015 <- setNames(NewDBHasil2015, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2016 <- setNames(NewDBHasil2016, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2017 <- setNames(NewDBHasil2017, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))

#Gabung 3 Data Frame NewDBHasil
MasterDBHasil <- rbind(NewDBHasil2014,NewDBHasil2015,NewDBHasil2016,NewDBHasil2017)
MasterDBHasil <- mutate(MasterDBHasil, Kategori = "Hasil")
#Cara convert ke integer
MasterDBHasil$TAHUN <- as.integer(as.character(MasterDBHasil$TAHUN))

#Gabung Table
MasterDBHasilChart <- rbind(NewDBHasil2014,NewDBHasil2015,NewDBHasil2016)

#Rename Column
MasterDBHasilChart <- MasterDBHasilChart[,c("DEBIT","KREDIT", "SEBENAR")]

#Gabung DbBajet Tahun 2014,2015 dan 2016
MasterDBBajet <- rbind(DBBajet2014, DBBajet2015, DBBajet2016)
MasterDBBajet <- mutate(MasterDBBajet, Kategori = "Bajet")

#Drop Blank Column
DBVotUrus2016 <- DBVotUrus2016[,-(5:7)]

#Gabung DBVotUrus Tahun 2014,2015 dan 2016
MasterDBVotUrus <- rbind(DBVotUrus2014, DBVotUrus2015, DBVotUrus2016)
MasterDBVotUrus <- mutate(MasterDBVotUrus, Kategori = "Belanja")

#######Filter DB Hasil By Tahun
MasterDBHasil_byTahun <- MasterDBHasil %>%
group_by(TAHUN) %>%
summarise(Jumlah = sum(SEBENAR))
MasterDBHasil_byTahun <- mutate (MasterDBHasil_byTahun,Kategori= "Hasil")

#######Filter DB Bajet By Tahun
MasterDBBajet_byTahun <- MasterDBBajet %>%
group_by(TAHUN) %>%
summarise(Jumlah = abs(sum(JUMLAH_BAJET)))
MasterDBBajet_byTahun <- mutate (MasterDBBajet_byTahun,Kategori= "Bajet")

#######Filter DB Bajet By Tahun
MasterDBBelanja_byTahun <- MasterDBVotUrus %>%
group_by(TAHUN) %>%
summarise(Jumlah = sum(JUMLAH_SEBENAR))
MasterDBBelanja_byTahun <- mutate (MasterDBBelanja_byTahun,Kategori= "Belanja")
#write.table(MasterDBHasil_byTahun, file = "~/R/Audit-Dashboard/data/MasterDBHasil_byTahun.csv")

#Gabung MasterDBBajet, MasterDBHasil dan MasterVoturus

MasterDBMuktamad <- rbind (MasterDBBajet_byTahun,MasterDBBelanja_byTahun,MasterDBHasil_byTahun)

#Tambah Column TAHUN dan extract Value tahun dari COlumn Tarikh Baucer dan masukkan ke New Column TAHUN
#DBByrHariSama$TAHUN <- substr(DBByrHariSama$TARIKH_BAUCER, 7, 10)
#DBLebih14Hari$TAHUN <- substr(DBLebih14Hari$TARIKH_BAUCER, 7, 10)
#DBSediaLulusSama$TAHUN <- substr(DBSediaLulusSama$TARIKH_BAUCER, 7, 10)

# data[].attributes.body
Ada banyak aplikasi web yang boleh dirujuk. Disini saya berikan beberapa:
1. bit.do
2. goo.gl
3. bitly.com

Kredit
http://www.prospekdigital.com

# data[].attributes.attachment_link.readable_text
Salah satu masalah yang sering dihadapi oleh para usahawan internet adalah apabila mahu melancarkan kempen mereka menggunakan artikel blog atau landing page yang mempunyai pautan atau URL yang panjang dan sukar untuk diingati oleh prospek yang melihatnya.

Salah satu servis percuma bernama Bit.ly boleh memudahkan proses tersebut. Apa yang anda perlukan hanyalah mendaftar akaun percuma di laman web tersebut dan sejurus selepas anda daftar, anda sudah boleh memendekkan URL kempen atau artikel blog anda.

Tonton video tutorial di bawah untuk lihat bagaimana saya melakukannya:

Semoga bermanfaat! ?

Minat Nak Belajar Pemasaran Digital Lebih Mendalam?

Masukkan nama & emel anda di bawah dan kami akan hantarkan tips berkaitan Pemasaran Digital secara PERCUMA dari semasa ke semasa kepada anda.

About Zulhilmi Zainudin

Pengasas bersama Prospek Digital dan pengasas Bina Blog Dot Com Sendiri. Berpengalaman lebih 5 tahun dalam pemasaran digital dan sangat obses dengan SEO & content marketing.

# data[].attributes.attachment_link.title
Tutorial: Bagaimana Caranya Untuk Memendekkan URL Panjang Menggunakan Bit.ly?

# data[].attributes.attachment_link.description
Salah satu masalah yang sering dihadapi oleh para usahawan internet adalah apabila mahu melancarkan kempen mereka menggunakan artikel blog atau landing page yang mempunyai pautan atau URL yang panjang dan sukar untuk diingati oleh prospek yang melihatnya. Salah satu servis percuma bernama Bit.ly boleh memudahkan proses tersebut.