checkerplot: Checkerplot
In alexkowa/sparkTable: Sparklines and Graphical Tables for TeX and HTML

Description Usage Arguments Author(s) See Also Examples

Visualization of regional indicators with the checkerplot

  checkerplot(data, cols=5, rows=5, geom="line", errorbar=FALSE, title=NULL,
    title.size=20, label.size=11, xbreaks=NULL, xlabels=NULL, ybreaks=NULL,
    ylabels=NULL, ymin=NULL, ymax=NULL, img=NULL, aes_geom=NULL,
    margin_yaxis=0, margin_yaxis2=0,margin_xaxis=0, margin_xaxis2=0, opts=NULL, ...)

`data`	data frame
`cols`	number of columns in the grid
`rows`	number of rows in the grid
`geom`	defines the geom, the geometric object, of the plot ("line", "bar", "point" are possible at the moment)
`errorbar`	TRUE/FALSE plot additional errorbars (testing only)
`title`	title of the plot, displayed above the plot
`title.size`	font size of the plot title
`label.size`	font size of the labels
`xbreaks`	number of breaks for the x-axis, default it is calculated automatically
`xlabels`	labels of the breaks (optional)
`ybreaks`	number of breaks for the y-axis, default it is calculated automatically
`ylabels`	labels of the breaks (optional)
`ymin`	minimum value of y-axis displayed, if not provided it will be automatically calculated
`ymax`	maximum value of x-axis displayed, if not provided it will be automatically calculated
`img`	vector containing all names (must equal the label column in the dataframe data) of pictures (pnm files) displayed beside the label
`aes_geom`	ggplot2 object to define the aesthetics of the geom

`margin_yaxis`	allows to adjust the distance from the plot to the left border of the grid for all elements with an y-axis and its annotation, because the difference number formats on the y-axis might lead to a little displaced plot area
`margin_yaxis2`	allows to adjust the distance from the plot to the left border of the grid for all elements with an y-axis but without annotation
`margin_xaxis`	allows to adjust the distance from the plot to the left border of the grid for all elements with an x-axis and annotation, because the difference number formats on the y-axis might lead to a little displaced plot area
`margin_xaxis2`	allows to adjust the distance from the plot to the left border of the grid for all elements with an x-axis but without annotation
`opts`	ggplot2 object to change settings in the ggplot2 plots
`...`	further arguments passed through

Karin Fuerst, Alexander Kowarik, Matthias Templ

optimal_grid_allocation, export

## Not run: 
### Directory of the package with flags
dirflags = paste(searchpaths()[grep("sparkTable", searchpaths())], "/etc/Flaggen/",
  sep="")
### EXAMPLE for EUROPE
  data(EU_data)
  order_eu = optimal_grid_allocation(EU_data[,16:17],8,7)
  colnames(EU_data)[1] <- c("country")
  EU_data[,18] <- order_eu
  colnames(EU_data)[1] <- c("country")
  colnames(EU_data)[18] <- c("order")
  data_eu = data.frame(cbind(rep(1997,34)), EU_data$unempl_f_1997, EU_data$country,
    EU_data$order)
  colnames(data_eu) = c("x", "y", "names", "order")
  for(year in 1998:2008){
    XX <- data.frame(cbind(rep(year,34)), EU_data[,paste("unempl_f_",year,sep="")],
      EU_data$country, EU_data$order)
    colnames(XX) = c("x", "y", "names", "order")
    data_eu = rbind(data_eu,XX)
  }
dirflags_eu=paste(dirflags,"EU/",sep="")
checkerplot(data_eu, cols=8, rows=7, geom="line", img=dirflags_eu,
            title = "Unemployment rate in Europe 1997 to 2008 (in perc)", title.size=18,
            ylabels=c(5,10,15,20),
      ybreaks=c(5,10,15,20), xbreaks=c(1998,2001,2004,2007),
      xlabels=c("98","01","04","07"),
        margin_yaxis=-0.05, margin_yaxis2=-0.2,
        margin_xaxis=-0.4, margin_xaxis2=0 )

### EXAMPLE for US data
  data(coordUS)
  ## rearrange states which are far away:
  coordUS[coordUS$state=="AK","x"] <- 0.4  ## rearrange Alaska
  coordUS[coordUS$state=="HI","x"] <- 0.5       ## rearrange Hawaii
  ## optimal arrangement of the states:
  order <- optimal_grid_allocation(coordUS[,1:2],13,6)
  order <- data.frame(names=coordUS$state,order=order)
  ## load US healthy insurance data
  data(USdata1)
  data(USdata2)
  nam <- names(USdata1)
  ## delete previous order (optional)
  USdata1 <- USdata1[,-which(names(USdata1)=="order")]
  ## combine data and ordering:
  USdata1 <- merge(USdata1,order,all.x=TRUE,all.y=FALSE)
#  USdata1[is.na(USdata1$order),"order"] <- 14
  USdata1 <- USdata1[,nam]
  ## define directory with flags (pnm's):
  dirflags_us=paste(dirflags,"USStates/",sep="")
  USdata2[,3] <- USdata2[,3]*100
  checkerplot(USdata2[,-2], cols=13, rows=6, geom="bar",
            title="US private health insurance (in percent of the population)",
            title.size=18, ylabels=c(30,60,90), ybreaks=c(30,60,90),
            img=dirflags_us, margin_yaxis=-0.05, margin_yaxis2=-0.2,
        margin_xaxis=-0.4, margin_xaxis2=0)

## End(Not run)