＜●＞＜●＞

d<-c(61000,15200,6380,4980,2240)
d.names<-c("Visualization","Infographics","Data\nvisualization","Infomation\narchitecture","Infomation\ndesign")
barplot(d,main="Google検索ヒット件数",ylab="件数(000s)", names.arg=d.names, col=c("blue","red","purple","green","cyan"))

d<-c(4750,2440,652,598,159,120)
d.names<-c("可視化","見える化","情報デザイン","インフォグラフィック","ビジュアライゼーション","情報アーキテクチャ")
barplot(d,main="Google検索ヒット件数",ylab="件数(000s)",ylim=c(0,5000), names.arg=d.names, col=c("blue","yellow","cyan","red","blue","green"))

Visualization,61000000
Infographics,15200000
Data visualization,6380000
Information architecture,4980000
Information design,2240000

可視化,4750000
見える化,2440000
情報デザイン,652000
インフォグラフィック,598000
ビジュアライゼーション,159000
情報アーキテクチャ,120000