送你兩款炫酷到沒朋友的神奇字體~

今天給大家介紹兩款字體，這兩款字體是一個喜歡設計的大神學長開發的，專門用作mini圖表字體。

而且只要是支持字體顯示的設備，幾乎都可以用,當然Excel裡面也可以用，這裡我用R語言來演示如何使用圖表字體來製作mini信息圖，豐富數據表達形式。

PieChart #mini百分比餅圖

BlockChart #mini方塊堆積百分比圖

項目主頁：

http://9ishare.cc/

以下代碼運行前務必要保證系統已經安裝了這兩款字體：

library("ggplot2")nlibrary("showtext")nlibrary("Cairo")nlibrary("ggthemes")nlibrary("dplyr")n

#導入這兩款字體：nfont.add("BlockCharts","BlockCharts.ttf")nfont.add("PieChart","PieCharts.ttf")n

構造數據：

#mini餅圖數據：nPieChart<-data.frame(x=rep(1:5,2),y=rep(2:3,each=5),value=round(runif(10,0,1),2),class=rep(c("A","B"),each=5))n#匹配mini餅圖字體代碼：nchar1<-"A0F1K2P3U4Z5e6j7o8t9y"%>%strsplit("")%>%unlistnchar2<-"BCDEGHIJLMNOQRSTVWXYabcdfghiklmnpqrsuvwx"%>%strsplit("")%>%unlistnPieChart$label<-ifelse((100*PieChart$value)%%5==0,char1[PieChart$value*20+1],char2[PieChart$value*40+1])n

#mini餅圖可視化過程：nsetwd("E:/微信公眾號/公眾號——數據小魔方/2017年8月/20170805/")nCairoPNG(file="PieChart.png",width_=1000,height=750)nshowtext.begin()nggplot(PieChart,aes(x,y))+ngeom_text(aes(label=label,colour=class),hjust=1,family="PieChart",size=45)+ngeom_text(aes(y=y+.35,label=paste0(value,"%")),hjust=.5,size=7,colour="#C10000")+nscale_colour_manual(values=c("#92D24F","#FFC000"),guide=FALSE)+nylim(1.5,3.5)+nxlim(.5,5.5)+ntheme_void()nshowtext.end()ndev.off()n

#匹配mini百分比方塊堆積圖代碼：nchar3<-"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz①②③④⑤⑥⑦⑧⑨七三上下九二八六十千口土大天太女子山工干平開心才文方無日木四"%>%strsplit("")%>%unlistnPieChart$label2<-char3[PieChart$value*100+1]n

#百分比方塊堆積圖可視化過程：nCairoPNG(file="BlockCharts.png",width_=1000,height=750)nshowtext.begin()nggplot(PieChart,aes(x,y))+ngeom_text(aes(label=label2,colour=class),hjust=.5,family="BlockCharts",size=45)+ngeom_text(aes(y=y+.35,label=paste0(value,"%")),hjust=.5,size=7,colour="#C10000")+nscale_colour_manual(values=c("#92D24F","#FFC000"),guide=FALSE)+nylim(1.5,3.5)+nxlim(0.5,5.5)+ntheme_void()nshowtext.end()ndev.off()n

是不是感覺很神奇呀，R語言中竟然可以這麼玩字體，沒錯就是這種操作，不誇張的說，只要是系統註冊過的字體，都可以用R語言這麼玩，還記得曾經發過的那一篇中國身份字體地圖嗎，也是這麼玩出來的！

挑戰不可能之——ggplot環形字體地圖

期待大家可以用這些字體做出新的創意圖表！

聯繫方式：

微信：ljty1991

博客主頁：raindu』s home

個人公眾號：數據小魔方（datamofang）

團隊公眾號：EasyCharts

qq交流群：[魔方學院]298236508