Bài tập ngày 2

R Markdown

Tập vẽ đồ thị:

rm(list = ls())
library(rvest)
library(dplyr)
library(ggplot2)
# install.packages("readxl")
library(readxl)
databar <-  read_excel("D:\\One Drive\\OneDrive\\Box Sync Expired Account\\UMKC 2018\\SEM and HDI VN\\Comprehensive R\\Chi Dung\\2303 R training course\\data_anh_TheAnh.xlsx")


databar %>% 
  arrange(-theo_ti_giaHH) %>% 
  mutate(nganh_factor = factor(nganh, levels = nganh)) -> databar # level trong factor chính là trật tự xuất hiện
# str(databar)

# xoay dữ liệu để vẽ đồ thị
library(reshape2)
databar  %>% 
  select(-nganh) -> databar
databar_long <- melt(databar, id.vars = "nganh_factor")
ten_bien <- c("Theo giá cố định", "Theo giá hiện hành")

databar_long %>% 
  ggplot(aes(y = nganh_factor, x = value, fill = variable)) + 
  geom_col(position = "dodge") +   
  labs(title = "Mức tăng trưởng của một số ngành",
       caption = "Data source: pham.theanh@neu.edu.vn",
       y = "", 
       x = "") +
  # geom_text(aes(label = variable), hjust = 1.2, color = "white", size = 4) + # hjust để điều chỉnh vị trí chữ
  # geom_text(data = df_mint, aes(label = soluong_int), hjust = 1.2, color = "blue", size = 4) +
  theme(axis.ticks.y = element_blank()) +
  theme(axis.line.x = element_blank()) 

library(ggplot2)

# Create sample data
category <- c("Category 1", "Category 2", "Category 3", "Category 4", "Category 5")
series1 <- c(10, 15, 20, 25, 30)
series2 <- c(5, 10, 15, 20, 25)

# Combine the data into a data frame
df <- data.frame(category, series1, series2)

# Melt the data into long format
# install.packages("reshape2")
library(reshape2)
df_long <- melt(df, id.vars = "category")

# Create the bar plot using geom_col()
ggplot(df_long, aes(x = category, y = value, fill = variable)) + 
  geom_col(position = "dodge") +
  labs(title = "Bar Graph for Two Data Series",
       x = "Categories",
       y = "Values",
       fill = "") +
  theme_bw()