## http://www.datendesign-r.de/spiechart/
#
# pdf('~/desktop/tmp.pdf', width = 15, height = 11, bg = 'snow')
# library(xlsx)
# x<-read.xlsx("~/downloads/Healthcare_costs.xlsx",1)
# library(RColorBrewer)
# par(omi = c(0.5,0.5,0.75,0.5), mai = c(0.1,0.1,0.1,0.1), las = 1)
#
# n <- nrow(x)
# faktor <- with(x, max(sqrt(Acosts60)) / 0.8)
#
# # Grafik definieren und weitere Elemente
#
# plot.new()
# f0<-rep(NA,n)
# farben<-brewer.pal(n,"Set3")
# for (i in 1:n) {
# par(new=TRUE)
# r<-col2rgb(farben[i])[1]
# g<-col2rgb(farben[i])[2]
# b<-col2rgb(farben[i])[3]
# f0[i]<-rgb(r,g,b,190,maxColorValue=255)
# wert<-format(x$Total60/1000000,digits=1)
# komplett<-paste(x$Disease,": ",wert," Mio. $",sep="")
# if (x$Acosts60[i] == max(x$Acosts60)) {bez<-komplett} else {bez<-NA}
#
# # Segmente erstellen
#
# pie(x$Patients60,border=NA,radius=sqrt(x$Acosts60[i])/faktor,col=f0,
# labels=bez,cex=1.8)
# par(new=TRUE)
# r<-col2rgb(farben[i])[1]
# g<-col2rgb(farben[i])[2]
# b<-col2rgb(farben[i])[3]
# f0[i]<-rgb(r,g,b,maxColorValue=255)
# pie(x$Patients60,border=NA,radius=sqrt(x$Pcosts60[i]) / faktor,
# col=f0,labels=NA)
# f0<-rep(NA,n)
# }
#
# # Betitelung
#
# mtext("The Cost of Getting Sick",3,line=-1,adj=0,cex=3.5,outer=T)
# mtext("The Medical Expenditure Panel Survey. Age: 60, Total Costs: 41.4 Mio. US $",3,line=-3.6,adj=0,cex=1.75,outer=T)
# mtext("Inside: Personal Costs. Outside: Insurer Costs.",1,line=0,adj=0,cex=1.75,outer=T,font=3)
# mtext("visualization.geblogs.com/visualization/health_costs/",1,line=0,adj=1.0,cex=1.75,outer=T,font=3)
# dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.