Uncategorized

Pós-Carnaval

aborto

Eu sei que você é um moleque responsável e que você não é uma menina boba. Mas a busca pela palavra “aborto” no Google Trends me diz que esta história de aborto nos três primeiros meses não é apenas fruto da imaginação do seu pai.

Acho que um pai mais preocupado tentaria rever suas agendas, desde 2004, para tentar descobrir se, realmente, o pessoal anda passando dos limites no Carnaval, não?

Bem, divirta-se no Carnaval com o Google Trends e, lembre-se: diversão segura, ok?

UPDATE: Momento R do Dia!

O detalhe aqui é a adaptação da data (os dados são semanais) para fazer o gráfico:

library(ggplot2)
aborto <- read.table(file = “clipboard”, sep = “\t”, header=TRUE)
head(aborto)

# transformando data:

aborto$startingDay <- gsub(“^(\\d+-\\d+-\\d+).+”, “\\1”, aborto$Week)

aborto$date <- as.Date(aborto$startingDay)

g <- ggplot(aborto, aes(date, as.numeric(aborto))) + geom_line()
print(g)

library(scales)
g <- g + scale_x_date(breaks=date_breaks(width=”1 year”),
labels=date_format(“%Y”))

Resultado:

aborto_R_googletrends

Um comentário em “Pós-Carnaval

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s