¿Mis conciudadanos no tienen wifi?
A alguien leí el otro día que decía que en un bar de carretera habían colocado un cartel diciendo: “Hemos quitado el periódico y hemos puesto wifi”. Viene esto a cuento de
library(rvest)
library(<a href="http://inside-r.org/packages/cran/tm">tm)
library(wordcloud)
res <- sapply(1:17, function(i){
url <- paste("https://decide.madrid.es/participatory_budget/investment_projects?geozone=all&page=",
i, "&random_seed=0.28", sep = "")
tmp <- html_nodes(
read_html(url),
xpath = "//div[starts-with(@id, 'spending_proposal')]/div/div/div[1]/div/h3/a/text()")
as.character(tmp)
})
tmp <- unlist(res)
tmp <- Corpus(VectorSource(tmp))
tmp <- tm_map(tmp, stripWhitespace)
tmp <- tm_map(tmp, content_transformer(tolower))
tmp <- tm_map(tmp, removeWords, stopwords("spanish"))
wordcloud(tmp, scale=c(5,0.5),
max.words=100,
random.order=FALSE,
rot.per=0.35, use.r.layout=FALSE,
colors=brewer.pal(8, "Dark2"))que hace lo que dice, es decir,
a partir de los títulos de las propuestas de los presupuestos participativos del ayuntamieto de Madrid.
¡Bibliotecas! Conciudadanos míos, ¿no tenéis una maldita wifi a mano? Que si por mí fuese, haría como el hostelero de carretera: fuera bibliotecas y a leer a Gerónimo Stilton a la @½#@ wifi.
