Hoď ma hore
prihlásenie:
Registrácia  |  Zabudnuté heslo
tu sa nachádzate: hlavná stránka  počítače  téma
kategórie:  

R Shiny

4
reakcií
398
prečítaní
Tému 25. apríla 2019, 12:31 založil TheDude.

podobné témy:

názov témy
posledná
reakcií
11. 11. 2007
15
30. 06. 2017
31
30. 03. 2017
1
01. 05. 2019
20
04. 02. 2018
5
25. 04. 2019
40
 
 


1.
označiť príspevok

TheDude muž
   25. 4. 2019, 12:31 avatar
library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

# Application title
titlePanel("Old Faithful Geyser Data",

# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
numericInput("pocet", "vyber pocet R v tab", 10, min = 1, max = 100),
wellPanel(
selectInput("atribut","Vyberte atribut",choices =colnames(airquality)),
radioButtons("farba","Vyberte farbu grafu",choices=c("yellow","red","green"),
textInput("nadpis", "zadajte nadpis ", "nadpis",
actionButton("goButton", "Go!"
)

),

# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot",
tableOutput("table"
)
)
))

Server :
library(shiny)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

observeEvent(input$goButton, {
output$distPlot <- renderPlot({
boxplot(get(input$atribut)~Month, data = airquality, col = input$farba, main = input$nadpis)

})

output$table <- renderTable({
tail(airquality, input$pocet)
})
}, once=TRUE)
})


2.
označiť príspevok

TheDude muž
   25. 4. 2019, 12:36 avatar
Skupina A :
ibrary(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

# Application title
titlePanel("Data o mestach ",

# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
selectInput("atribut", "Vyberte atribut:",
choices = c(colnames(state.x77))),

radioButtons("farba", "vyber farbu:",
choices =c(red= "red" , blue= "blue" )),

numericInput("cislo", "vyber:", 12, min = 2, max = 20),
numericInput("rozdelenie", "vyber:", 12, min = 1, max = 50)
),

# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot",
tableOutput("tables"
)
)
))

Server:

library(shiny)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

output$distPlot <- renderPlot({
x <- state.x77[,input$atribut]
bins <- seq(min(x), max(x), length.out = input$cislo +1)
hist(x, breaks = bins, col= input$farba)

})
output$tables <- renderTable({ head(iris, input$cislo)

})

})


3.
označiť príspevok

TheDude muž
   25. 4. 2019, 12:39 avatar
C
server
library(shiny)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

output$textik <- renderText({
vypis=c("Vybrali ste si", input$radioID, "farbu a na porovnanie ste zadali atribúty ", input$selectID1, input$selectID2)
print(vypis)
})

output$distPlot <- renderPlot({

# generate bins based on input$bins from ui.R
# neviem ako zobrazit zaroven aj iny stlpec od selectID2
x <- quakes[, input$selectID1]
#bins <- seq(min(x), max(x), length.out = input$bins + 1)

# draw the histogram with the specified number of bins
hist(x, col =input$radioID, border = 'white', lwd=input$numericID)

})

})
library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

# Application title
titlePanel("Dáta Quakes",

flowLayout(
selectInput("selectID1","Vyberte atribút č.1",choices=colnames(quakes)),
selectInput("selectID2","Vyberte atribút č.2", choices=colnames(quakes)),
radioButtons("radioID","Vyberte farbu grafu",choices=c("green","yellow","black"),
numericInput("numericID","Zadajte hrúbku bodov:",value=1, min=1, max=3)
),

# Show a plot of the generated distribution
mainPanel(
textOutput("textik",
plotOutput("distPlot",
tableOutput("tablee"
)
)
)


4.
označiť príspevok

TheDude muž
   25. 4. 2019, 12:49 avatar
f=function(x){
5*sin(x)-exp(x)
}

curve(5*sin(x),-5,5)
curve(exp(x),add=TRUE, col="blue"

# vsetky sa nedaju najst.........

uniroot(f, lower=-4, upper=-2, tol=1e-4)
uniroot(f, lower=0, upper=1, tol=1e-4)
uniroot(f, lower=1, upper=2, tol=1e-4) # najvyssi koren

predaj=c(9,5,18,14,10,12,7,11,5,16,14,11)
cena=c(18,24,9,15,17,16,20,15,22,14,15,19)

tabulka=data.frame(predaj,cena)
ciara=lm(predaj~cena,data=tabulka)
plot(tabulka)
abline(ciara)


5.
označiť príspevok

TheDude muž
   25. 4. 2019, 12:56 avatar
---
title: "Skupina A"
author: "Tomáš"
date: "22 apríla 2017"
output: html_document
---

#Štruktúra systému R
**R** systém je rozdelený do *dvoch* konceptuálnych častí.

<!-- nemam ten zoznam -->

********
##Relevantné simulačné nástroje
Názov | Výhody | Nevýhody | Open-source
------|--------|----------|------------
R |Podpora knižníc|Náročnejší|Áno
Matlab|Podpora matíc|Podpora štat. metód|Nie

###Dáta mtcars
Dáta mtcars obsahujú tieto názvy stĺpcov

```{r, echo=TRUE}
tab=mtcars
print(colnames(tab))

```

<!--Neviem dat dokopy histogramy-->
```{r pressure, echo=FALSE}
hist(tab$hp, col="blue", main="Nadpis grafu", xlab="hp"
hist(tab$wt, col="blue", main="Nadpis grafu", xlab ="wt"

---
title: "Skupina C"
author: "Tomáš"
date: "24 apríla 2017"
output: html_document
---
## Štruktúra systému R
**R** systém je rozdelný do *dvoch* konceptuálnych častí.

1. R "base" systém
+ CRAN(priestor pre zdielanie balíkov)
2. Všetko ostatné

### Kvadratická rovnica
Diskriminant vypočítame podľa vzorca $D=b^2{2}+4*a*c$

##Dáta a graf
Počet stĺpcov a riadkov dát airquality

```{r eval=FALSE }
nrow(airquality)
ncol(airquality)
```
```{r echo=FALSE }
boxplot(airquality$Ozone~airquality$Month, col="blue", xlab="xova os", ylab="ylonova os", main="GRAF"
```
váš príspevok

Pridávať príspevky môžu iba zaregistrovaní účastníci fóra.

Som zaregistrovaný

nick: heslo:
zostať trvalo prihlásený    
Nie som zaregistrovaný

Vaša prezývka:  

Po zaregistrovaní budete automaticky presmerovaní do tejto témy.

najnovšie príspevky na celom fóre

dnes, 09:25,  Rozhoduje Daniel Lipšic o tom,? ?čo zverejní Denník N?? ? Kadiaľ nelegálne unikajú...
dnes, 08:54,  Američanom unikli informácie o rozmiestnení ich jadrových zbraní v Európe......
dnes, 08:25,  1/ Zabrzdeny ti povie ze Chorvatsko je pre zobrakov !!!!:)))
dnes, 08:08,  Veřejnoprávní služba občanům 17. července 2019 Ještě v dobách normalizace jsem si...
dnes, 07:17,  v klinickej smrti som mala moznost vidiet tvar Satan human bud miluje alebo nenavidi, v tomto...
dnes, 06:52,  planeta Zem je superinteligetna bytost a human je primitivny premnozeny parazit nevaziaci si...
dnes, 00:46,  Ukrajinskí okupanti okupovali Krym,? :)
dnes, 00:37,  No jasne že obyvatelia veď to su výlučne ruskí okupanti kedže tatarov Stalin vyvyiezol ako...
dnes, 00:35,  Na dva roky má kto nárok???
dnes, 00:34,  Samozrejme, že prídem na skútriku aj s manželkou + ďalšia motorka. Nejaký nocľah v...
dnes, 00:31,  Na Krym majú narok-obyvatelia Krymu :)
dnes, 00:29,  Teraz je to v poriadku. Nejako sa neviem rozlúčiť s tým starým snow...teda...
dnes, 00:29,  ja nemam, žiadne bek ani ine stejdže ja mam len VIP
dnes, 00:28,  pre dve baby určite a vezmi aj cerušku
dnes, 00:27,  Pokus č. 2 https://www.youtube.com/watch?v=G3wTRH0Fnh0
dnes, 00:26,  Letel som ako anjel....... Edo. Na Open pre 2 baby do bejkstejdžu dva lístky máš pre mňa???...
dnes, 00:26,  že ti blbne ctrl + c ?
dnes, 00:24,  Taliani maju jednoznačný nárok na Krym a cele Mongolsko nie len Krym
dnes, 00:23,  Konkurz bol lahký
dnes, 00:23,  Ked izraelcania maju právo na územie starovekého izraela potom taliani majú právo na územie...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Nehovor hop, ani keď preskočíš. Najprv sa pozri, do čoho si skočil.
Prevádzkuje df.sk | TOPlist
(68 930 bytes in 0,528 seconds)