Send and read SEO data to Excel/CSV

⚠️ THIS IS A WORK IN PROGRESS

CSV and Excel file remain one of amongst the most well-used file formats for exchange data.

Read your data from a CSV

#setup where to read the file
setwd("~/Desktop")
# en write the file
test <- read.csv(df, "data.csv")

Export your data into a CSV

assuming your data is store inside df var, fairly simple:

#setup where to write the file
setwd("~/Desktop")
# en write the file
write.csv(df, "data.csv")

Read an excel

# the file.choose() will prompte a file selector
# the 1 say we want to load the first tab
test <- xlsx::read.xlsx(file.choose(),1)

Export your data into an excel file

A little bit more complex, we’ll use the ‘xlsx’ package

#setup where to write the file
setwd("~/Desktop")
# if the package is not instal yet, run this
# install.packages("xlsx")
# Loading the package
library(xlsx)
# we write the file
write.xlsx(df, "data.xlsx")

A few more tips for you:

I’ll like to use the sheetName option to explicitly name the tab. The default name is “Sheet1”. Quite useful to have a record of when the file has been generated for example. Replace last instruction what follows and you’ll be able to know.

write.xlsx(df, "data.xlsx", sheetName=format(Sys.Date(), "%d %b %Y"))

Another good one that I like is to send the excel file to a Shared folder directly. Replace first instruction by

setwd("/Users/me/Dropbox/Public")

Of course, replace the file path with yours.

Import and merge a batch of CSV files

Aggregate several CSV files into one using file name as a column

library(plyr)
library(readr)
library(purrr)
# add the path where the csv's are located
setwd("./Downloads/test/")
# list csv files inside the directory
# for each: import the csv (read.csv function)
# add filename as a column
# and merge
Tbl <- list.files(path = "./",
pattern="*.csv",
full.names = T) %>%
map_df(function(x) read_csv(x, col_types = cols(.default = "c")) %>%
mutate(filename=gsub(".csv","",basename(x))))
View(Tbl)