Merge pull request #14 from iago-pssjd/b1.5.1

B1.5.1

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

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()

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

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>

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