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.

Sign up for GitHub

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

Bug correction in the Mov-Around app #2

Open
wants to merge 14 commits into
base: main
Choose a base branch
from
Open

Bug correction in the Mov-Around app #2

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
14 commits
Select commit Hold shift + click to select a range
1c1497c
modify creation of data_speed in plot_speed
KevinKen237 Jul 5, 2024
8fd0de1
Change speed to percentage
KevinKen237 Jul 8, 2024
2492f15
change speed in percentage in plot_threshold
KevinKen237 Jul 8, 2024
3e623c5
change simple plot for test
KevinKen237 Jul 8, 2024
06fba68
Revenons à la normal sans modif
KevinKen237 Jul 8, 2024
ab9f9fe
type of column car_speed_hist_0to70plus
KevinKen237 Jul 9, 2024
1cbd564
Nothing
KevinKen237 Jul 9, 2024
18d379f
update plot_speed
KevinKen237 Jul 9, 2024
d676d88
Merge branch 'Kevin' of https://github.com/KevinKen237/telraamStatsAg…
KevinKen237 Jul 9, 2024
8d46e4a
update plot_threshold
KevinKen237 Jul 9, 2024
b6a8dc4
No change
KevinKen237 Jul 9, 2024
8a1255b
Change size to linewidth
KevinKen237 Jul 9, 2024
4592f02
No changes
KevinKen237 Jul 9, 2024
1c5336c
update text of threshold to 50
KevinKen237 Jul 9, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions R/5_plot_speed.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -75,7 +75,7 @@ plot_speed <- function(...){
}

chart <- ggplot(data_plot)+
aes(x=.data$count, y=.data$speed, color = .data$legend, group=.data$legend)+
aes(x=.data$count, y=.data$percentage, color = .data$legend, group=.data$legend)+
geom_line(color="black")+ geom_smooth(method='gam', formula=y ~ s(x, bs = "cs"))+
labs(x="Nombre de vehicules sur une tranche horaire", y = "Pourcentage de vehicule depassant la vitesse donnees")+
ggtitle("Evolution de la vitesse de conduite selon le nombre d'usagers") +
Expand All @@ -84,7 +84,7 @@ plot_speed <- function(...){
theme_bw()+
theme(panel.background = element_rect(fill = "#F5F5F5"), # background color
panel.grid = element_line(color = "#E3E3E3"), # grid color
panel.border = element_rect(color = "#E3E3E3", size = 2)) # border color and size
panel.border = element_rect(color = "#E3E3E3", linewidth = 2)) # border color and size

return(list(chart=chart,
DE_test = DE_test,
Expand Down
2 changes: 1 addition & 1 deletion R/5_plot_threshold.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@ plot_threshold <- function(plot_speed, selected_speed, state_threshold, threshol
}

# to place the threshold text
mean_ord <- (100+min(plot_speed$data_plot$speed))/2
mean_ord <- 50

if (state_threshold == "auto") {
plot_speed$chart + geom_vline(xintercept = mean, color = "red", size = 1.5)+
Expand Down