dot diagram (visualization of `formula`)

dotdiagram.R

library(reshape2)
library(ggplot2)

theme_dotdiagram <- function(...){
  theme_minimal(...)%+%
    theme(axis.text.y = element_text(colour="black"),
          axis.ticks = element_blank(),
          axis.text.x = element_blank(),
          axis.title.x = element_blank(),
          panel.grid.minor = element_blank(),
          panel.grid.major.x = element_blank())
}

f <- ~ Site+Sex+Age+Site:Sex+Age:Site+Age:Sex:Site

df <- melt(attr(terms(f),"factors")>0)
df <- df[df$value,]
ggplot(df,aes(x=Var2,y=Var1,group=Var2))+
  geom_point(size=3)+
  geom_path(linewidth = 1)+
  theme_dotdiagram()+
  ggtitle(label = paste(as.character(f),collapse = " "))
# ggsave("dot.png")