Mức độ cạnh tranh của thị trường

0. Kết nối dữ liệu

library(readxl)
setwd("c:/Users/Admin/Desktop/DuAnR/HHI")
dulieu <-read_excel("dataHHI.xlsx")
dulieu <-data.frame(dulieu)
dulieu

##   STT                                    CTY     MA DSO   TP    TP2 TIME
## 1   1                      TIKI CORPORATION.   TIKI 220 0.09 0.0081 2000
## 2   2                        SHOPEE VIETNAM. SHOPEE 130 0.06 0.0036 2001
## 3   3 Th<U+1EBF> gi<U+1EDB>i di d<U+1ED9>ng.   TGDD 450 0.19 0.0361 2002
## 4   4                              FPT Shop.    FPT 110 0.05 0.0025 2003
## 5   5                  Ði<U+1EC7>n máy xanh.    ÐMX 760 0.32 0.1024 2004
## 6   6                             VNP Group.    VNP  95 0.04 0.0016 2005
## 7   7                        LAZADA Vietnam. LAZADA 379 0.16 0.0256 2006
## 8   8                                 Sendo.  SENDO 200 0.09 0.0081 2007

sum(dulieu$TP)

## [1] 1

sum(dulieu$TP2)

## [1] 0.188

1. Tính HHI bằng gói hhi

library(hhi)

## Warning: package 'hhi' was built under R version 4.0.5

# hhi < 0.01 thị trường cạnh tranh hoàn hoản
# hii < 0.1 thị trường có mức độ canh tranh cao
# hhi < 0.18 thị trường cạnh tranh trung bình
# hhi >0.18 thị trường tập trung cao và có xu hướng độc quyền
hhi(dulieu,"TP")

## Warning in hhi(dulieu, "TP"): shares, "s", do not sum to 100

## [1] 0.188

2. Cách tính phương sai

# HH < 1500 cạnh tranh hoàn hoàn
# HH < 2500 Cạnh tranh cao
# HH > 2500 Cạnh tranh tập trung cao và có xu hướng độc quyền

sum((dulieu$TP*100)^2)

## [1] 1880

3. Vẽ đồ thị

plot_hhi(dulieu,"MA","TP")

## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?

plot_hhi(dulieu,"TIME","TP")