Import data

# csv file
data <- read_csv("../00_data/myData.csv")
data
## # A tibble: 796 × 4
##    language   family      native_speakers country    
##    <chr>      <chr>                 <dbl> <chr>      
##  1 ǂKxʼaoǁʼae Kxʼa                   5000 Namibia    
##  2 ǂKxʼaoǁʼae Kxʼa                   5000 Botswana   
##  3 Abon       Niger–Congo             800 Cameroon   
##  4 Abron      Niger–Congo         1393000 Ghana      
##  5 Abron      Niger–Congo         1393000 Ivory Coast
##  6 Acheron    Niger–Congo           20000 Sudan      
##  7 Adara      Niger–Congo          300000 Nigeria    
##  8 Afar       Afroasiatic         2500000 Ethiopia   
##  9 Afar       Afroasiatic         2500000 Djibouti   
## 10 Afar       Afroasiatic         2500000 Eritrea    
## # ℹ 786 more rows

State one question

What language has the most native speakers in Africa?

Plot data

ggplot(data=data, mapping=aes(x=language, fill=native_speakers)) +
    geom_bar(position="identity")

ggplot(data = data, aes(x = language, y = native_speakers)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  theme_minimal()

Interpret

My data is so hard to read so I am unable to interpret my data and answer my question.