任何人都有关于如何计算两个圆的交叉区域的闪亮代码或R代码?
ui
库(闪亮)
为绘制直方图的应用程序定义UI
shinyUI(fluidPage(
#应用程序 Headers titlePanel(“选择你的概率”),
#侧栏带有滑块输入,用于箱数sidebarLayout(sidebarPanel(
sliderInput("radius",
"Probability of A",
min = 0,
max = 0.4,
value = 0.2),
sliderInput("radius2",
"Probability of B",
min = 0,
max = 0.4,
value = 0.2)
),
mainPanel(
plotOutput("distPlot")
)
)))
服务器
库(闪亮)库(plotrix)库(网格)
定义绘制直方图所需的服务器逻辑
shinyServer(函数(输入,输出){
output $ distPlot < - renderPlot({
isolate({
plot(c(-1,1),c(-1,1), type = 'n')
})
draw.circle(-0.25,0,input$radius)
draw.circle(0.25,0,input$radius2)
})
})
1 回答
你可以用这个: