如何在标签为阿拉伯语或波斯语字体的情况下使用R pdf设备进行绘图？

Question

我有一个乡村村庄的数据库，村庄的名称用阿拉伯字体记录（例如“احمدآباد”）。我想用R的pdf设备绘制一些变量与村庄的名称，但是在绘图之后，所有的村庄名称都在图中用点（........）显示。我还尝试使用UTF-8编码导入数据库文件，但这也没有解决问题只有一个简单的区别，在这种情况下是未知字符（..†..§....†....“§。 ..）。±）被点替换。 我还使用extrafont库将字体加载到pdf设备，然后将它们嵌入到文件中，但它也没有解决问题。 请帮助我，我在帖子中搜索但我找不到答案。

当我抬头时，表示村庄的名字是未知的字符，如下所示。我认为在绘制这个问题之前应该解决。

> head(AllData)
  Row  City   District              Village Sampl.P. Day Month Year Tur.
2   1 Baneh   ط¢ظ„ظˆطھ         ط¨ط§ط±ط¢ظˆط±  Network   4     4   88 0.14
3   2 Baneh   ط¢ظ„ظˆطھ         ط¨ط§ط±ط¢ظˆط±  Network   4     4   88 0.12
4   3 Baneh ظ†ظ…ط´ظٹط±           ظƒظˆط®ط§ظ†  Network  21    10   88 3.36
5   1 Bijar ظƒط±ط§ظ†ظٹ    ط´ظٹط® ط¨ط´ط§ط±طھ  Network  25     1   88 0.27
6   2 Bijar ظƒط±ط§ظ†ظٹ         ط¢ظ„ظ¾ظ‡ظˆطھ  Network  11     2   88 0.14
7   3 Bijar ظƒط±ط§ظ†ظٹ ظ‚ط±ظ‡ ظ…ط­ظ…ط¯ ظ„ظˆ  Network   3     3   88 0.74

我的变量与村庄名称的平均值在下图中进行了灌封。我使用以下函数制作情节：

MeanRef1<- function(x,y ,DATA,v1,XLAB,YLAB,v2 ,XLIM ){
  group.CI(x~y ,DATA) 
  with(group.CI(x~y,DATA),
      segplot(y~x.lower+x.upper,center=x.mean,
      draw.bands = FALSE,  segments.fun = panel.arrows, 
      ends = "both", angle = 90, length = .03, 
      par.settings = simpleTheme(pch = 19, col = 1,cex = 0.5), 
      xlab = paste(XLAB,"±","SE"),
      ylab=YLAB,
      xlim=XLIM,
        panel = function(x, y, z, ...) { 
        panel.abline(h = z, col = "grey", lty = "dashed") 
        panel.abline(v = v1, col = "red") 
        panel.abline(v = v2, col = "red")   
        panel.segplot(x, y, z, ...)})  ) 

}

以下是调用函数的代码：

pdf("CCPPVillageGnd.pdf", width=5, height=16,  pointsize = 600)# Start graph---
MeanRef1(AllData[which(AllData$Sampl.P.=="Groundwater "), ]$CCPP,AllData[which(AllData$Sampl.P.=="Groundwater "), ]$Village,AllData,4,"CCPP", "Village",10,c(-10,20) )
dev.off()# END graph------ 

以下是头部的dput（）。

> dput(head(AllData))
structure(list(Row = c(1L, 2L, 3L, 1L, 2L, 3L), City = structure(c(1L, 
1L, 1L, 2L, 2L, 2L), .Label = c("Baneh", "Bijar", "Dehgolan", 
"Divandareh", "Kamyaran", "Marivan", "Qorveh", "Saghez", "Sanandaj", 
"Sarvabad"), class = "factor"), District = structure(c(3L, 3L, 
21L, 16L, 16L, 16L), .Label = c("", "اورامان", "آلوت", "بوالحسن", 
"پشت آربابا", "چنگ الماس", "چهاردولي", "خاوميرآباد", "خاووميرآباد", 
"زيويه", "سارال", "سرشيو", "سريش آباد", "شوي", "كاني سور", "كراني", 
"كرفتو", "كلاترزان", "مركزي", "موچش", "نمشير", "ننور", "ئيلاق"
), class = "factor"), Village = structure(c(38L, 38L, 323L, 243L, 
30L, 270L), .Label = c("", "ابراهيم آباد", "ابراهيم آباد ياپل", 
"اجگره", "احمد كر", "احمدآباد", "اسلام آباد", "اسلامدشت", "اشرف آباد", 
"اشرف آباد قوچ", "اكبرآباد", "امين آباد", "امين آباد قصلان", 
"انجيران", "انگوژان", "انگيجه", "انگينه", "اورامان", "آبباريك", 
"آبفار", "آبيدر", "آخكند", "آرندان", "آرين", "آزادويس عليا", 
"آغبلاغ ", "آق تپه", "آقبلاق", "آل كبود", "آلپهوت", "آلي همدان", 
"آونگان", "آهنگران", "بابارشاني", "باباريز", "باخرم", "باخله", 
"بارآور", "باشبلاغ", "باشقشلاق", "باشماق", "باغان", "باقرآباد", 
"بان سعيد", "باينچوب", "بدر", "برچم", "برده رش", "برده رشه خاوميرآباد", 
"برده سفيد", "برقرو", "برقلعه", "برويشكاني", "بلبان آباد", "بلدستي", 
"بلكه", "بوالحسن", "بوانه", "بوريدر", "بهارستان", "بهارلو", "بهرام گنبد", 
"بيدرشان", "بيساران", "بيلو", "بيلوار", "بيله", "پاپاله", "پايگلان", 
"پشت آربابا", "پشته", "پلوره", "پيرخضران", "پيرصفا", "پيريونس", 
"پيله", "تاته رشيد", "تازه آباد صوفي بله", "تازه آباد عيسي آباد", 
"تازه آباد قروچاي", "تبريز خاتون", "تخت زنگي", "ترخان آباد", 
"تفين", "تنگي سر", "توپ آغاج", "تودارصمدي", "توداروته", "تيژتيژ", 
"جانقلي", "جبرئيلان", "جشني آباد", "جعفرآباد", "جعفرآباد سياه منصور", 
"جيرانمينگه", "چارلي بلاغ", "چالاب", "چاولكان وزير", "چپقلو", 
"چراغ آباد", "چرميله", "چشمه كاظم", "چشمه منتش", "چطاق", "چمقلو", 
"چناره", "چناره ", "چوپي", "چور", "چور و ننه", "چولجه", "چومان", 
"چوئين", "چهاردولي غربي", "چهارگاه", "چي چي خوار", "حاج عبدل", 
"حاجي آباد", "حاجي پمق", "حسن آباد", "حسن آباد كنگره", "حسن آباد گرگان", 
"حسن آبله", "حسن قره", "حسين آباد", "حسين آباد شمالي", "حسين آباد گرگان", 
"حقه", "حيدرديده بان", "خSarvabad", "خامسان", "خانباغي", "خانقاه حسن جادار", 
"خانم كن", "خروسه", "خريله", "خشكدره", "خضران", "خليچيان", "خليفه ترخان", 
"خواجه مير", "خوري آباد", "خوشمقام", "دادانه كمانگر", "دانيكش", 
"درگاه شيخان", "درويان", "درويان عليا", "درويش خاكي", "دره اسب", 
"دره تفي", "دره نخي", "دره هرد", "دري", "دزلي", "دل", "دلبران", 
"دميو", "دورود", "دوزخدره", "دوسر", "دويسه", "ده بنياد", "ده رقه پيرحسين", 
"ده كانان", "ديوزند", "ذكي بيگ عليا", "رزاب", "رستمان", "رشه ده", 
"رشيد قلعه", "رشيدآباد", "رودبار", "ريخلان", "زاغه عليا", "زرده كمر", 
"زرواو", "زرواو سفلي", "زرينجوب", "زرينه", "زريوار", "زلي", "زويران", 
"زيوه", "زيويه", "ژان", "ژاورود", "ژريژه", "ژنين", "سارال", "ساوجي", 
"سرا", "سراب", "سراب قاميش", "سرابكام", "سرچشمه", "سرخه توت", 
"سرخه جوب", "سردوش", "سرشيو", "سرقلعه", "سركل", "سرينجيانه", 
"سعدآباد", "سعيدآباد", "سلسي عليا", "سلطان آباد دره ويران", "سليمان كندي", 
"سنته", "سنگ سفيد", "سنگين آباد", "سورال", "سورسور", "سورين", 
"سياسران", "سياسران سفلي", "سياناو", "سيس", "سيف آباد", "سيف سفلي", 
"سيف عليا", "سيلتان", "سيويچ سفلي", "سيويچ عليا", "شاراني", "شاليار", 
"شانوره", "شاه نشين", "شاه ولي", "شاهجوب", "شاهو", "شاهيني", 
"شجاع آباد", "شركه", "شريف كندي", "شعباني", "شوي", "شهابيه", 
"شهراني", "شهرك صنعتي", "شهرك كراني", "شهرك ورمهنگ", "شيخ بشارت", 
"شيخ تقه", "شيخ عطار", "شيخه كويره", "شيرين بلاغ", "صادق آباد", 
"صادق آباد قادرمرز", "صوفي بله", "طينال", "ظله جوب", "عباس آباد", 
"عسكران", "علي آباد", "علي آباد جنت بو", "علي آباد كرفتو", "علي آباد ياپل", 
"فرج آباد", "فقيه كان", "قادرآباد", "قادرمرز", "قاسم آباد", "قاملو", 
"قباسرخ", "قتلو", "قراتوره", "قرخلر", "قروچاي", "قره محمد لو", 
"قزلبلاغ", "قزلتپه", "قطوند", "قلعه", "قلعه جقه عليا", "قلعه جي", 
"قلعه روتله", "قلعه ريحانه", "قلعه شيخان", "قلعه فولاد", "قلعه كهنه پاپاله ", 
"قلعه گاه عليا", "قلعه گاه گودرز", "قلقله", "قوچاق", "قوخ", "قورت دره", 
"قوري چاي", "قول استر", "قهرآباد حومه", "قينرجه", "كاظم آباد", 
"كاقلي", "كاكوذكريا", "كامشگران", "كاني پهن", "كاني چاي", "كاني حسين بگ", 
"كاني دينار", "كاني سانان", "كاني سفيد احمد كر", "كاني سفيد كلكان", 
"كاني سور", "كاني شاقلي", "كاني شيرين", "كاني گويز", "كاني ميران", 
"كبودخاني عليا", "كتك", "كچه گنبد پيرتاج", "كرگ آباد", "كرگينه", 
"كروندان", "كژيكران", "كلاترزان", "كلاتي", "كلجي", "كمال آباد شهابيه", 
"كوپه قران", "كوتان سفلي", "كوچر", "كوخ مامو", "كوخان", "كوره دره سفلي", 
"كوره دره عليا", "كوسالان", "كول", "كولان", "كوله ساره", "كوليت", 
"كوماسي", "كومائين", "كيله كبود", "گازرخاني", "گاگل", "گاورود", 
"گاوشله", "گاومله", "گرگرعليا", "گرگه اي", "گزان سفلي", "گل تپه", 
"گل تپه سفلي", "گل تپه عليا", "گلان", "گلانه", "گلتپه", "گلچيدر", 
"گلستانه", "گله", "گلي كران", "گليه", "گماره لنگ", "گنداب عليا", 
"گندمان", "گوشخاني", "گوگتپه", "گومه اي", "گويله", "گيلي كران", 
"لاويتان", "لاين", "لره دول", "لك", "لنج آباد", "لنگريز", "لون سادات", 
"لون كهنه", "م . برده رشه خاوميرآباد", "م . بيلو", "م. دزج", 
"م.آغيازي", "ماسان", "ماسيدر", "ماقوت", "ماموله", "ماويان", "مبارك آباد", 
"مجتمع تحقيقات كشاورزي", "مجتمع دزج", "مجتمع ريخلان", "مجين", 
"محراب", "محمد آباد كريان", "محمد علي آباد", "محمدعلي آباد", 
"محمده", "مرادآباد", "مرگ", "مرواريد", "مشيرآباد اوريه", "مظفرآباد", 
"موسك", "موكه", "ميدول", "ميسوراب", "ميك", "ميهم سفلي", "ميهم عليا", 
"ناوه", "نبي آباد", "نجف آباد", "نجنه رضا", "نران", "نزار", "نساره ", 
"نساره سفلي", "نساره عليا", "نسل", "نگارستان", "نگل", "نمشير", 
"ننور", "نوبهار", "نورمحمدكندي", "نه نه", "ني", "ني آباد", "وزير", 
"وله ژير", "ولي آباد", "وندرني سفلي", "وندرني عليا", "ويسه", 
"ويله", "وينسار", "هانه شيخان", "هانيس", "هجرت", "هرسين", "هزاركانيان", 
"هشتادجفت", "هلتوشان", "هلو", "هليز آباد", "هنگه چينه", "هنگه ژاله", 
"يازيبلاغي", "يعقوب آباد", "يلغوزآغاج", "يمينان سفلي", "ينگجه", 
"ينگي كند سياه منصور", "ئيلان جنوبي", "ئيلان شمالي"), class = "factor"), 
    Sampl.P. = structure(c(2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Groundwater ", 
    "Network", "Reservoir"), class = "factor"), Day = c(4, 4, 
    21, 25, 11, 3), Month = c(4, 4, 10, 1, 2, 3), Year = c(88, 
    88, 88, 88, 88, 88), Tur. = c(0.14, 0.12, 3.36, 0.27, 0.14, 
    0.74), T = c(28.1, 27.6, 19.5, 21.2, 23.3, 25.5), pH = c(6.7, 
    6.6, 7.56, 7.4, 7.1, 7.7), Ecmh = c(394.2, 277.4, 408.8, 
    876, 313.9, 1905.3), Ecms = c(39.42, 27.74, 40.88, 87.6, 
    31.39, 190.53), TDS = c(252.3, 174.8, 261.6, 569.4, 200.9, 
    1276.6), TH = c(186.8, 145.3, 305.2, 380.5, 186.3, 704.6), 
    Cl = c(18.8, 6.9, 13.9, 28.9, 6, 101.2), SO4 = c(10, 2, 64, 
    156, 10, 600), CO3 = c(0, 0, 0, 0, 0, 0), Alk = c(119.1, 
    138.2, 149, 314.9, 144.2, 132.1), NO3 = c(32, 7.5, 10, 10, 
    16.3, 60), NO2 = c(0, 0, 0, 0, 0, 0), Ca = c(68.1, 43.2, 
    70.4, 104.8, 35.7, 86.4), Mg = c(4, 9.1, 31.4, 28.8, 23.6, 
    118.7), Na = c(NA, NA, 12, NA, NA, NA), K = c(NA, NA, 0, 
    NA, NA, NA), Mn = c(0, 0, 0, 0, 0, 0), As = c(0, 0, 0, 0, 
    0, 0), CO2 = c(4, 7, 20, 14, 8, 4), LI = c(-0.815683775, 
    -1.031083193, -0.035458255, 0.262299098, -0.697756373, 0.092070534
    ), RY = c(8.33136755, 8.662166387, 7.630916509, 6.875401803, 
    8.495512746, 7.515858932), CCPP = c(-50.9138138, -78.58783739, 
    0.045250252, 26.84998173, -28.20836319, 3.488737546), LS = c(0.310504536, 
    0.085594517, 0.581772243, 0.648044359, 0.131196584, 5.869947015
    ), SL = c(0.051036087, 0.033989865, 0.295660938, 0.45829351, 
    0.069971995, 0.223251159), AI = c(11.00613116, 10.77306408, 
    11.97783121, 12.31560623, 11.20870576, 12.15448885), PSI = c(7.81933249, 
    8.094229466, 7.631902546, 7.105043264, 8.026274918, 7.660141106
    ), DFI = c(0.083049363, 0.049943642, 0.501396512, 1.031986052, 
    0.108162079, 0.725720681), ME = c(-4.14803e-06, -6.43682e-06, 
    1.76907e-08, 5.74793e-06, -7.98249e-06, 3.79148e-06), H2Co3 = c(0.000899942, 
    0.001355815, 0.000170536, 0.000473944, 0.000463594, 8.55779e-05
    ), Hco3 = c(0.002378325, 0.002760271, 0.002964313, 0.006269787, 
    0.002876898, 0.002614427), Co3 = c(8.28637e-07, 7.19049e-07, 
    6.37456e-06, 1.11734e-05, 2.22873e-06, 1.22379e-05), CT = c(0.003279095, 
    0.004116806, 0.003141224, 0.006754904, 0.003342721, 0.002712242
    ), pHs = c(7.515683775, 7.631083193, 7.595458255, 7.137700902, 
    7.797756373, 7.607929466), pHeq = c(7.21203506, 7.167936921, 
    7.559013963, 7.170358539, 7.569237828, 7.555717826)), .Names = c("Row", 
"City", "District", "Village", "Sampl.P.", "Day", "Month", "Year", 
"Tur.", "T", "pH", "Ecmh", "Ecms", "TDS", "TH", "Cl", "SO4", 
"CO3", "Alk", "NO3", "NO2", "Ca", "Mg", "Na", "K", "Mn", "As", 
"CO2", "LI", "RY", "CCPP", "LS", "SL", "AI", "PSI", "DFI", "ME", 
"H2Co3", "Hco3", "Co3", "CT", "pHs", "pHeq"), row.names = c(NA, 
6L), class = "data.frame")

使用cairo_pdf生成以下图表，但仍然将字符分开并反转。

jpeg("CCPPVillageNet.jpg", width=5, height=10, units="in", res=600)
MeanRef1(AllData[which(AllData$Sampl.P.=="Groundwater "), ][1:100,]$CCPP,AllData[which(AllData$Sampl.P.=="Groundwater "), ][1:100,]$Village,AllData,4,"CCPP", "Village",10,c(-10,20) )
dev.off()

sessionInfo（）也如下：

> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: i386-w64-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=Farsi_Iran.1256  LC_CTYPE=Farsi_Iran.1256   
[3] LC_MONETARY=Farsi_Iran.1256 LC_NUMERIC=C               
[5] LC_TIME=Farsi_Iran.1256    

attached base packages:
[1] stats     graphics  grDevices utils     datasets 
[6] methods   base     

other attached packages:
[1] Cairo_1.5-6         latticeExtra_0.6-26
[3] RColorBrewer_1.1-2  Rmisc_1.5          
[5] plyr_1.8.1          lattice_0.20-29    

loaded via a namespace (and not attached):
[1] grid_3.1.1  Rcpp_0.11.2 tools_3.1.1
> 

Answer 1

Cairo包可能会有所帮助。

library(Cairo)

CairoPDF("test.pdf")
plot(0, main="حمد آباد")
dev.off()

编辑

根据您的数据，使用cairo_pdf

可以呈现名称

# add libraries
library(latticeExtra)
library(Rmisc)

# tweak your code so the subset of data plots
cairo_pdf("CCPPVillageGnd.pdf")
MeanRef1(AllData$CCPP, AllData$Village,
         AllData, 4, "CCPP", "Village", 10, c(-10,20) )
dev.off()

返回