Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

2 vprašanji #3

Open
mperbil opened this issue Feb 21, 2020 · 7 comments
Open

2 vprašanji #3

mperbil opened this issue Feb 21, 2020 · 7 comments

Comments

@mperbil
Copy link
Owner

mperbil commented Feb 21, 2020

Pozdravljeni,
zanimata me dve stvari in sicer:

  1. zanima me kako bi v tabeli pomnožil le eno vrstico z nekim številom. In sicer bi recimo v tabeli t9 (vizualizacija_moja.r) pomnožil vrstico s prvim stolpcem Germany z 380/340, da bi tako podatke prilagodil drugim ligam, kjer je bilo odigranih 380 tekem.
  2. shiny sem naredil tako, da kaže graf, glede na vnešeni x in y, zanima me kako bi se graf prilagodil še glede na državo (da bi jo uporabnik vnesel tako kot x in y) in sicer tako da bi bili na grafu le vratarji ene države.
    Hvala in lep pozdrav
@timotejvesel
Copy link

  1. Ena možnost je na primer
t9[,2] <- ifelse(t9$drzava == 'Germany', t9[,2] * (380/340), t9[,2])
t9[,3] <- ifelse(t9$drzava == 'Germany', t9[,3] * (380/340), t9[,3])
  1. Če misliva na isto stvar, potem bi lahko naredil sledeče:
server <- function(input, output) {
  
  output$outplot <- renderPlot({
    t2 %>%
    filter(drzava == input$z) %>%
    ggplot(aes_string(x=input$x, y=input$y)) + geom_point() + geom_text(aes(label=igralec),hjust=0, vjust=0, size=3)
  })
}
ui <- fluidPage(
  inputPanel(
    selectInput('x', 'X', choices = c("penaltyFaced", "savedShotsFromOutsideTheBox", "savedShotsFromInsideTheBox"),
                selected = "savedShotsFromInsideTheBox"),
    selectInput('y', 'Y', choices = c("penaltySave", "goalsConcededOutsideTheBox", "goalsConcededInsideTheBox"), 
                selected = "goalsConcededInsideTheBox"),
    selectInput('z', 'drzava', choices = unique(t2$drzava), selected = "Spain")
  ), 
  mainPanel(plotOutput("outplot")) 
)


Poleg tega predlagam še, da v poročilu tudi pri izrisu zemljevidov dodaš message = FALSE, da se izogneš nepotrebnemu izpisu sporočil.

@mperbil
Copy link
Owner Author

mperbil commented Feb 23, 2020

Hvala za pomoč, sem popravil vse. Mi pa še vedno ko poženem poročilo izpiše sporočilo:

Warning: package 'sf' was built under R version 3.6.2

@timotejvesel
Copy link

Prosim, če naložiš te spremembe na git. Pri trenutni verziji (pred popravki) tega sporočila ne izpiše.

@mperbil
Copy link
Owner Author

mperbil commented Feb 23, 2020

Sedaj sem naložil spremembe. Sem pa sedaj opazil še eno napako in sicer imam v poročilu pod naslovom Napredna analiza podatkov tri vrstice pred katerimi je znak #, ko pa ta znak odstranim, da je tako kot pri drugih fazah, mi poročila sploh ne more pognati.

@timotejvesel
Copy link

Ko poženem poročilo v binderju, sporočila Warning: package 'sf' was built under R version 3.6.2 ne izpiše, zato predvidevam, da to ne bo problem.

Kot je poročilo napisano sedaj, teh treh vrstic ne potrebuješ, zato jih lahko zakodiraš oziroma kar izbrišeš.

@mperbil
Copy link
Owner Author

mperbil commented Feb 23, 2020

Vredu. Hvala

@jaanos
Copy link

jaanos commented Feb 24, 2020

Opozorilo se nanaša na lokalno instalacijo knjižnice sf, tako da se drugod morda ne bo pojavilo. Parameter message=FALSE lahko dodaš še pri ostalih blokih kode, da se taka opozorila ne bodo pojavljala v poročilu.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

3 participants