-
Notifications
You must be signed in to change notification settings - Fork 0
/
app.R
41 lines (33 loc) · 1.17 KB
/
app.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
library(shiny)
library(ggplot2)
library(reshape2)
ui <- fluidPage(
title = "Gün-Tweet Sayısı",
titlePanel("Gün ve Saate Göre Atılan Tweet Sayısı"),
sidebarLayout(
sidebarPanel(
checkboxGroupInput("gun",
h1("Gunu seciniz."),
choices = list("Pazartesi" = "Pzt", "Sali" = "Sal",
"Carsamba" = "Car", "Persembe" = "Per",
"Cuma" = "Cum", "Cumartesi" = "Cmt",
"Pazar" ="Paz", "Ortalama" = "Ort",
"Hafta ici" = "hici", "Hafta sonu" = "hsonu"))
),
mainPanel(
plotOutput("plot"))
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
plot.data <- melt(x, id.vars = 'saat')
plot.data <- plot.data[plot.data$variable %in% input$gun, ]
ggplot(data=plot.data)+
geom_line(mapping = aes(x=saat, y= value, linetype = variable, colour = variable))+
theme_classic()+
scale_x_continuous(breaks = c(0:23))+
ylab("Tweetler")+
xlab("Saat")
})
}
shinyApp(ui = ui, server = server)