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í
558
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, 05:42,  Teoma uz si sa dal pokrstit?
dnes, 05:42,  ...ktorým Satan zastiera realitu posmrtného súdu a odsúdenia.
dnes, 05:34,  Si maozaj jeden z mala tu na df, Ktory presiel podobnou cestou ako ja, Len si prosim uz...
dnes, 05:32,  Vies teoma bolo by super poprosit Stvorirela aby ta naucil pocuvat Jeho Hlas Pocuvat
dnes, 05:27,  Biblia nieje zla na citanie Ale viera nieje citanie, biblie Aj ked citanie bible nieje na skodu,
dnes, 05:16,  Vies o tom teoma ze Stvoritel nieje pismo? Aj ked sa v biblii o Nom pise? Ti co pisali dobre...
dnes, 05:13,  Myslis si ze citanim sa upevnuje viera? To co ma clovek,, teda v """" clovek...
dnes, 04:23,  Existuje v okamziku spojenia s duchom svatym vasa karma skoncila
dnes, 02:06,  Musíš sa narodiť ako princ bajaja....
dnes, 00:05,  Filozofia nemusí byť satanská oi je filozofia implementovanie skutočností - názorov,čiže...
dnes, 00:00,  Aj by chvalil len nie je co holym faktom je ze USA su kvalitou zivota za ceskom jejich dny ked...
včera, 23:39,  (4! 0svietený, nechce sa mi ani veriť, že by až toľkí Haluzičania mali až tak deravé...
včera, 23:29,  Prezidentka, médiá a nezávislosť súdnictva Branislav Fábry 19. septembra 2019...
včera, 23:27,  Voltaireov nadčasový výrok Francois-Marie Arouet, pozoruhodný muž, ktorý s nazval...
včera, 23:26,  Potom povazujes Shri Mataji Nirmala Devi za hlupaka
včera, 23:24,  Čudo zabáva :) Je tam len spomenutý prieskum :) Táto hlupučká rusofobka má vo svojej...
včera, 22:27,  193. lebo je to sexy :)
včera, 22:26,  http://diskusie.slovakforum.net/viewtopic?t=169&topic_name#1073 waúúw zeby bol mainstrem...
včera, 22:24,  A preco ano?*21
včera, 22:20,  (35) Era, skús si trošku viac ponamáhať svoju dedukčnú schopnosť a možno sa Ti hneď...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Ak v živote nájdeš cestu bez prekážok, tak pravdepodobne nevedie nikam.
Prevádzkuje df.sk | TOPlist
(71 764 bytes in 0,467 seconds)