Caries in OECD countries

Caries en la OECD

datos <- read.csv("cariesoecd.csv", 
                  header = TRUE, sep = ",",
                  dec = ".")

str(datos)

## 'data.frame':    30 obs. of  3 variables:
##  $ Pais                         : Factor w/ 30 levels "Australia","Austria",..: 1 2 3 5 6 7 8 9 10 11 ...
##  $ DMFT..2006.                  : num  1.1 1.4 1.1 2.6 0.8 1.2 1.2 0.7 2.1 3.3 ...
##  $ Dentistas.por.1000.habitantes: num  0.49 0.54 0.83 0.68 0.78 0.79 0.68 0.76 1.27 0.5 ...

Dejo listas las variables

Pais <- datos$Pais
COPD <- datos$DMFT..2006.
Dentistas <- datos$Dentistas.por.1000.habitantes

Primer gráfico

##       Australia         Austria         Belgium  Czech Republic 
##               1               2               3               4 
##         Denmark         Finland          France         Germany 
##               5               6               7               8 
##          Greece         Hungary         Iceland         Ireland 
##               9              10              11              12 
##           Italy           Japan           Korea      Luxembourg 
##              13              14              15              16 
##     Netherlands     New Zealand          Norway            OECD 
##              17              18              19              20 
##          Poland        Portugal Slovak Republic           Spain 
##              21              22              23              24 
##          Sweden     Switzerland          Turkey  United Kingdom 
##              25              26              27              28 
##   United States           CHILE 
##              29              30