Importar

archivo <- read_csv("datos/cuarto_grado.csv")
Error in read_csv("datos/cuarto_grado.csv") : 
  could not find function "read_csv"

Ordenar

  1. Separar el nombre del alumno en dos: ‘primer’ y ‘apellido’
  1. Separar la fecha en tres: ‘dia’, ‘mes’ y ‘año’
  1. Juntar las columnas de ‘matematica’ e ‘ingles’ en una sola llamada ‘materia’
  1. Assigne los cambion a una variable llamada ‘grados’

Entender (Transformar y Visualizar)

¿Cual es el promedio actual por cada clase?

¿Cuales son los promedios de cada estudiante en matematica?

¿Cuales son los promedios de cada estudiante en ingles?

¿Quienes tienen los mejores promedios en ingles?

¿Quienes tienen los mejores tres mejores promedios en matemática?

grados %>% 
  filter(materia == "ingles") %>% 
  ggplot() +
  geom_bar(aes(mes, puntos), stat = "summary", fun.y = "mean")
Ignoring unknown parameters: fun.y

LS0tCnRpdGxlOiAiQW5hbHl6YXIgZ3JhZG9zIGRlIGVzY3VlbGEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyLCBpbmNsdWRlID0gRkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMjIEltcG9ydGFyCgpgYGB7cn0KYXJjaGl2byA8LSByZWFkX2NzdigiZGF0b3MvY3VhcnRvX2dyYWRvLmNzdiIpCmBgYAoKYGBge3J9CmFyY2hpdm8KYGBgCgojIyBPcmRlbmFyCgoxLiBTZXBhcmFyIGVsIG5vbWJyZSBkZWwgYWx1bW5vIGVuIGRvczogJ3ByaW1lcicgeSAnYXBlbGxpZG8nCmBgYHtyfQphcmNoaXZvICU+JQogIHNlcGFyYXRlKG5vbWJyZSwgaW50byA9IGMoImFwZWxsaWRvIiwgInByaW1lciIpKQpgYGAKCjIuIFNlcGFyYXIgbGEgZmVjaGEgZW4gdHJlczogJ2RpYScsICdtZXMnIHkgJ2HDsW8nCmBgYHtyfQphcmNoaXZvICU+JQogIHNlcGFyYXRlKG5vbWJyZSwgaW50byA9IGMoImFwZWxsaWRvIiwgInByaW1lciIpKSAlPiUgCiAgc2VwYXJhdGUoZmVjaGEsIGludG8gPSBjKCJkaWEiLCAibWVzIiwgImHDsW8iKSkgIywgY29udmVydCA9IFRSVUUpCmBgYAoKMy4gSnVudGFyIGxhcyBjb2x1bW5hcyBkZSAnbWF0ZW1hdGljYScgZSAnaW5nbGVzJyAgZW4gdW5hIHNvbGEgbGxhbWFkYSAnbWF0ZXJpYScKYGBge3J9CmFyY2hpdm8gJT4lCiAgc2VwYXJhdGUobm9tYnJlLCBpbnRvID0gYygiYXBlbGxpZG8iLCAicHJpbWVyIikpICU+JSAKICBzZXBhcmF0ZShmZWNoYSwgaW50byA9IGMoImRpYSIsICJtZXMiLCAiYcOxbyIpLCBjb252ZXJ0ID0gVFJVRSkgJT4lIAogIGdhdGhlcihtYXRlcmlhLCBwdW50b3MsIG1hdGVtYXRpY2EsIGluZ2xlcykKYGBgCgo0LiBBc3NpZ25lIGxvcyBjYW1iaW9uIGEgdW5hIHZhcmlhYmxlIGxsYW1hZGEgJ2dyYWRvcycKYGBge3J9CmdyYWRvcyA8LSBhcmNoaXZvICU+JQogIHNlcGFyYXRlKG5vbWJyZSwgaW50byA9IGMoImFwZWxsaWRvIiwgInByaW1lciIpKSAlPiUgCiAgc2VwYXJhdGUoZmVjaGEsIGludG8gPSBjKCJkaWEiLCAibWVzIiwgImHDsW8iKSwgY29udmVydCA9IFRSVUUpICU+JSAKICBnYXRoZXIobWF0ZXJpYSwgcHVudG9zLCBtYXRlbWF0aWNhLCBpbmdsZXMpCgpncmFkb3MKYGBgCgojIyBFbnRlbmRlciAoVHJhbnNmb3JtYXIgeSBWaXN1YWxpemFyKQoKwr9DdWFsIGVzIGVsIHByb21lZGlvIGFjdHVhbCBwb3IgY2FkYSBjbGFzZT8KCmBgYHtyfQpncmFkb3MgJT4lCiAgZ3JvdXBfYnkobWF0ZXJpYSkgJT4lCiAgc3VtbWFyaXNlKHByb21lZGlvID0gbWVhbihwdW50b3MpKQpgYGAKCsK/Q3VhbGVzIHNvbiBsb3MgcHJvbWVkaW9zIGRlIGNhZGEgZXN0dWRpYW50ZSBlbiBtYXRlbWF0aWNhPwoKYGBge3J9CmdyYWRvcyAlPiUKICBmaWx0ZXIobWF0ZXJpYSA9PSAibWF0ZW1hdGljYSIpICU+JQogIGdyb3VwX2J5KG1hdHJpY3VsYSwgcHJpbWVyLCBhcGVsbGlkbykgJT4lCiAgc3VtbWFyaXNlKHByb21lZGlvID0gbWVhbihwdW50b3MpKQpgYGAKCsK/Q3VhbGVzIHNvbiBsb3MgcHJvbWVkaW9zIGRlIGNhZGEgZXN0dWRpYW50ZSBlbiBpbmdsZXM/CgpgYGB7cn0KZ3JhZG9zICU+JQogIGZpbHRlcihtYXRlcmlhID09ICJpbmdsZXMiKSAlPiUKICBncm91cF9ieShtYXRyaWN1bGEsIHByaW1lciwgYXBlbGxpZG8pICU+JQogIHN1bW1hcmlzZShwcm9tZWRpbyA9IG1lYW4ocHVudG9zKSkKYGBgCgrCv1F1aWVuZXMgdGllbmVuIGxvcyBtZWpvcmVzIHByb21lZGlvcyBlbiBpbmdsZXM/CgpgYGB7cn0KZ3JhZG9zICU+JQogIGZpbHRlcihtYXRlcmlhID09ICJpbmdsZXMiKSAlPiUKICBncm91cF9ieShtYXRyaWN1bGEsIHByaW1lciwgYXBlbGxpZG8pICU+JQogIHN1bW1hcmlzZShwcm9tZWRpbyA9IG1lYW4ocHVudG9zKSkgJT4lIAogIGFycmFuZ2UoZGVzYyhwcm9tZWRpbykpICU+JQogIHVuZ3JvdXAoKSAlPiUgCiAgbXV0YXRlKHB1ZXN0byA9IHJvd19udW1iZXIoKSkKYGBgCgrCv1F1aWVuZXMgdGllbmVuIGxvcyBtZWpvcmVzIHRyZXMgbWVqb3JlcyBwcm9tZWRpb3MgZW4gbWF0ZW3DoXRpY2E/CgpgYGB7cn0KZ3JhZG9zICU+JQogIGZpbHRlcihtYXRlcmlhID09ICJtYXRlbWF0aWNhIikgJT4lCiAgZ3JvdXBfYnkobWF0cmljdWxhLCBwcmltZXIsIGFwZWxsaWRvKSAlPiUKICBzdW1tYXJpc2UocHJvbWVkaW8gPSBtZWFuKHB1bnRvcykpICU+JSAKICBhcnJhbmdlKGRlc2MocHJvbWVkaW8pKSAlPiUKICB1bmdyb3VwKCkgJT4lIAogIG11dGF0ZShwdWVzdG8gPSByb3dfbnVtYmVyKCkpCmBgYAoKCmBgYHtyfQpncmFkb3MgJT4lIAogIGZpbHRlcihtYXRlcmlhID09ICJpbmdsZXMiKSAlPiUgCiAgZ2dwbG90KCkgKwogIGdlb21fYmFyKGFlcyhtZXMsIHB1bnRvcyksIHN0YXQgPSAic3VtbWFyeSIsIGZ1bi55ID0gIm1lYW4iKQpgYGAK