ui <- fluidPage(plotOutput("plot",width = "700px",height = "300px")
)server <- function(input, output, session) {output$plot <- renderPlot(plot(1:5, pch = 19),res = 96)}
本文发布于:2024-02-01 09:04:29,感谢您对本站的认可!
本文链接:https://www.4u4v.net/it/170674946735516.html
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
留言与评论(共有 0 条评论) |