このバブル チャートのすべてのタイトル (軸のタイトルなどのメイン) のフォントを変更しようとして頭を悩ませています。「Neutraface Text Demi Alt」、サイズ +14 を使用したいと思います。誰か助けてくれませんか？おしゃれなバブル チャートのコードを知っていますか?
crime <- read.csv("http://datasets.flowingdata.com/crimeRatesByState2005.tsv", header=TRUE, sep="\t")
radius <- sqrt( crime$population/ pi )
2
[1] 2
symbols(crime$murder, crime$burglary, circles=radius, inches=0.35, fg="white", bg="grey", xlab="Murder Rate", ylab="Burglary Rate")
text(crime$murder, crime$burglary, crime$state, cex=0.5)