data<-read.table("fame4.srt")

times<-data[[1]]
progs<-data[[2]]
people<-data[[3]]
handle<-substr(people,1,4)
langs<-data[[4]]
colous<-c("#FF7070","#70FF70","#8080FF","#70F0F0","#F070F0","#F0F070",
	"#FFA000","#00B070","#C0E030")

label<-paste(people,"\n",langs,sep="")
upeople<-sort(unique(handle))
ucolous<-colous[1:length(upeople)]
names(ucolous)<-upeople
colou<-as.vector(ucolous[handle])

png(file="fame4.png",width=720,height=70+length(times)*40)
par(las=1)
par(mar=c(5,8,4,2))
y<-barplot(horiz=TRUE,times,names.arg=label,log="x",
	xlim=c(1e-2,1e5),
	xlab="Approximate Runtime in Seconds using a Raspberry Pi 4B",
	main="Insane British Anagram Bar Chart of Fame",
	col=colou)
text(1e-2,y,pos=4,labels=progs)
text(times,y,labels=as.character(times),pos=2)
	
dev.off()