data=read.table('Detailed_distribution_of_RdRP_types.dat')
for (i in 1:length(data$V1))
{
clade=data$V1[i]
type=as.character(data$V2[i])
stat=as.numeric(strsplit(gsub('/',' ',data$V3[i]),' ')[[1]])
pdf(paste('Piechart_',clade,'_',type,'.pdf',sep=''),width=4,height=4)
pie(c(stat[1],stat[2]-stat[1]),col=c('gray','white'),labels=c(type,''))
dev.off()
}
