ggplot_error.R

#### The following code produces a crash of ggplot2 ####

# Load data
hashtag<-"rstats"
infochimps<-read.csv(paste(hashtag,"_infochimps.csv",sep=""))

# Produce plot
png(paste(hashtag,"_infochimps_metric.png",sep=""),height=800,width=800,res=100)
ic.plot<-ggplot(infochimps,aes(x=log(followers_count/friends_count),y=trstrank))+geom_text(aes(label=screen_name,color=tweet.hash,size=replies_out/replies_in))
ic.plot<-ic.plot+xlab(expression(log[frac(Followers,Friends)]))+ylab("Infochimps.org trstrank")+opts(title=paste("Key Actor Analysis for",hashtag," with Infochimps.org Data",sep=""))
print(ic.plot)
dev.off()

#### THE ERROR ####
# <Error>: crossing_count: warning: assertion failed: 0 is not in the range (nan, nan) or (nan, nan); assu^Zming the  latter. Please report this bug.

#### CSV FILE AVAILABLE HERE ####
# https://www.box.net/shared/7ujzzps6jb