Is there a package I
can download which will support special language characters?
This example is in Czech, however should i replicate it into other
languages with specific signs, is there any universal way to do that?
many thnx to everyone for help,
m.
cz09<-c(3539.2,91.7,782.5,1028.2,1594.3,1368.9,2062.2,58.2,3402.5,3679.3,1638.5,
4139.3,4375.9,1264)
names(cz09)<-c('Food products',
'Leather and leather products',
'Textiles and textile products',
'Wood and wood products',
'Paper products; publishing and printing',
'Chemicals, chemical products',
'Rubber and plastic products',
'Refined petroleum products',
'Machinery and equipment n.e.c.',
'Electrical and optical equipment',
'Other non-metallic mineral products',
'Basic metals and fabricated metal products',
'Transport equipment','Manufacturing n.e.c.')
colors=c('yellow','chocolate4','deeppink','green','darkgreen',
'orange','cyan','lightgoldenrod1','blue','red','blueviolet',
'honeydew3','deeppink4','sandybrown')
win.graph(width = 7, height = 4)
par(mar=c(0,2.5,0,0))
par(bg='white')
par(mfrow=c(1,1))
pie(cz09,col=colors, border=NA, radius=0.75,
cex=0.75, font=1, font.main=1, cex.main=1.25)
### czech in czech
cz09<-c(3539.2,91.7,782.5,1028.2,1594.3,1368.9,2062.2,58.2,3402.5,3679.3,1638.5,
4139.3,4375.9,1264)
names(cz09)<-c('Výroba potravinářských výrobků',
'Výroba usní a výrobků z usně',
'Výroba textilií, textilních a oděvních výrobků',
'Zpracování dřeva a výroba dřevěných výrobků kromě nábytku',
'Výroba výrobků z papíru; vydavatelství a tisk',
'Výroba chemických látek, přípravků, výrobků a chemických vláken',
'Výroba pryžových a plastových výrobků',
'Rafinérské zpracování ropy',
'Výroba strojů a zařízení j.n.',
'Výroba elektrických a optických přístrojů a zařízení',
'Výroba ostatních nekovových minerálních výrobků',
'Výroba základních kovů, hutních a kovodělných výrobků',
'Výroba dopravních prostředků a zařízení','Zpracovatelský průmysl j.n.')
colors=c('yellow','chocolate4','deeppink','green','darkgreen',
'orange','cyan','lightgoldenrod1','blue','red','blueviolet',
'honeydew3','deeppink4','sandybrown')
win.graph(width = 7, height = 4)
par(mar=c(0,10,0,8))
par(bg='white')
par(mfrow=c(1,1))
pie(cz09,col=colors, border=NA, radius=0.75,
cex=0.75, font=1, font.main=1, cex.main=1.25)
