u

pjournal · Nov 25, 2023 · bab81db · bab81db
1 parent 2010a76
commit bab81db
Show file tree

Hide file tree

Showing 5 changed files with 131 additions and 191 deletions.
diff --git a/Shiny/app.R b/Shiny/app.R
@@ -1,51 +1,59 @@
-#
-# This is a Shiny web application. You can run the application by clicking
-# the 'Run App' button above.
-#
-# Find out more about building applications with Shiny here:
-#
-#    http://shiny.rstudio.com/
-#
+# Bu kodu bir app.R dosyasına yapıştırın ve R Studio'da çalıştırın.
 
 library(shiny)
+library(tidyverse)
 
-# Define UI for application that draws a histogram
-ui <- fluidPage(
-
-    # Application title
-    titlePanel("Old Faithful Geyser Data"),
+#setwd("/Users/gozde.ugur/Documents/GitHub/mef07-GozdeUgurK/Shiny")
+MovieData = read.csv("movies.csv") 
 
-    # Sidebar with a slider input for number of bins 
-    sidebarLayout(
-        sidebarPanel(
-            sliderInput("bins",
-                        "Number of bins:",
-                        min = 1,
-                        max = 50,
-                        value = 30)
-        ),
+# Prepare data
+film_verisi <- 
+  MovieData %>% 
+  filter(Year >= 2000) %>%
+  select(Genre, Year, `Audience.score..`) 
 
-        # Show a plot of the generated distribution
-        mainPanel(
-           plotOutput("distPlot")
-        )
+# Shiny uygulaması
+ui <- fluidPage(
+  titlePanel("Movie Analysis"),
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("Genre", "Tür Seç:",
+                  choices = unique(film_verisi$Genre),
+                  multiple = TRUE),
+      br(),
+      sliderInput("year_range", "Yıl Aralığı Seç:",
+                  min = min(film_verisi$Year), max = max(film_verisi$Year), 
+                  value = c(min(film_verisi$Year), max(film_verisi$Year))),
+      br(),
+      sliderInput("score_range", "Puan Aralığı Seç:",
+                  min = 0, max = 100, value = c(0, 100))
+    ),
+    mainPanel(
+      plotOutput("genre_plot")
     )
+  )
 )
 
-# Define server logic required to draw a histogram
 server <- function(input, output) {
-
-    output$distPlot <- renderPlot({
-        # generate bins based on input$bins from ui.R
-        x    <- faithful[, 2]
-        bins <- seq(min(x), max(x), length.out = input$bins + 1)
-
-        # draw the histogram with the specified number of bins
-        hist(x, breaks = bins, col = 'darkgray', border = 'white',
-             xlab = 'Waiting time to next eruption (in mins)',
-             main = 'Histogram of waiting times')
-    })
+
+  # Filmleri filtrele
+  filtered_films <- reactive({
+    filter(film_verisi, 
+           Genre %in% input$Genre & 
+             `Audience.score..` >= input$score_range[1] & 
+             `Audience.score..` <= input$score_range[2])
+  })
+
+  # ggplot ile çubuk grafik çizimi
+  output$genre_plot <- renderPlot({
+    ggplot(filtered_films(), aes(x = Year, fill = Genre)) +
+      geom_bar(position = "dodge") +
+      labs(title = "Film Türüne Göre Yıl Bazında Dağılım",
+           x = "Yıl",
+           y = "Film Sayısı",
+           fill = "Tür") +
+      theme_minimal()
+  })
 }
 
-# Run the application 
-shinyApp(ui = ui, server = server)
+shinyApp(ui, server)
diff --git a/...ct/shinyapps.io/gozdeugurkayar/Movies.dcf → ...ect/shinyapps.io/gozdeugurkayar/Shiny.dcf b/...ct/shinyapps.io/gozdeugurkayar/Movies.dcf → ...ect/shinyapps.io/gozdeugurkayar/Shiny.dcf
@@ -1,12 +1,12 @@
-name: Movies
-title: Movies
+name: Shiny
+title: Shiny
 username: gozdeugurkayar
 account: gozdeugurkayar
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
-appId: 10623737
-bundleId: 7967720
-url: https://gozdeugurkayar.shinyapps.io/Movies/
+appId: 10623925
+bundleId: 7967781
+url: https://gozdeugurkayar.shinyapps.io/Shiny/
 version: 1
 asMultiple: FALSE
 asStatic: FALSE
diff --git a/deleteme/app.R b/deleteme/app.R
diff --git a/deleteme/deneme/app.R b/deleteme/deneme/app.R
diff --git a/movies.csv b/movies.csv
@@ -0,0 +1,78 @@
+Film,Genre,Lead Studio,Audience score %,Profitability,Rotten Tomatoes %,Worldwide Gross,Year
+Zack and Miri Make a Porno,Romance,The Weinstein Company,70,1.747541667,64,$41.94 ,2008
+Youth in Revolt,Comedy,The Weinstein Company,52,1.09,68,$19.62 ,2010
+You Will Meet a Tall Dark Stranger,Comedy,Independent,35,1.211818182,43,$26.66 ,2010
+When in Rome,Comedy,Disney,44,0,15,$43.04 ,2010
+What Happens in Vegas,Comedy,Fox,72,6.267647029,28,$219.37 ,2008
+Water For Elephants,Drama,20th Century Fox,72,3.081421053,60,$117.09 ,2011
+WALL-E,Animation,Disney,89,2.896019067,96,$521.28 ,2008
+Waitress,Romance,Independent,67,11.0897415,89,$22.18 ,2007
+Waiting For Forever,Romance,Independent,53,0.005,6,$0.03 ,2011
+Valentine's Day,Comedy,Warner Bros.,54,4.184038462,17,$217.57 ,2010
+Tyler Perry's Why Did I get Married,Romance,Independent,47,3.7241924,46,$55.86 ,2007
+Twilight: Breaking Dawn,Romance,Independent,68,6.383363636,26,$702.17 ,2011
+Twilight,Romance,Summit,82,10.18002703,49,$376.66 ,2008
+The Ugly Truth,Comedy,Independent,68,5.402631579,14,$205.30 ,2009
+The Twilight Saga: New Moon,Drama,Summit,78,14.1964,27,$709.82 ,2009
+The Time Traveler's Wife,Drama,Paramount,65,2.598205128,38,$101.33 ,2009
+The Proposal,Comedy,Disney,74,7.8675,43,$314.70 ,2009
+The Invention of Lying,Comedy,Warner Bros.,47,1.751351351,56,$32.40 ,2009
+The Heartbreak Kid,Comedy,Paramount,41,2.129444167,30,$127.77 ,2007
+The Duchess,Drama,Paramount,68,3.207850222,60,$43.31 ,2008
+The Curious Case of Benjamin Button,Fantasy,Warner Bros.,81,1.78394375,73,$285.43 ,2008
+The Back-up Plan,Comedy,CBS,47,2.202571429,20,$77.09 ,2010
+Tangled,Animation,Disney,88,1.365692308,89,$355.01 ,2010
+Something Borrowed,Romance,Independent,48,1.719514286,15,$60.18 ,2011
+She's Out of My League,Comedy,Paramount,60,2.4405,57,$48.81 ,2010
+Sex and the City Two,Comedy,Warner Bros.,49,2.8835,15,$288.35 ,2010
+Sex and the City 2,Comedy,Warner Bros.,49,2.8835,15,$288.35 ,2010
+Sex and the City,Comedy,Warner Bros.,81,7.221795791,49,$415.25 ,2008
+Remember Me,Drama,Summit,70,3.49125,28,$55.86 ,2010
+Rachel Getting Married,Drama,Independent,61,1.384166667,85,$16.61 ,2008
+Penelope,Comedy,Summit,74,1.382799733,52,$20.74 ,2008
+P.S. I Love You,Romance,Independent,82,5.103116833,21,$153.09 ,2007
+Over Her Dead Body,Comedy,New Line,47,2.071,15,$20.71 ,2008
+Our Family Wedding,Comedy,Independent,49,0,14,$21.37 ,2010
+One Day,Romance,Independent,54,3.682733333,37,$55.24 ,2011
+Not Easily Broken,Drama,Independent,66,2.14,34,$10.70 ,2009
+No Reservations,Comedy,Warner Bros.,64,3.307180357,39,$92.60 ,2007
+Nick and Norah's Infinite Playlist,Comedy,Sony,67,3.3527293,73,$33.53 ,2008
+New Year's Eve,Romance,Warner Bros.,48,2.536428571,8,$142.04 ,2011
+My Week with Marilyn,Drama,The Weinstein Company,84,0.8258,83,$8.26 ,2011
+Music and Lyrics,Romance,Warner Bros.,70,3.64741055,63,$145.90 ,2007
+Monte Carlo,Romance,20th Century Fox,50,1.9832,38,$39.66 ,2011
+Miss Pettigrew Lives for a Day,Comedy,Independent,70,0.2528949,78,$15.17 ,2008
+Midnight in Paris,Romence,Sony,84,8.744705882,93,$148.66 ,2011
+Marley and Me,Comedy,Fox,77,3.746781818,63,$206.07 ,2008
+Mamma Mia!,Comedy,Universal,76,9.234453864,53,$609.47 ,2008
+Mamma Mia!,Comedy,Universal,76,9.234453864,53,$609.47 ,2008
+Made of Honor,Comdy,Sony,61,2.64906835,13,$105.96 ,2008
+Love Happens,Drama,Universal,40,2.004444444,18,$36.08 ,2009
+Love & Other Drugs,Comedy,Fox,55,1.817666667,48,$54.53 ,2010
+Life as We Know It,Comedy,Independent,62,2.530526316,28,$96.16 ,2010
+License to Wed,Comedy,Warner Bros.,55,1.9802064,8,$69.31 ,2007
+Letters to Juliet,Comedy,Summit,62,2.639333333,40,$79.18 ,2010
+Leap Year,Comedy,Universal,49,1.715263158,21,$32.59 ,2010
+Knocked Up,Comedy,Universal,83,6.636401848,91,$219 ,2007
+Killers,Action,Lionsgate,45,1.245333333,11,$93.40 ,2010
+Just Wright,Comedy,Fox,58,1.797416667,45,$21.57 ,2010
+Jane Eyre,Romance,Universal,77,0,85,$30.15 ,2011
+It's Complicated,Comedy,Universal,63,2.642352941,56,$224.60 ,2009
+I Love You Phillip Morris,Comedy,Independent,57,1.34,71,$20.10 ,2010
+High School Musical 3: Senior Year,Comedy,Disney,76,22.91313646,65,$252.04 ,2008
+He's Just Not That Into You,Comedy,Warner Bros.,60,7.1536,42,$178.84 ,2009
+Good Luck Chuck,Comedy,Lionsgate,61,2.36768512,3,$59.19 ,2007
+Going the Distance,Comedy,Warner Bros.,56,1.3140625,53,$42.05 ,2010
+Gnomeo and Juliet,Animation,Disney,52,5.387972222,56,$193.97 ,2011
+Gnomeo and Juliet,Animation,Disney,52,5.387972222,56,$193.97 ,2011
+Ghosts of Girlfriends Past,Comedy,Warner Bros.,47,2.0444,27,$102.22 ,2009
+Four Christmases,Comedy,Warner Bros.,52,2.022925,26,$161.83 ,2008
+Fireproof,Drama,Independent,51,66.934,40,$33.47 ,2008
+Enchanted,Comedy,Disney,80,4.005737082,93,$340.49 ,2007
+Dear John,Drama,Sony,66,4.5988,29,$114.97 ,2010
+Beginners,Comedy,Independent,80,4.471875,84,$14.31 ,2011
+Across the Universe,romance,Independent,84,0.652603178,54,$29.37 ,2007
+A Serious Man,Drama,Universal,64,4.382857143,89,$30.68 ,2009
+A Dangerous Method,Drama,Independent,89,0.44864475,79,$8.97 ,2011
+27 Dresses,Comedy,Fox,71,5.3436218,40,$160.31 ,2008
+(500) Days of Summer,comedy,Fox,81,8.096,87,$60.72 ,2009