我想將 "stop_out "變數的值設定在y軸的負邊，并將 "stop_in "的值保持在正邊。我怎樣才能糾正我的代碼呢，請問？
library(tidyr)
library(dplyr)
library(ggplot2)
tramway_df <- data.frame()
stop_order = c（1。 2, 3。 4, 5。 6, 7, 8。 9, 10, 11。 12, 13。 14, 15。 16, 17）,
stop_id = c(9943。 5041, 5361, 2902。 2903, 5872, 5802。 5803, 5804。 5805, 5805,
5710, 5711。 5712, 1643。 5714, 521。 529）,
stop_name = c("DA VINCI"/span>。 "DA VINCI"。 "BORDET STATION", "VAN CUTSEM"。 "FONSON", "PAIX","TILLEUL", "HELMET", "FOYER SCHAERBEEK. ", "WAELHEM"。 "VERBOEKHOVEN", "PAVILLON","RUBENS", "LIEDTS", "THOMAS"。 "GARE DU NORD", "ROGIER"）,
stop_in = c(27。 102， 153。 141, 190。 317, 379, 438。 328, 214。 278, 298, 154, 144,/span> 162, 185, 0),
stop_out = c(0。 7, 3。 10, 22, 37。 81, 122。 143,/span> 168。 291, 230, 149。 301,/span> 412。 707, 821）,
stop_charge = c(27。 121， 271。 402, 571, 851。 1149, 1465。 1650, 1696。 1682, 1745, 1750。 1592, 1342。 821, 0）
)
tramway_df%>%
gather(movement, value, stop_in: stop_out） %>%
mutate(stop_id = factor(stop_id, 水平= unique(stop_id））） %> %
ggplot(aes(x=stop_id)）
geom_col(aes(y=value。 填充=運動）。 位置= "dodge"。 寬度 = 1）
geom_line(aes(y=stop_charge。 group=1))
scale_x_discrete(breaks = tramway_df$stop_id，
標簽 = tramway_df$stop_name）
uj5u.com熱心網友回復：
這就是你所想的嗎？
這就是你所想的嗎？
library(tidyr)
library(dplyr)
library(ggplot2)
tramway_df%>%
gather(movement, value, stop_in: stop_out） %>%
mutate(stop_id = factor(stop_id, 水平=唯一(stop_id)),>
值 = ifelse(movement == "stop_out"。 -value, value））%> %
ggplot(aes(x%) operator">=stop_id)）
geom_col(aes(y=value。 填充=運動）,寬度= 0。 9）
geom_line(aes(y=stop_charge。 group=1))
scale_x_discrete(breaks = tramway_df$stop_id，
標簽= tramway_df$stop_name）
主題(axis.text. x = element_text(angle = 90。 hjust = 1,/span> vjust = 0. 5））
創建于2021-09-12，由reprex包（v2.0.0）
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/318933.html
標籤：