{"id":320,"date":"2017-12-26T20:07:25","date_gmt":"2017-12-26T20:07:25","guid":{"rendered":"http:\/\/science.ekqvist.fi\/blogi\/?p=320"},"modified":"2018-01-24T18:39:17","modified_gmt":"2018-01-24T18:39:17","slug":"shiny","status":"publish","type":"post","link":"https:\/\/science.ekqvist.fi\/blogi\/shiny\/shiny\/","title":{"rendered":"Shiny"},"content":{"rendered":"

P\u00e4\u00e4sin kokeilemaan r-ohjelman shiny-ohjelmaa. Ensin asennettaan paketti:<\/p>\n

install.packages(“rsconnect”)
\ninstall.packages(“RCurl”)<\/p>\n

install.packages(“shiny”)<\/p>\n

Installing package into \u2018\/home\/marko\/R\/i686-pc-linux-gnu-library\/3.4\u2019\r\n(as \u2018lib\u2019 is unspecified)\r\n<\/span>also installing the dependencies \u2018httpuv\u2019, \u2018xtable\u2019, \u2018R6\u2019, \u2018sourcetools\u2019\r\n<\/span><\/pre>\n
Sitten ajetaan ohjelma:
\nlibrary(shiny)<\/p>\n
runExample(“01_hello”)
\nEsimerkki l\u00f6ytyy t\u00e4\u00e4lt\u00e4 shiny sivuiltani<\/a>.<\/p>\n
T\u00e4ss\u00e4 koodia:<\/p>\n
> #initialize
\n> library(datasets)
\n> library(ggplot2)
\n>
\n> #helper function (convert vector to named list)
\n> namel<-function (vec){
\n+ tmp<-as.list(vec)
\n+ names(tmp)<-as.character(unlist(vec)) + tmp + } > # shiny server side code for each call
\n> shinyServer(function(input, output, session){
\n+ #update variable and group based on dataset
\n+ output$variable <- renderUI({
\n+ obj<-switch(input$dataset,
\n+ “iris” = iris,
\n+ “mtcars” = mtcars)
\n+ var.opts<-namel(colnames(obj))
\n+ selectInput(“variable”,”Variable:”, var.opts) # uddate UI
\n+ })
\n+
\n+ output$group <- renderUI({
\n+ obj<-switch(input$dataset,
\n+ “iris” = iris,
\n+ “mtcars” = mtcars)
\n+ var.opts<-namel(colnames(obj))
\n+ selectInput(“group”,”Groups:”, var.opts) # uddate UI
\n+ })
\n+
\n+ output$caption<-renderText({
\n+ switch(input$plot.type,
\n+ “boxplot” = “Boxplot”,
\n+ “histogram” = “Histogram”,
\n+ “density” = “Density plot”,
\n+ “bar” = “Bar graph”)
\n+ })
\n+
\n+
\n+ output$plot <- renderUI({
\n+ plotOutput(“p”)
\n+ })
\n+
\n+ #plotting function using ggplot2
\n+ output$p <- renderPlot({
\n+
\n+ plot.obj<<-list() # not sure why input$X can not be used directly?
\n+ plot.obj$data<<-get(input$dataset)
\n+ plot.obj$variable<<-with(plot.obj$data,get(input$variable))
\n+ plot.obj$group<<-with(plot.obj$data,get(input$group))
\n+
\n+ #dynamic plotting options
\n+ plot.type<-switch(input$plot.type,
\n+ “boxplot” = geom_boxplot(),
\n+ “histogram” = geom_histogram(alpha=0.5,position=”identity”),
\n+ “density” = geom_density(alpha=.75),
\n+ “bar” = geom_bar(position=”dodge”)
\n+ )
\n+
\n+ require(ggplot2)
\n+ #plotting theme
\n+ .theme<- theme(
\n+ axis.line = element_line(colour = ‘gray’, size = .75),
\n+ panel.background = element_blank(),
\n+ plot.background = element_blank()
\n+ )
\n+ if(input$plot.type==”boxplot”) { #control for 1D or 2D graphs
\n+ p<-ggplot(plot.obj$data,
\n+ aes(
\n+ x = plot.obj$group,
\n+ y = plot.obj$variable,
\n+ fill = as.factor(plot.obj$group)
\n+ )
\n+ ) + plot.type
\n+
\n+ if(input$show.points==TRUE)
\n+ {
\n+ p<-p+ geom_point(color=’black’,alpha=0.5, position = ‘jitter’)
\n+ }
\n+
\n+ } else {
\n+
\n+ p<-ggplot(plot.obj$data,
\n+ aes(
\n+ x = plot.obj$variable,
\n+ fill = as.factor(plot.obj$group),
\n+ group = as.factor(plot.obj$group),
\n+ #color = as.factor(plot.obj$group)
\n+ )
\n+ ) + plot.type
\n+ }
\n+
\n+ p<-p+labs(
\n+ fill = input$group,
\n+ x = “”,
\n+ y = input$variable
\n+ ) +
\n+ .theme
\n+ print(p)
\n+ })
\n+ })<\/p>\n","protected":false},"excerpt":{"rendered":"
P\u00e4\u00e4sin kokeilemaan r-ohjelman shiny-ohjelmaa. Ensin asennettaan paketti: install.packages(“rsconnect”) install.packages(“RCurl”) install.packages(“shiny”) Installing package into \u2018\/home\/marko\/R\/i686-pc-linux-gnu-library\/3.4\u2019 (as \u2018lib\u2019 is unspecified) also installing the dependencies \u2018httpuv\u2019, \u2018xtable\u2019, \u2018R6\u2019, \u2018sourcetools\u2019 Sitten ajetaan ohjelma: library(shiny) runExample(“01_hello”) Esimerkki l\u00f6ytyy t\u00e4\u00e4lt\u00e4 shiny sivuiltani. T\u00e4ss\u00e4 koodia: > #initialize > library(datasets) > library(ggplot2) > > #helper function (convert vector to named list) > namel<-function […] Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[56],"tags":[],"_links":{"self":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/320"}],"collection":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/comments?post=320"}],"version-history":[{"count":5,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/320\/revisions"}],"predecessor-version":[{"id":330,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/320\/revisions\/330"}],"wp:attachment":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/media?parent=320"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/categories?post=320"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/tags?post=320"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}