s434742/wizualizacja-danych
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

corrected hour format

Browse Source
This commit is contained in:
patrycjalazna 2021-06-23 16:27:56 +02:00
parent 10a467d608
commit e9dfdbd67b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
proj3/projekt.R
View File

@ -147,7 +147,6 @@ server <- function(input, output, session) {
crashes_per_hours <- airplane_crashes %>% count(Hour) crashes_per_hours <- airplane_crashes %>% count(Hour)
crashes_per_hours <- crashes_per_hours[-c(1,26,27,28), ] crashes_per_hours <- crashes_per_hours[-c(1,26,27,28), ]
#dodanie pozycji labeli #dodanie pozycji labeli
# crashes_per_hours <- crashes_per_hours %>% # crashes_per_hours <- crashes_per_hours %>%
# arrange(Hour) %>% # arrange(Hour) %>%
@ -161,8 +160,12 @@ server <- function(input, output, session) {
# theme(legend.position="none") # theme(legend.position="none")
df <- crashes_per_hours df <- crashes_per_hours
#df <- paste(df$Hour, ":00")
crashes_per_months$Month[crashes_per_months$Month == 1] <- "January"
df <- df %>% arrange(Hour) df <- df %>% arrange(Hour)
df$Hour <- as.character(df$Hour)
df$Hour <- paste(df$Hour, ":00", sep = "")
fig <- df %>% plot_ly(labels = ~Hour, values = ~n, sort=FALSE) fig <- df %>% plot_ly(labels = ~Hour, values = ~n, sort=FALSE)
fig <- fig %>% add_pie(hole = 0.4) fig <- fig %>% add_pie(hole = 0.4)
fig <- fig %>% layout(title = "No. of crashes per hour", xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), fig <- fig %>% layout(title = "No. of crashes per hour", xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),