Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Feedback #1

Open
wants to merge 21 commits into
base: feedback
Choose a base branch
from
Open

Feedback #1

wants to merge 21 commits into from

Conversation

github-classroom[bot]
Copy link
Contributor

@github-classroom github-classroom bot commented May 23, 2023

👋! GitHub Classroom created this pull request as a place for your teacher to leave feedback on your work. It will update automatically. Don’t close or merge this pull request, unless you’re instructed to do so by your teacher.
In this pull request, your teacher can leave comments and feedback on your code. Click the Subscribe button to be notified if that happens.
Click the Files changed or Commits tab to see all of the changes pushed to main since the assignment started. Your teacher can see this too.

Notes for teachers

Use this PR to leave feedback. Here are some tips:

  • Click the Files changed tab to see all of the changes pushed to main since the assignment started. To leave comments on specific lines of code, put your cursor over a line of code and click the blue + (plus sign). To learn more about comments, read “Commenting on a pull request”.
  • Click the Commits tab to see the commits pushed to main. Click a commit to see specific changes.
  • If you turned on autograding, then click the Checks tab to see the results.
  • This page is an overview. It shows commits, line comments, and general comments. You can leave a general comment below.
    For more information about this pull request, read “Leaving assignment feedback in GitHub”.

Subscribed: @leonelcejas774

Copy link

@eliocamp eliocamp left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ahí te hice comentarios en el código.

Además de los comentarios, en términos generales, falta mucho texto. Describir los datos: ¿qué columnas tiene? ¿Cuántos datos? Y sobre los resultados, tablas y gráficos, ¿qué motiva lo que mostrás y qué conclusiones sacás?

informe.Rmd Outdated
Comment on lines 14 to 16
```{r}
library(dplyr)
```

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

No hace falta que cada library() esté en un bloque separado. Poné todos en el primero (el que dice setup) arriba de este.

informe.Rmd Outdated
```


## Introducción
```{r}
library(gitcreds)

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Este paquete no hace falta cargarlo. No usás ninguna función en el código .

informe.Rmd Outdated


```{r}
library(usethis)

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Este paquete tampoco hace falta cargarlo

informe.Rmd Outdated



## Exploración de los datos

```{r}
library(readr)

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

El paquete ya lo cargaste arriba, sólo hace falta cargarlo una sola vez.

informe.Rmd Outdated



## Exploración de los datos

```{r}
library(readr)
captura_puerto_flota_2010_2018 <- read_csv("datos/captura-puerto-flota-2010-2018.csv")

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Estos datos no están en el repositorio. Tienen que estar para que pueda correr esto.

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Acá también hay un posible probelma de codificación (habrás visto que las tildes se ven mal).

image

Esto es porque el archivo está con una codificación no estándar. Tenés que definir la codification así:

captura_puerto_flota_2010_2018 <- read_csv("datos/captura-puerto-flota-2010-2018.csv", 
                                           locale = locale(encoding = "windows-1252"))

Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Gracias! me la pase investigando y no lo pude solucionar

informe.Rmd Outdated
Comment on lines 91 to 93
captura_puerto_flota_2010_2018 |>
filter ( fecha %in% c("2010-04", "2010-05", "2010-06")) |>
group_by(puerto)

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Igual que en bloques anteriores, esto te devuelve el resultado del filtro pero no lo guarda en ningún lado y no es útil para verlo en un informe.

informe.Rmd Outdated
Comment on lines 140 to 144
aparece_especie <- captura_puerto_flota_2010_2018 %>%

filter(fecha=="2010-01") |>
group_by(especie) |>
tally()

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Este resultado no lo estás mostrando en el informe.

Quizás contar por especie que queda demasiadas especies. Vi que hay una columna llamada especie_agrupada que tiene menos categorías; quizás podés usar esa para analizar .

informe.Rmd Outdated
ahora le asigno una variable a cada cosa y saco la media

```{r}
captura_2010_01_Merluzahubbsi/captura_2010_01_todas

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Esto no es bueno hacerlo porque en general no tiene sentido dividir una tabla por otra. En este caso en particular funciona porque es un caso muy particular. Está bien lo que hiciste más arriba:

mutate(proporcion = captura[especie = "Merluza hubbsi"]/captura)

informe.Rmd Outdated
Comment on lines 213 to 215
especies_repre |>
ggplot(data = especies_repre, mapping = aes(x = fecha, y = captura)) +
geom_line (aes(colour = especie))

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Este gráfico te sale mal porque la fecha es una columna de tipo texto. Si la pasás a fecha va a salir bien.

informe.Rmd Outdated
Comment on lines 232 to 233
especies_repre |>
pivot_wider(names_from = especie, values_from = captura, values_fill = 0)

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Esto está bien el código, pero me parece que el resultado no es muy útil porque, por lo que veo en los datos originales cada fila representa la captura de una especie. Entonces pivot_wider() te deja ceros en todas las especies salvo una en cada fila.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

None yet

2 participants