我有一个乡村村庄的数据库,村庄的名称用阿拉伯字体记录(例如"احمدآباد").我想用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 …我想在我的 Shiny 应用程序中使用roundSlider而不是 sliderinput 小部件。我的简单示例应用程序如下。但我不知道如何返回滑块中选定的值。在我的示例中，renderPrint 仅返回 NULL。感谢您的任何推荐。
library(shiny)
library(shinyWidgets)
ui = shinyUI(fluidPage(
tags$head(
tags$script(src="https://cdn.jsdelivr.net/jquery/1.11.3/jquery.min.js"),
tags$link(href="https://cdn.jsdelivr.net/jquery.roundslider/1.3/roundslider.min.css", rel="stylesheet" ),
tags$script( src="https://cdn.jsdelivr.net/jquery.roundslider/1.3/roundslider.min.js"),
),
tags$div( id="slider1", class="rslider"),
tags$script('$("#slider1").roundSlider({
min:0,
max:110,
radius: 80,
circleShape: "half-top",
sliderType: "range",
showTooltip: true,
value: "0,110"
});'),
tags$div( id="slider2", class="rslider"),
tags$script('$("#slider2").roundSlider({
min:0,
max:110,
radius: 80,
circleShape: "half-top",
sliderType: "min-range",
value: 0
});'),
verbatimTextOutput("slidInp1"),
verbatimTextOutput("slidInp2"),
))
server = function(input, output){
output$slidInp1 <- renderPrint({
print(input$slider1)
})
output$slidInp2 <- renderPrint({
print(input$slider2)
})
}
shinyApp(ui = ui, server = server)
在Mathematica wolfram中,有一个计算超几何2F1()函数的函数.例如在Mathematica中,两个计算如下:
in: Hypergeometric2F1Regularized[15, 8, 10, -0.651542]
out: 7.86105*10^-9
in: Hypergeometric2F1Regularized[31, 13, 18, -2.651542]
out: 5.04779*10^-26
在RI尝试以下等效但结果与上述不相似:
library("BAS")
> hypergeometric2F1(15, 8 ,10, -0.651542,log=F )
[1] 2.441767e-05
> hypergeometric2F1(31, 13, 18, -2.651542,log=F)
[1] Inf
Warning message:
In hypergeometric2F1(31, 13, 18, -2.651542, log = F) :
integral in 2F1 diverges
我想知道R中Mathematica的Hypergeometric2F1Regularized []函数的确切等价物是什么.
谢谢
我有一个数据框，其中包含教师中学生论文的导师和顾问的姓名，例如：
DF<-data.frame(Names=c("Name : Ali , Family : Ahmadi , Type : First supervisor Name : Aram , Family : Rezaeei , Type : Advisor Name : Omid , Family : Saeedi , Type : Advisor 1 Name : Nima , Family : Shaki , Type : Advisor 2 Name : Sohrab , Family : Karimi , Type : Advisor 3",
"Name : Ali , Family : Ahmadi , Type : First supervisor Name : Aram , Family : Rezaeei , …我想知道如何计算R中的大值乘法.R返回Inf!
例如:
6.350218e+277*2.218789e+215
[1] Inf
让我更多地澄清一下这个问题:考虑以下代码和outFunc函数的结果:
library(hypergeo)
poch <-function(a,b) gamma(a+b)/gamma(a)
n<-c(37 , 41 , 4 , 9 , 12 , 13 , 2 , 5 , 23 , 73 , 129 , 22 , 121 )
v<-c(90.2, 199.3, 61, 38, 176.3, 293.6, 318.6, 328.7, 328.1, 313.3, 142.4, 92.9, 95.5)
DF<-data.frame(n,v)
outFunc<-function(k,w,r,lam,a,b) {
((((w*lam)^k) * poch(r,k) * poch(a,b) ) * hypergeo(r+k,a+k,a+b+k,-(w*lam)) )/(poch(a+k,b)*factorial(k))
}
并且函数返回:
outFunc(DF$n,DF$v,0.2, 1, 3, 1)
[1] 0.002911330+ 0i 0.003047594+ 0i 0.029886646+ 0i 0.013560599+ 0i 0.010160073+ 0i
[6] 0.008928524+ …