library(dplyr)
tibble(nama_depan=c("Jarjar","Shizuka", "Hodor", "Doby", "Rose","Smeagol"),
       nama_belakang=c("Binks","Minamoto","Hodor","House-elf","Harper","Myprecious"),
       gender=c("laki-laki","perempuan","laki-laki","laki-laki","perempuan","unknown"),
       tanggal_lahir=c("50 BBY","8 Mei 1973 CE","unknown","28 Juni","unknown","TA 2430")
       ) %>% write.csv(row.names = F)