tagcloud.R
In tagcloud: Tag Clouds

## ----results="hide",echo=FALSE-------------------------------------------
cairo <- function(name, width, height, ...) grDevices::cairo_pdf(file = paste0(name, ".pdf"), width = width, height = height)
png <- function(name, width, height, ...) grDevices::png(file = paste0(name, ".png"), width = width*300, height = height*300)

## ----fig1plot,fig.width=8,fig.height=3-----------------------------------
library(tagcloud)
data(gambia)
tags <- strmultline(gambia$Term)[1:40]
weights <- -log(gambia$Pvalue)[1:40]
or <- gambia$OddsRatio[1:40]
colors <- smoothPalette(or, max=4)
tagcloud(tags, weights=weights, col=colors)

## ----fig2plot,fig.width=8,fig.height=12----------------------------------
par( mfrow=c( 3, 2 ) )
tagcloud(tags, weights=weights, col=colors, algorithm="oval")
tagcloud(tags, weights=weights, col=colors, algorithm="fill")
tagcloud(tags, weights=weights, col=colors, algorithm="snake")
tagcloud(tags, weights=weights, col=colors, algorithm="random")
tags2 <- gambia$Term[1:20]
cols2 <- colors[1:20]
wei2 <- weights[1:20]
tagcloud(tags2, weights=wei2, col=cols2, algorithm="list")
tagcloud(tags2, weights=wei2, col=cols2, algorithm="clist")

## ----fig3plot,fig.width=8,fig.height=4-----------------------------------
par(mfrow=c(1, 2))
tagcloud(tags, weights=weights, col=colors, fvert=0.3)
tagcloud(tags, weights=weights, col=colors, fvert=0.7)

## ----fig4plot,fig.width=8,fig.height=4-----------------------------------
par(mfrow=c(1, 2))
tagcloud(tags, weights=weights, col=colors, order="size")
tagcloud(tags, weights=weights, col=colors, order="random")

## ----fig5plot,eval=FALSE-------------------------------------------------
#  library(extrafont)
#  library(RColorBrewer)
#  fnames <- sample(fonts(), 40)
#  fweights <- rgamma(40, 1)
#  fcolors <- colorRampPalette( brewer.pal( 12, "Paired" ) )( 40 )
#  tagcloud( fnames, weights=fweights, col=fcolors, family=fnames )

## ----fig6plot------------------------------------------------------------
library(RColorBrewer)
colors <- smoothPalette(weights, pal= brewer.pal( 11, "Spectral" ) )
tagcloud(tags, weights=weights, col=colors, order="size")

## ----fig7plot------------------------------------------------------------
palf <- colorRampPalette( c( "blue", "grey", "red" ) )
colors <- smoothPalette(weights, palfunc= palf )
tagcloud(tags, weights=weights, col=colors, order="size")