Skip to content

Instantly share code, notes, and snippets.

@fformenti

fformenti/data_prep_domains.R

Created June 30, 2014 03:31
Show Gist options
  • Save fformenti/e4b3c581a53fa6624d39 to your computer and use it in GitHub Desktop.
Save fformenti/e4b3c581a53fa6624d39 to your computer and use it in GitHub Desktop.
Download ZIP
domain names data treatment
Raw
data_prep_domains.R
df <- read.csv('original_gtld.csv', header=TRUE,fileEncoding="LATIN-9")
names(df) <- c("Domain","Company")
df$Company <- gsub(pattern = "AARP", replacement = "AARP Company", df$Company)
df$Company <- gsub(pattern = "ALSTOM", replacement = "ALSTOM Company", df$Company)
df$Company <- gsub(pattern = "LANCASTER", replacement = "LANCASTER Company", df$Company)
df$Company <- gsub(pattern = "SES", replacement = "SES Company", df$Company)
df$Company <- gsub(pattern = "TRANSLATIONS", replacement = "TRANSLATIONS Company", df$Company)
write.csv2(df, file = 'treated_gtld.csv', row.names = F)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment