special language character in a pie chart

Dear List Members,

I am working on a below piece of code: Initially have created pie
charts with Enlish labels to present the data for Czech Republic, now
however I need to print the label with original Czech fonts.

When I copy paste from Word, certain fonts get 'simplified' distorting
original spelling. How can solve this problem? 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)