ggplot with text (covid mortality)

library(ggplot2); library(readxl); library(ggrepel); library(ggthemes) 

## Warning: package 'ggplot2' was built under R version 4.0.2

df = read_excel("~/Dropbox/Bao chi/Khoa hoc & Y te/Mortality analysis VN/Covid data 28-8-2021.xlsx")
df$cfr = df$Deaths/df$Cases*100

# Only in selected Asian countries 
df1 = subset(df, Select==1)

Data visualization

# For the world 
ggplot(data=df, aes(x=log10(Cases), y=log10(Deaths), col=Country)) +  geom_point() + geom_text(aes(label=Country)) + labs(x="Log10(số ca nhiễm)", y="Log10(số ca tử vong")  + theme_economist()+  theme(legend.position="none")

# For Asian countries 
ggplot(data=df1, aes(x=log10(Cases), y=cfr, col=Country)) +  geom_point() + geom_label_repel(aes(label = Country)) + labs(x="Log10(số ca)", y="Tỉ lệ (%) tử vong")  + theme_economist()+  theme(legend.position="none")