diff --git a/intro.Rmd b/intro.Rmd
index 557c698..50803ce 100644
--- a/intro.Rmd
+++ b/intro.Rmd
@@ -1189,6 +1189,16 @@ ggplot(SW, aes(x = mass, y = height, colour = gender, fill = gender, size=birth_
 
 ggplot(BD, aes(x=nombre,y=edad)) + geom_point() + theme(axis.text.x = element_text(angle = 10))
 
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text()
+
+library(ggrepel)
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text_repel()
+
 ```
 
 ### Gráfico de histogramas
diff --git a/intro.r b/intro.r
index 1329d39..0e71340 100644
--- a/intro.r
+++ b/intro.r
@@ -703,6 +703,16 @@ ggplot(SW, aes(x = mass, y = height, colour = gender, fill = gender, size=birth_
 
 ggplot(BD, aes(x=nombre,y=edad)) + geom_point() + theme(axis.text.x = element_text(angle = 10))
 
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text()
+
+library(ggrepel)
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text_repel()
+
 ### Gráfico de histogramas
 
 ggplot(dta_data2, aes(x=Age)) + geom_histogram()
diff --git a/intro_Rmd.Rmd b/intro_Rmd.Rmd
index c28df6b..a65808f 100644
--- a/intro_Rmd.Rmd
+++ b/intro_Rmd.Rmd
@@ -1196,6 +1196,16 @@ ggplot(SW, aes(x = mass, y = height, colour = gender, fill = gender, size=birth_
 
 ggplot(BD, aes(x=nombre,y=edad)) + geom_point() + theme(axis.text.x = element_text(angle = 10))
 
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text()
+
+library(ggrepel)
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text_repel()
+
 ```
 
 ### Gráfico de histogramas
diff --git a/intro_Rmd.html b/intro_Rmd.html
index 3c93bb2..9f5104e 100644
--- a/intro_Rmd.html
+++ b/intro_Rmd.html
@@ -1210,7 +1210,17 @@ <h3>Gráfico de puntos</h3>
 ggplot(SW, aes(x = mass, y = height, colour = gender, fill = gender, size=birth_year, alpha = 0.5)) + 
   geom_point(shape=23)
 
-ggplot(BD, aes(x=nombre,y=edad)) + geom_point() + theme(axis.text.x = element_text(angle = 10))</code></pre>
+ggplot(BD, aes(x=nombre,y=edad)) + geom_point() + theme(axis.text.x = element_text(angle = 10))
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text()
+
+library(ggrepel)
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text_repel()</code></pre>
 </div>
 <div id="gráfico-de-histogramas" class="section level3">
 <h3>Gráfico de histogramas</h3>
diff --git a/intro_Rmdtopdf.Rmd b/intro_Rmdtopdf.Rmd
index 21ac59a..fcff5fd 100644
--- a/intro_Rmdtopdf.Rmd
+++ b/intro_Rmdtopdf.Rmd
@@ -1232,6 +1232,16 @@ ggplot(BD, aes(x=nombre,y=edad)) +
   geom_point() + 
   theme(axis.text.x = element_text(angle = 10))
 
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text()
+
+library(ggrepel)
+
+ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
+  geom_point() +
+  geom_text_repel()
+
 ```
 
 ### Gráfico de histogramas
diff --git a/intro_Rmdtopdf.pdf b/intro_Rmdtopdf.pdf
index 5c6b89e..afd504d 100644
Binary files a/intro_Rmdtopdf.pdf and b/intro_Rmdtopdf.pdf differ