Bai tap
Exercise
Nguyen Quang Hung
Tỷ lệ thị phần và chuyến hủy, trễ
Interested party can find BIDV’s retail products and services here.
BIDV Logo can be download here. Tools for extracting colour codes are here or here.
library(dplyr)
library(ggplot2)
#----------
# Cau 1
read.csv("C:\\Users\\quang\\OneDrive\\Documents\\Dao_tao_R\\section1\\flights.csv",stringsAsFactors = FALSE) -> df_flight
df_flight %>% group_by(carrier) %>% count() %>% ungroup() -> df_flight_1
df_flight_1 %>% arrange(-n) %>%
mutate(carrier = factor(carrier, levels = carrier)) -> df_flight_2
df_flight_2 %>% ggplot(aes(carrier, n)) +
geom_col(fill = "red") +
labs(title = "Figure 1: Number of flight") +
geom_text(aes(label = n))
df_flight_2$n %>% sum(na.rm = FALSE) -> tong
df_flight_2 %>% mutate(thi_phan = n/tong *100 ) -> df_flight_3
df_flight_3 %>% ggplot(aes(carrier, thi_phan)) +
geom_col(fill = "green") +
geom_text(label = sprintf("%0.2f", round(df_flight_3$thi_phan, digits = 2))) +
labs(title = "Figure 2: Market share") +
coord_flip()
#-----------
# Cau 2
df_flight %>% filter(dep_delay < 0) %>% group_by(carrier) %>%
count() %>% ungroup() -> df_fli_delay
df_fli_delay %>% mutate(ty_le_delay = df_fli_delay$n/df_flight_1$n *100) %>%
arrange(ty_le_delay) %>% mutate(carrier = factor(carrier, levels = carrier))->
df_fli_delay_2
df_fli_delay_2 %>% ggplot(aes(carrier, ty_le_delay)) +
geom_bar(stat = "identity", fill = "#0EBD5F") +
geom_text(label = sprintf("%0.2f", round(df_fli_delay_2$ty_le_delay, digits = 2))) +
labs(title = "Figure 3: Ratio of delay/cancel") +
coord_flip()
Hết bài
LS0tDQp0aXRsZTogIkJhaSB0YXAiDQphdXRob3I6ICJOZ3V5ZW4gUXVhbmcgSHVuZyINCnN1YnRpdGxlOiBFeGVyY2lzZQ0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIGNvZGVfZm9sZGluZzogaGlkZQ0KICAgIGhpZ2hsaWdodDogemVuYnVybg0KICAgIHRoZW1lOiBmbGF0bHkNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KICB3b3JkX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQotLS0NCg0KYGBge3Igc2V0dXAsaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0UsIGZpZy5yZXRpbmE9MikNCmBgYA0KDQojIFThu7cgbOG7hyB0aOG7iyBwaOG6p24gdsOgIGNodXnhur9uIGjhu6d5LCB0cuG7hQ0KDQpJbnRlcmVzdGVkIHBhcnR5IGNhbiBmaW5kIEJJRFYncyByZXRhaWwgcHJvZHVjdHMgYW5kIHNlcnZpY2VzIFtoZXJlXShodHRwczovL3d3dy5iaWR2LmNvbS52bi92bi9jYS1uaGFuKS4gDQoNCkJJRFYgTG9nbyBjYW4gYmUgZG93bmxvYWQgW2hlcmVdKGh0dHBzOi8vZHJpdmUuZ29vZ2xlLmNvbS9maWxlL2QvMVFUZDFHcThyd1paZnBEQzBPdjZuWjBpVUtkWmpxWkVJL3ZpZXcpLiBUb29scyBmb3IgZXh0cmFjdGluZyBjb2xvdXIgY29kZXMgYXJlIFtoZXJlXShodHRwczovL2ltYWdlY29sb3JwaWNrZXIuY29tLykgb3IgW2hlcmVdKGh0dHBzOi8vaHRtbC1jb2xvci1jb2Rlcy5pbmZvL2NvbG9ycy1mcm9tLWltYWdlLyMpLiANCg0KUmVmZXJlbmNlcyBhcmUgW2hlcmVdKGh0dHBzOi8vbXljb2xvci5zcGFjZS8/aGV4PSUyMzg0NUVDMiZzdWI9MSkgb3IgW2hlcmVdKGh0dHA6Ly9jb2xvcm1pbmQuaW8vKS4gDQoNCg0KDQpgYGB7cn0NCg0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkoZ2dwbG90MikNCg0KIy0tLS0tLS0tLS0NCiMgQ2F1IDENCnJlYWQuY3N2KCJDOlxcVXNlcnNcXHF1YW5nXFxPbmVEcml2ZVxcRG9jdW1lbnRzXFxEYW9fdGFvX1JcXHNlY3Rpb24xXFxmbGlnaHRzLmNzdiIsc3RyaW5nc0FzRmFjdG9ycyA9IEZBTFNFKSAtPiBkZl9mbGlnaHQNCmRmX2ZsaWdodCAgJT4lIGdyb3VwX2J5KGNhcnJpZXIpICAlPiUgY291bnQoKSAgJT4lIHVuZ3JvdXAoKSAtPiBkZl9mbGlnaHRfMQ0KZGZfZmxpZ2h0XzEgICU+JSBhcnJhbmdlKC1uKSAgJT4lIA0KICBtdXRhdGUoY2FycmllciA9IGZhY3RvcihjYXJyaWVyLCBsZXZlbHMgPSBjYXJyaWVyKSkgLT4gZGZfZmxpZ2h0XzINCmRmX2ZsaWdodF8yICAlPiUgZ2dwbG90KGFlcyhjYXJyaWVyLCBuKSkgKw0KICBnZW9tX2NvbChmaWxsID0gInJlZCIpICsNCiAgbGFicyh0aXRsZSA9ICJGaWd1cmUgMTogTnVtYmVyIG9mIGZsaWdodCIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pKQ0KZGZfZmxpZ2h0XzIkbiAgJT4lIHN1bShuYS5ybSA9IEZBTFNFKSAtPiB0b25nDQpkZl9mbGlnaHRfMiAgJT4lIG11dGF0ZSh0aGlfcGhhbiA9IG4vdG9uZyAqMTAwICkgLT4gZGZfZmxpZ2h0XzMNCmRmX2ZsaWdodF8zICAlPiUgZ2dwbG90KGFlcyhjYXJyaWVyLCB0aGlfcGhhbikpICsNCiAgZ2VvbV9jb2woZmlsbCA9ICJncmVlbiIpICsNCiAgZ2VvbV90ZXh0KGxhYmVsID0gc3ByaW50ZigiJTAuMmYiLCByb3VuZChkZl9mbGlnaHRfMyR0aGlfcGhhbiwgZGlnaXRzID0gMikpKSArDQogIGxhYnModGl0bGUgPSAiRmlndXJlIDI6IE1hcmtldCBzaGFyZSIpICsNCiAgY29vcmRfZmxpcCgpDQoNCiMtLS0tLS0tLS0tLQ0KIyBDYXUgMg0KDQpkZl9mbGlnaHQgICU+JSBmaWx0ZXIoZGVwX2RlbGF5IDwgMCkgICU+JSBncm91cF9ieShjYXJyaWVyKSAlPiUNCiAgY291bnQoKSAgJT4lIHVuZ3JvdXAoKSAtPiBkZl9mbGlfZGVsYXkNCmRmX2ZsaV9kZWxheSAlPiUgbXV0YXRlKHR5X2xlX2RlbGF5ID0gZGZfZmxpX2RlbGF5JG4vZGZfZmxpZ2h0XzEkbiAqMTAwKSAgJT4lIA0KICBhcnJhbmdlKHR5X2xlX2RlbGF5KSAgJT4lIG11dGF0ZShjYXJyaWVyID0gZmFjdG9yKGNhcnJpZXIsIGxldmVscyA9IGNhcnJpZXIpKS0+DQogIGRmX2ZsaV9kZWxheV8yDQpkZl9mbGlfZGVsYXlfMiAgJT4lIGdncGxvdChhZXMoY2FycmllciwgdHlfbGVfZGVsYXkpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiMwRUJENUYiKSArDQogIGdlb21fdGV4dChsYWJlbCA9IHNwcmludGYoIiUwLjJmIiwgcm91bmQoZGZfZmxpX2RlbGF5XzIkdHlfbGVfZGVsYXksIGRpZ2l0cyA9IDIpKSkgKw0KICBsYWJzKHRpdGxlID0gIkZpZ3VyZSAzOiBSYXRpbyBvZiBkZWxheS9jYW5jZWwiKSArDQogIGNvb3JkX2ZsaXAoKQ0KDQpgYGANCg0KIyBI4bq/dCBiw6BpDQoNCg==