Solucion de problemas, y arreglo de funcion grafica

NAMESPACE

@@ -3,3 +3,6 @@
 export(farenheit_a_centigrados)
 export(grafico_temperatura_mensual)
 export(tabla_resumen_temperatura)
+import(dplyr)
+import(ggplot2)
+import(lubridate)

R/funcion grafica mensual.R

@@ -7,46 +7,50 @@
 #'
 #' @param datos data.frame que contiene los datos. Debe incluir las columnas:
 #' `estacion`: Un factor o cadena que indica la estación del año.
-#' `mes`: mes del año de forma numerica.
+#' `mes`: mes del año de forma numerica (id).
 #' `temperatura_abrigo_150cm`: Un valor numérico que indica la temperatura medida.
 #' @param colores en el caso de querer presonalizar los colores del grafico.
 #' @param titulo Un string que especifica el título del gráfico.
 #'
+#' @import ggplot2
+#' @import dplyr
+#' @import lubridate
+#'
 #' @return
 #' Un grafico de líneas con la temperatura promedio mensual para cada estación.
 #' @examples
-#' datos_clima <- data.frame(
-#'   estacion = rep(c("Verano", "Otoño", "Invierno", "Primavera"), each = 12),
-#'   mes = rep(1:12, times = 4),
-#'   temperatura_abrigo_150cm = runif(48, min = -5, max = 35)
-#' )
 #'
-#' ejemplo_1
-#'  grafico_temperatura_mensual(datos_clima)
+#' grafico_temperatura_mensual(NH0910, "pink", "Temperatura")
 #'
-#' ejemplo 2
 #'
-#' grafico_temperatura_mensual(datos_clima, colores = c("red", "blue", "green", "purple"), titulo = "Temperatura")
+#' @export
 #'
 #'
-#' @export
 #'
 #'
 grafico_temperatura_mensual <- function(datos, colores = NULL, titulo = "Temperatura") {
    if (!is.data.frame(datos)) {
     cli::cli_abort("El argumento 'datos' debe ser un dataframe.")}
 
+  datos$fecha <- as.Date(datos$fecha)
    if (is.null(colores)) {
-    colores <- sample(colors(), length(unique(datos$mes)))
+    colores <- sample(colors(), length(unique(datos$id)))
+
+
+
   }
 
   grafico <- datos %>%
-    group_by(estacion, mes) %>%
-    summarise(mean_temp = mean(temperatura_abrigo_150cm, na.rm = TRUE)) %>%
-    ggplot(aes(x = mes, y = mean_temp, color = estacion)) +
+    mutate(mes = month(fecha)) %>%
+    group_by(id, mes) %>%
+    summarise(mean_temp = mean(temperatura_abrigo_150cm, na.rm = TRUE), .groups = 'drop') %>%
+    ggplot(aes(x = mes, y = mean_temp, color = id)) +
     geom_line() +
     scale_color_manual(values = colores) +
     labs(title = titulo, x = "Mes", y = "Temperatura Promedio")
 
   return(grafico)
+
 }
+
+

README.Rmd

@@ -52,25 +52,9 @@ pak::pak("angelina1sys/Paquetemeteored")
 ### Ejemplo 
 
 This is a basic example which shows you how to solve a common problem:
+NOS TIRA ERROR 
 
 ```{r example}
+{r example}
 library(Paquetemeteored)
-
-# Ejemplo para tabla_resumen_temperatura
-datos_ejemplo <- data.frame(
-  estacion = c("Estacion1", "Estacion1", "Estacion2"),
-  temperatura_abrigo_150cm = c(15, 20, 10)
-)
-tabla_resumen_temperatura(datos_ejemplo)
-
-# Ejemplo para farenheit_a_centigrados
-farenheit_a_centigrados(90)
-
-# Ejemplo para grafico_temperatura_mensual
-datos_clima <- data.frame(
-  estacion = rep(c("Verano", "Otoño", "Invierno", "Primavera"), each = 12),
-  mes = rep(1:12, times = 4),
-  temperatura_abrigo_150cm = runif(48, min = -5, max = 35)
-)
-grafico_temperatura_mensual(datos_clima)
-
+## basic example code

README.md

@@ -6,24 +6,57 @@
 <!-- badges: start -->
 <!-- badges: end -->
 
-El objetivo del paquete Paquetemeteored es aprender a crear paquetes en
-R, utilizando datos meteorológicos reales
+## Introducción
 
-## Instalación (traducir)
+Este paquete proporciona herramientas sencillas pero potentes para
+trabajar con datos de temperatura. Las tres funciones incluidas permiten
+resumir las temperaturas registradas en diferentes estaciones, convertir
+valores de temperatura de Fahrenheit a Celsius y generar gráficos para
+visualizar las temperaturas promedio mensuales por estación.
 
-You can install the development version of Paquetemeteored from
-[GitHub](https://github.com/) with:
+### Funciones principales
+
+1.  **`tabla_resumen_temperatura`**: Crea una tabla de resumen con el
+    valor mínimo, máximo y promedio de la temperatura registrada a 150
+    cm de altura para cada estación.
+2.  **`farenheit_a_centigrados`**: Convierte un valor de temperatura de
+    Fahrenheit a Celsius.
+3.  **`grafico_temperatura_mensual`**: Genera un gráfico de líneas con
+    las temperaturas promedio mensuales agrupadas por estación.
+
+### ¿Para quién es útil?
+
+Este paquete es útil para climatólogos, meteorólogos, investigadores o
+cualquier persona que trabaje con datos de clima y desee simplificar el
+análisis de las temperaturas a lo largo del tiempo. Es especialmente
+útil en estudios estacionales o en el seguimiento del clima en
+diferentes regiones o alturas.
+
+### Datos requeridos
+
+Las funciones trabajan con data frames que incluyen información sobre
+las temperaturas medidas en estaciones meteorológicas. Los datos deben
+contener una columna de temperatura registrada a 150 cm de altura, junto
+con identificadores de la estación y del mes o tiempo de medición.
+
+### Uso
+
+Puedes utilizar este paquete para obtener resúmenes estadísticos de las
+temperaturas, realizar conversiones de unidades y visualizar datos de
+clima de una manera gráfica y clara. Esto facilita la comparación entre
+estaciones y la observación de patrones a lo largo del año.
+
+### Instalación
+
+Se puede instalar la versión de desarrollo de meteored desde GitHub con:
 
 ``` r
 # install.packages("pak")
 pak::pak("angelina1sys/Paquetemeteored")
 ```
 
-## Ejemplo (completar)
+### Ejemplo
 
 This is a basic example which shows you how to solve a common problem:
 
-``` r
-library(Paquetemeteored)
-## basic example code
-```
+{r example} library(Paquetemeteored) \## basic example code