R Markdown

library(MASS)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following object is masked from 'package:MASS':
## 
##     select
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
painters=painters

#1. Elabora una gráfica de barras que refleje el número de pintores por escuela

Num_Pintores_Escuela = painters %>%
  group_by(School) %>%
  summarize(Numero_de_pintores = n())
Num_Pintores_Escuela
## # A tibble: 8 × 2
##   School Numero_de_pintores
##   <fct>               <int>
## 1 A                      10
## 2 B                       6
## 3 C                       6
## 4 D                      10
## 5 E                       7
## 6 F                       4
## 7 G                       7
## 8 H                       4
ggplot2::ggplot(data = Num_Pintores_Escuela, mapping = aes(x= School,y = Numero_de_pintores))+
geom_col(color ="white", fill ="steelblue")

#Grafico 1 Distribución de la escuelas según la habilidad de dibujo

ggplot2::ggplot(data = painters, mapping = aes(y =Drawing , x=School))+
geom_boxplot(fill="yellow4")+labs(title ="Distribución de la escuelas según la habilidad de dibujo")

#Grafico 2

ggplot(data = painters,mapping =aes(y = Expression))+
geom_histogram(binwidth = 5, fill = "springgreen", color="black") +
facet_wrap(~ School)+  labs(title = "Numero de dibujantes según su expresión, divididos por su escuela")

#Grafico 3 ggplot(data = painters, mapping = aes(x = time_hour, y = temp)) + geom_point()

promP = painters %>% group_by(School)  %>% summarize(promedio_total= (Composition+Drawing+Colour+Expression)/4)
## Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in
## dplyr 1.1.0.
## ℹ Please use `reframe()` instead.
## ℹ When switching from `summarise()` to `reframe()`, remember that `reframe()`
##   always returns an ungrouped data frame and adjust accordingly.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
## `summarise()` has grouped output by 'School'. You can override using the
## `.groups` argument.
promP
## # A tibble: 54 × 2
## # Groups:   School [8]
##    School promedio_total
##    <fct>           <dbl>
##  1 A                9.25
##  2 A               12.2 
##  3 A               11   
##  4 A               11.2 
##  5 A                5.75
##  6 A               12.2 
##  7 A                9.25
##  8 A               11   
##  9 A                7.5 
## 10 A               16.2 
## # ℹ 44 more rows

ggplot(data = promP, mapping = aes(x = School, y = promedio_total)) + geom_line()

promedio_por_artista= painters %>%
  group_by(School) %>%
  summarize(Promedio = (Composition + Drawing + Colour + Expression)/4)
## Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in
## dplyr 1.1.0.
## ℹ Please use `reframe()` instead.
## ℹ When switching from `summarise()` to `reframe()`, remember that `reframe()`
##   always returns an ungrouped data frame and adjust accordingly.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
## `summarise()` has grouped output by 'School'. You can override using the
## `.groups` argument.
promedio_por_escuela = promedio_por_artista %>%
  group_by(School) %>%
  summarize(Promedio_escuela = mean(Promedio))

ggplot(promedio_por_escuela, aes(x = School, y = Promedio_escuela, group = 1)) +
  geom_line(color = "snow4")+
  geom_point(color = "magenta3")+
  labs(title = "Promedio de Calificación por Escuela a lo largo del tiempo",
       x = "Escuela", y = "Promedio de Calificación") +
  theme_minimal()