StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
20196002
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2013-11-25T14:49:18.630
FavoriteCount
0
LastActivityDate
2013-11-26T05:20:15.700
LastEditDate
2013-11-26T05:20:15.700
LastEditorUserId
2967665
OwnerUserId
2967665
ParentId
19625328
PostTypeId
2
Score
2
ViewCount
0
LastEditorDisplayName
text
Body
There is a way to do it, but it's a little ugly. When I first looked at it, I wondered if it could be done using geom_text, but although it gave a representation, it didn't really fit the motif structure. This was a first attempt: <pre><code>require(ggplot2) big_votes_movies = movies[movies$votes > 100000,] p <- ggplot(big_votes_movies, aes(x=rating, y=votes, label=year)) p + geom_text(size=12, aes(colour=factor(year), alpha=0.3)) + geom_jitter(alpha=0) + scale_x_continuous(limits=c(8, 9.5)) + scale_y_continuous(limits=c(90000,170000)) </code></pre> <img src="https://i.stack.imgur.com/jI10O.png" alt="text images"> So then I realised you had to actually render the images within the grid/ggplot framework. You can do it, but you need to have physical images for each year (I created rudimentary images using ggplot, just to use only one tool, but maybe Photoshop would be better!) and then make your own grobs which you can add as custom annotations. You then need to make your own histogram bins and plot using apply. See below (it could be prettied up fairly easily). Sadly only works with cartesian co-ords :( <img src="https://i.stack.imgur.com/H40pm.png" alt="plot"> <pre><code>require(ggplot2) require(png) require(plyr) require(grid) years<-data.frame(year=unique(big_votes_movies$year)) palette(rainbow(nrow(years))) years$col<-palette() # manually set some different colors # create a function to write the "year" images writeYear<-function(year,col){ png(filename=paste(year,".png",sep=""),width=550,height=300,bg="transparent") im<-qplot(1,1,xlab=NULL,ylab=NULL) + theme(axis.text.x = element_blank(),axis.text.y = element_blank()) + theme(panel.background = element_rect(fill = "transparent",colour = NA), plot.background = element_rect(fill = "transparent",colour = NA), panel.grid.minor = element_line(colour = "white")) + geom_text(label=year, size=80, color=col) print(im) dev.off() } #call the function to create the placeholder images apply(years,1,FUN=function(x)writeYear(x["year"],x["col"])) # then roll up the data summarydata<-big_votes_movies[,c("year","rating","votes")] # make own bins (a cheat) summarydata$rating<-cut(summarydata$rating,breaks=c(0,8,8.5,9,Inf),labels=c(0,8,8.5,9)) aggdata <- ddply(summarydata, c("year", "rating"), summarise, votes = sum(votes) ) aggdata<-aggdata[order(aggdata$rating),] aggdata<-ddply(aggdata,.(rating),transform,ymax=cumsum(votes),ymin=c(0,cumsum(votes))[1:length(votes)]) aggdata$imgname<-apply(aggdata,1,FUN=function(x)paste(x["year"],".png",sep="")) #work out the upper limit on the y axis ymax<-max(aggdata$ymax) #plot the basic chart z<-qplot(x=10,y=10,geom="blank") + scale_x_continuous(limits=c(8,9.5)) + scale_y_continuous(limits=c(0,ymax)) #make a function to create the grobs and call the annotation_custom function callgraph<-function(df){ tiles<-apply(df,1,FUN=function(x)return(annotation_custom(rasterGrob(image=readPNG(x["imgname"]), x=0,y=0,height=1,width=1,just=c("left","bottom")), xmin=as.numeric(x["rating"]),xmax=as.numeric(x["rating"])+0.5,ymin=as.numeric(x["ymin"]),ym ax=as.numeric(x["ymax"])))) return(tiles) } # then add the annotations to the plot z+callgraph(aggdata) </code></pre> and here's the plot with photoshopped images. I just save them over the generated imaages, and ran the second half of the script so as not to regenerate them. <img src="https://i.stack.imgur.com/h8mNV.png" alt="enter image description here"> OK - and then because it was bothering me, I decided to install extrafont and build the prettier graph using just R: <img src="https://i.stack.imgur.com/13kfj.png" alt="pretty"> and here's the code: <pre><code> require(ggplot2) require(png) require(plyr) require(grid) require(extrafont) #font_import(pattern="Show") RUN THIS ONCE ONLY #load the fonts loadfonts(device="win") #create a subset of data with big votes big_votes_movies = movies[movies$votes > 100000,] #create a custom palette and append to a table of the unique years (labels) years<-data.frame(year=unique(big_votes_movies$year)) palette(rainbow(nrow(years))) years$col<-palette() #function to create the labels as png files writeYear<-function(year,col){ png(filename=paste(year,".png",sep=""),width=440,height=190,bg="transparent") im<-qplot(1,1,xlab=NULL,ylab=NULL,geom="blank") + geom_text(label=year,size=70, family="Showcard Gothic", color=col,alpha=0.8) + theme(axis.text.x = element_blank(),axis.text.y = element_blank()) + theme(panel.background = element_rect(fill = "transparent",colour = NA), plot.background = element_rect(fill = "transparent",colour = NA), panel.grid.minor = element_line(colour = "transparent"), panel.grid.major = element_line(colour = "transparent"), axis.ticks=element_blank()) print(im) dev.off() } #call the function to create the placeholder images apply(years,1,FUN=function(x)writeYear(x["year"],x["col"])) #summarize the data, and create bins manually summarydata<-big_votes_movies[,c("year","rating","votes")] summarydata$rating<-cut(summarydata$rating,breaks=c(0,8,8.5,9,Inf),labels=c(0,8,8.5,9)) aggdata <- ddply(summarydata, c("year", "rating"), summarise, votes = sum(votes) ) aggdata<-aggdata[order(aggdata$rating),] aggdata<-ddply(aggdata,.(rating),transform,ymax=cumsum(votes),ymin=c(0,cumsum(votes))[1:length(votes)]) #identify the image placeholders aggdata$imgname<-apply(aggdata,1,FUN=function(x)paste(x["year"],".png",sep="")) ymax<-max(aggdata$ymax) #do the basic plot z<-qplot(x=10,y=10,geom="blank",xlab="Rating",ylab="Votes \n",main="Big Movie Votes \n") + theme_bw() + theme(panel.grid.major = element_line(colour = "transparent"), text = element_text(family="Kalinga", size=20,face="bold") ) + scale_x_continuous(limits=c(8,9.5)) + scale_y_continuous(limits=c(0,ymax)) #creat a function to create the grobs and return annotation_custom() calls callgraph<-function(df){ tiles<-apply(df,1,FUN=function(x)return(annotation_custom(rasterGrob(image=readPNG(x["imgname"]), x=0,y=0,height=1,width=1,just=c("left","bottom")), xmin=as.numeric(x["rating"]),xmax=as.numeric(x["rating"])+0.5,ymin=as.numeric(x["ymin"]),ymax=as.numeric(x["ymax"])))) return(tiles) } #add the tiles to the base chart z+callgraph(aggdata) </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POMake the value of the fill the actual fill in ggplot2
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USTroy
UserOwnerUserId
1. USTroy
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POMake the value of the fill the actual fill in ggplot2
 singulars
 PostTypePostTypeId
 PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
2. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTAcceptedByOriginator
3. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId
1. COThis is extremely impressive and answers my question perfectly! However, this is a little too involved for my use and so probably will end up not using this method, but if it becomes a necessity I will definitely be taking notes here!
 singulars
 PostPostId
 PO
 UserUserId
 USuser1104160

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.