Re: [R-es] Opciones de guardado - gráfico en png

[David Camilo Gomez Medina]

Muchísimas gracias, funcionó correctamente.

David.

On Fri, 16 Jun 2023 at 15:27, Marcelino de la Cruz Rot <
marcelino.delac...@urjc.es> wrote:

>
> Más o menos así:
>
> png(filename = "Rplot.png",  width = 607, height = 367,  res = 300)
> levelplot(lo_que_sea)
> dev.off()
>
> Saludos,
> Marcelino
>
> El 16/06/2023 a las 22:16, David Camilo Gomez Medina escribió:
> > Buen día,
> >
> > Quiero guardar un gráfico que hice en R en formato PNG, quiero
> > asegurarme de que esté por encima de los 300 dpi. El gráfico no lo
> > hice con ggplot, sino con la función levelplot por lo que no puedo
> > utilizar la función ggsave para definir los dpi. ¿Cómo puedo definir
> > el número de dpi manualmente? Quisiera guardar el gráfico en pdf, pero
> > lamentablemente me lo exigen en formato png.
> >
> > Agradezco cualquier colaboración. Muchas gracias de antemano.
> >
> > David.
> >
> > image.png
> >
> > *Aviso legal:* El contenido de este mensaje y los archivos adjuntos
> > son confidenciales y de uso exclusivo de la Universidad Nacional de
> > Colombia. Se encuentran dirigidos sólo para el uso del destinatario al
> > cual van enviados. La reproducción, lectura y/o copia se encuentran
> > prohibidas a cualquier persona diferente a este y puede ser ilegal. Si
> > usted lo ha recibido por error, infórmenos y elimínelo de su correo.
> > Los Datos Personales serán tratados conforme a la Ley 1581 de 2012 y a
> > nuestra Política de Datos Personales que podrá consultar en la página
> > web www.unal.edu.co <http://www.unal.edu.co/>.__Las opiniones,
> > informaciones, conclusiones y cualquier otro tipo de dato contenido en
> > este correo electrónico, no relacionados con la actividad de la
> > Universidad Nacional de Colombia, se entenderá como personales y de
> > ninguna manera son avaladas por la Universidad.
> >
> > ___
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
> --
> Marcelino de la Cruz Rot
> Depto. de Biología y Geología
> Física y Química Inorgánica
> Universidad Rey Juan Carlos
> Móstoles España
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Opciones de guardado - gráfico en png

[David Camilo Gomez Medina]

Buen día,

Quiero guardar un gráfico que hice en R en formato PNG, quiero asegurarme
de que esté por encima de los 300 dpi. El gráfico no lo hice con ggplot,
sino con la función levelplot por lo que no puedo utilizar la función
ggsave para definir los dpi. ¿Cómo puedo definir el número de dpi
manualmente? Quisiera guardar el gráfico en pdf, pero lamentablemente me lo
exigen en formato png.

Agradezco cualquier colaboración. Muchas gracias de antemano.

David.

[image: image.png]

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Marcas secundarias ejes ggplot2

[David Camilo Gomez Medina]

Hola Javier, mira el siguiente enlace:
https://cran.r-project.org/web/packages/ggprism/vignettes/axes.html

Con minor_breaks puedes lograr lo que deseas.

Cordialmente,

David.

On Sat, 10 Jun 2023 at 20:05, Javier Gómez Gonzalez 
wrote:

> Muchas gracias Carlos por los enlaces.
>
> Estimado Javier Marcuzzi lo que yo quiero es poner las marcas secundarias a
> mis ejes sin etiquetas como se puede hacer en matplotlib. Un ejemplo se
> puede ver en el siguiente enlace
>
> https://interactivechaos.com/es/manual/tutorial-de-matplotlib/marcas-principales-y-secundarias
>
>
>
> El sáb, 10 jun 2023 a las 22:56, Carlos Ortega ( >)
> escribió:
>
> > Hola,
> >
> > Sí, puedes ver varias soluciones aquí:
> >
> >-
> >
> https://stackoverflow.com/questions/14490071/adding-minor-tick-marks-to-the-x-axis-in-ggplot2-with-no-labels
> >-
> >
> https://statisticsglobe.com/add-minor-tick-marks-without-labels-ggplot2-plot-r
> >
> > Gracias,
> > Carlos.
> > www.qualityexcellence.es
> >
> > El sáb, 10 jun 2023 a las 5:29, Javier Gómez Gonzalez (<
> > zaraga...@gmail.com>) escribió:
> >
> >> Estimados amigos:
> >> Quisiera saber si hay alguna forma en ggplot2 de establecer marcas
> >> secundarias en los ejes y que estas marcas secundarias no muestren
> >> etiquetas, pero sin que se dibuje las líneas minor grid.
> >>
> >>  Javier Gómez González
> >>
> >> [[alternative HTML version deleted]]
> >>
> >> ___
> >> R-help-es mailing list
> >> R-help-es@r-project.org
> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
> >>
> >
> >
> > --
> > Saludos,
> > Carlos Ortega
> > www.qualityexcellence.es
> >
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Extraer texto de una columna en Excel

[David Camilo Gomez Medina]

Muchas gracias por la alternativa de utilizar la librería stringi, Carlos,
no la conocía.

On Fri, 31 Mar 2023 at 12:11, David Camilo Gomez Medina <
dcgome...@unal.edu.co> wrote:

> Muchas gracias Carlos, lo que quiero hacer es lo siguiente: extraer el
> texto que hay entre textura/s hasta el punto final.
> Ejemplo:
> *Moderadamente profundos, bien drenados, de textura franco arenosa a
> franco arcillo arenosa. Fertilidad natural media*
> Lo que quiero extraer sería:  *franco arenosa a franco arcillo arenosa *
>
> Al final lo pude realizar de la siguiente manera:
>
> df <- read_excel("Agrologia.xlsx")
>
> df$Extracted_Text <- trimws(str_extract(df$CARACTERIS,
> "(?<=textura?(?:[^a-zA-Z]|s)).*?(?=\\.)"))
>
> Estoy abierto a cualquier sugerencia o comentario.
>
> Muchas gracias.
>
> On Fri, 31 Mar 2023 at 12:03, Carlos Ortega 
> wrote:
>
>> Hola,
>>
>> Como no sé lo que querías, veo dos alternativas...
>> Yo suelo usar "stringi" en vez de "stringr"
>>
>> #-
>> library(readxl)
>> library(stringi)
>> datos <- read_excel("Agrologia.xlsx")
>> toextract <- unlist(stri_extract_all_fixed(datos$CARACTERIS, "textura"))
>>
>> #--- Si quiero un dataframe completo donde CARACTERIS tenga "textura" o
>> "texturas"
>> lineas_textura <- datos[ !is.na(toextract), ]
>> #--- Si quiero los elementos de CARACTERIS que tiene "textura" o
>> "texturas"
>> campo_textura <- datos$CARACTERIS[ !is.na((toextract))]
>> #---
>>
>> Gracias,
>>
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>> El vie, 31 mar 2023 a las 17:20, David Camilo Gomez Medina (<
>> dcgome...@unal.edu.co>) escribió:
>>
>>> Buen día,
>>>
>>> Estoy extrayendo solo una parte de texto de una celda en Excel, pero
>>> tengo un inconveniente. Quiero extraer el texto desde donde dice
>>> *textura* hasta el siguiente punto, pero hay unas celdas que dicen
>>> *texturas* y me está extrayendo también ésta *s*, cómo podría cambiar
>>> el siguiente código para que me extraiga tanto textura como texturas. Quedo
>>> muy atento, gracias.
>>>
>>> rm(list = ls())
>>>
>>> library(readxl)
>>> library(stringr)
>>> library(openxlsx)
>>>
>>> setwd("~/INFO_DIEGO/R")
>>>
>>> df <- read_excel("Agrologia.xlsx")
>>>
>>> df$Extracted_Text <- str_extract(df$CARACTERIS, "(<=?textura?).*?\\.")
>>>
>>> write.xlsx(df, "modified_file.xlsx")
>>>
>>>
>>>
>>>
>>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
>>> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
>>> Se encuentran dirigidos sólo para el uso del destinatario al cual van
>>> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>>> Política de Datos Personales que podrá consultar en la página web
>>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
>>> otro tipo de dato contenido en este correo electrónico, no relacionados con
>>> la actividad de la Universidad Nacional de Colombia, se entenderá como
>>> personales y de ninguna manera son avaladas por la Universidad.
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>
>>
>> --
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Extraer texto de una columna en Excel

[David Camilo Gomez Medina]

Muchas gracias Carlos, lo que quiero hacer es lo siguiente: extraer el
texto que hay entre textura/s hasta el punto final.
Ejemplo:
*Moderadamente profundos, bien drenados, de textura franco arenosa a franco
arcillo arenosa. Fertilidad natural media*
Lo que quiero extraer sería:  *franco arenosa a franco arcillo arenosa *

Al final lo pude realizar de la siguiente manera:

df <- read_excel("Agrologia.xlsx")

df$Extracted_Text <- trimws(str_extract(df$CARACTERIS,
"(?<=textura?(?:[^a-zA-Z]|s)).*?(?=\\.)"))

Estoy abierto a cualquier sugerencia o comentario.

Muchas gracias.

On Fri, 31 Mar 2023 at 12:03, Carlos Ortega 
wrote:

> Hola,
>
> Como no sé lo que querías, veo dos alternativas...
> Yo suelo usar "stringi" en vez de "stringr"
>
> #-
> library(readxl)
> library(stringi)
> datos <- read_excel("Agrologia.xlsx")
> toextract <- unlist(stri_extract_all_fixed(datos$CARACTERIS, "textura"))
>
> #--- Si quiero un dataframe completo donde CARACTERIS tenga "textura" o
> "texturas"
> lineas_textura <- datos[ !is.na(toextract), ]
> #--- Si quiero los elementos de CARACTERIS que tiene "textura" o "texturas"
> campo_textura <- datos$CARACTERIS[ !is.na((toextract))]
> #---
>
> Gracias,
>
> Carlos Ortega
> www.qualityexcellence.es
>
> El vie, 31 mar 2023 a las 17:20, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Buen día,
>>
>> Estoy extrayendo solo una parte de texto de una celda en Excel, pero
>> tengo un inconveniente. Quiero extraer el texto desde donde dice
>> *textura* hasta el siguiente punto, pero hay unas celdas que dicen
>> *texturas* y me está extrayendo también ésta *s*, cómo podría cambiar el
>> siguiente código para que me extraiga tanto textura como texturas. Quedo
>> muy atento, gracias.
>>
>> rm(list = ls())
>>
>> library(readxl)
>> library(stringr)
>> library(openxlsx)
>>
>> setwd("~/INFO_DIEGO/R")
>>
>> df <- read_excel("Agrologia.xlsx")
>>
>> df$Extracted_Text <- str_extract(df$CARACTERIS, "(<=?textura?).*?\\.")
>>
>> write.xlsx(df, "modified_file.xlsx")
>>
>>
>>
>>
>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
>> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
>> Se encuentran dirigidos sólo para el uso del destinatario al cual van
>> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>> Política de Datos Personales que podrá consultar en la página web
>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
>> otro tipo de dato contenido en este correo electrónico, no relacionados con
>> la actividad de la Universidad Nacional de Colombia, se entenderá como
>> personales y de ninguna manera son avaladas por la Universidad.
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Extraer texto de una columna en Excel

[David Camilo Gomez Medina]

Buen día,

Estoy extrayendo solo una parte de texto de una celda en Excel, pero tengo
un inconveniente. Quiero extraer el texto desde donde dice *textura* hasta
el siguiente punto, pero hay unas celdas que dicen *texturas* y me está
extrayendo también ésta *s*, cómo podría cambiar el siguiente código para
que me extraiga tanto textura como texturas. Quedo muy atento, gracias.

rm(list = ls())

library(readxl)
library(stringr)
library(openxlsx)

setwd("~/INFO_DIEGO/R")

df <- read_excel("Agrologia.xlsx")

df$Extracted_Text <- str_extract(df$CARACTERIS, "(<=?textura?).*?\\.")

write.xlsx(df, "modified_file.xlsx")

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.


Agrologia.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Función aggregate en dataframe

[David Camilo Gomez Medina]

Listo, gracias.

On Wed, 29 Mar 2023 at 15:19, Carlos Ortega 
wrote:

> Ah... veo que tienes algunos valores nulos...
> Entonces para calcular la media, habría que incluir este otro cambio:
>
> *+   mutate(mes_avg = mean(value, na.rm = TRUE), .by = c(month, vars)) %>%*
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
>
> El mié, 29 mar 2023 a las 22:17, Carlos Ortega ()
> escribió:
>
>> Ah...
>> Sí, de esta forma...
>>
>> > resout <- df %>%
>> +   mutate(year = year(ym(yearmon))) %>%
>> +   mutate(month = month(ym(yearmon))) %>%
>> +   select(-year) %>%
>> +   relocate(month, .after = yearmon) %>%
>> +
>>
>> *  pivot_longer( cols = X1:X5, names_to = "vars" ) %>%+   mutate(mes_avg
>> = mean(value), .by = c(month, vars)) %>%+   select(month, vars, mes_avg)
>> %>%*
>> +   distinct() %>%
>> +   as.data.frame
>> > resout
>>month vars   mes_avg
>> 1  1   X1 0.5063388
>> 2  1   X2 0.6054863
>> 3  1   X3 0.4747568
>> 4  1   X4 0.6525521
>> 5  1   X5 0.3378098
>> 6  2   X1 0.6480751
>> 7  2   X2 0.3866987
>> 8  2   X3 0.5628610
>> 9  2   X4 0.2965187
>> 10 2   X5 0.5039561
>> 11 3   X1 0.3565034
>> 12 3   X2 0.5595157
>> 13 3   X3 0.4526992
>> 14 3   X4 0.5256429
>> 15 3   X5 0.5396339
>> 16 4   X1 0.3492785
>> 17 4   X2 0.4719472
>> 18 4   X3 0.6069615
>> 19 4   X4 0.5099684
>> 20 4   X5 0.5375129
>> 21 5   X1 0.6083371
>> 22 5   X2 0.6986131
>> 23 5   X3 0.3419662
>> 24 5   X4 0.4950851
>> 25 5   X5 0.5467911
>> 26 6   X1 0.2031233
>> 27 6   X2 0.4891435
>> 28 6   X3 0.3186853
>> 29 6   X4 0.7101540
>> 30 6   X5 0.4964806
>> 31 7   X1 0.4853932
>> 32 7   X2 0.5883874
>> 33 7   X3 0.8781151
>> 34 7   X4 0.4065725
>> 35 7   X5 0.3009754
>> 36 8   X1 0.4974401
>> 37 8   X2 0.6118529
>> 38 8   X3 0.6042984
>> 39 8   X4 0.3386884
>> 40 8   X5 0.6710002
>> 41 9   X1 0.6392356
>> 42 9   X2 0.4150898
>> 43 9   X3 0.5861839
>> 44 9   X4 0.4325483
>> 45 9   X5 0.6310271
>> 4610   X1 0.4523220
>> 4710   X2 0.5130199
>> 48    10   X3 0.3362966
>> 4910   X4 0.5372736
>> 5010   X5 0.5077318
>> 5111   X1 0.4055051
>> 5211   X2 0.4510812
>> 5311   X3 0.2245734
>> 5411   X4 0.7682052
>> 5511   X5 0.3541822
>> 5612   X1 0.6346173
>> 5712   X2 0.5956540
>> 5812   X3 0.3881634
>> 5912   X4 0.6156253
>> 6012   X5 0.6732854
>> >
>>
>> #-
>>
>> Gracias,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>>
>> El mié, 29 mar 2023 a las 22:12, David Camilo Gomez Medina (<
>> dcgome...@unal.edu.co>) escribió:
>>
>>> Muchísimas gracias Carlos, aunque yo quiero conservar las columnas. Por
>>> ejemplo, tú creaste información del año 2019 a 2022, para la columna X1
>>> quiero calcular el promedio de enero para esos años y así con las demás
>>> columnas. ¿Cómo podría cambiar tu código?
>>>
>>> On Wed, 29 Mar 2023 at 15:05, Carlos Ortega 
>>> wrote:
>>>
>>>> Ah, gracias..
>>>>
>>>> Me he creado uno de forma sintética...
>>>> Esta es una forma...
>>>>
>>>> #-
>>>> > library(dplyr)
>>>> > library(tidyr)
>>>> > library(lubridate)
>>>> >
>>>> >
>>>> > crear_data_frame <- function(anios_inicio, anios_fin) {
>>>> +   anios_meses <- expand.grid(Year = anios_inicio:anios_fin, Month =
>>>> 1:12)
>>>> +   anios_meses$yearmon <- paste0(anios_meses$Year, "-",
>>>> sprintf("%02d", anios_meses$Month))
>>>> +   vars <- replicate(5, runif(nrow(anios_meses)))
>>>> +   data.frame(anios_meses, vars, stringsAsFactors = FALSE) %>%
>>>> + select(-Year, -Month) %>%
>>>> + arrange(yearmon)
>>>> + }
>>>> >
>>>> > df <- crear_data_frame(2019, 2022)
>>>> >
>>>> > head(df)
>>>>   yearmonX1X2  X3X4 X5
>>>> 1 2019

Re: [R-es] Función aggregate en dataframe

[David Camilo Gomez Medina]

Muchas gracias Carlos, muy amable.

On Wed, 29 Mar 2023 at 15:18, Carlos Ortega 
wrote:

> Ah...
> Sí, de esta forma...
>
> > resout <- df %>%
> +   mutate(year = year(ym(yearmon))) %>%
> +   mutate(month = month(ym(yearmon))) %>%
> +   select(-year) %>%
> +   relocate(month, .after = yearmon) %>%
> +
>
> *  pivot_longer( cols = X1:X5, names_to = "vars" ) %>%+   mutate(mes_avg =
> mean(value), .by = c(month, vars)) %>%+   select(month, vars, mes_avg) %>%*
> +   distinct() %>%
> +   as.data.frame
> > resout
>month vars   mes_avg
> 1  1   X1 0.5063388
> 2  1   X2 0.6054863
> 3  1   X3 0.4747568
> 4  1   X4 0.6525521
> 5  1   X5 0.3378098
> 6  2   X1 0.6480751
> 7  2   X2 0.3866987
> 8  2   X3 0.5628610
> 9  2   X4 0.2965187
> 10 2   X5 0.5039561
> 11 3   X1 0.3565034
> 12 3   X2 0.5595157
> 13 3   X3 0.4526992
> 14 3   X4 0.5256429
> 15 3   X5 0.5396339
> 16 4   X1 0.3492785
> 17 4   X2 0.4719472
> 18 4   X3 0.6069615
> 19 4   X4 0.5099684
> 20 4   X5 0.5375129
> 21 5   X1 0.6083371
> 22 5   X2 0.6986131
> 23 5   X3 0.3419662
> 24 5   X4 0.4950851
> 25 5   X5 0.5467911
> 26 6   X1 0.2031233
> 27 6   X2 0.4891435
> 28 6   X3 0.3186853
> 29 6   X4 0.7101540
> 30 6   X5 0.4964806
> 31 7   X1 0.4853932
> 32 7   X2 0.5883874
> 33 7   X3 0.8781151
> 34 7   X4 0.4065725
> 35 7   X5 0.3009754
> 36 8   X1 0.4974401
> 37 8   X2 0.6118529
> 38 8   X3 0.6042984
> 39 8   X4 0.3386884
> 40 8   X5 0.6710002
> 41 9   X1 0.6392356
> 42 9   X2 0.4150898
> 43 9   X3 0.5861839
> 44 9   X4 0.4325483
> 45 9   X5 0.6310271
> 4610   X1 0.4523220
> 4710   X2 0.5130199
> 4810   X3 0.3362966
> 4910   X4 0.5372736
> 5010   X5 0.5077318
> 5111   X1 0.4055051
> 5211   X2 0.4510812
> 5311   X3 0.2245734
> 5411   X4 0.7682052
> 5511   X5 0.3541822
> 56    12   X1 0.6346173
> 5712   X2 0.5956540
> 5812   X3 0.3881634
> 5912   X4 0.6156253
> 6012   X5 0.6732854
> >
>
> #-
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> El mié, 29 mar 2023 a las 22:12, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Muchísimas gracias Carlos, aunque yo quiero conservar las columnas. Por
>> ejemplo, tú creaste información del año 2019 a 2022, para la columna X1
>> quiero calcular el promedio de enero para esos años y así con las demás
>> columnas. ¿Cómo podría cambiar tu código?
>>
>> On Wed, 29 Mar 2023 at 15:05, Carlos Ortega 
>> wrote:
>>
>>> Ah, gracias..
>>>
>>> Me he creado uno de forma sintética...
>>> Esta es una forma...
>>>
>>> #-
>>> > library(dplyr)
>>> > library(tidyr)
>>> > library(lubridate)
>>> >
>>> >
>>> > crear_data_frame <- function(anios_inicio, anios_fin) {
>>> +   anios_meses <- expand.grid(Year = anios_inicio:anios_fin, Month =
>>> 1:12)
>>> +   anios_meses$yearmon <- paste0(anios_meses$Year, "-", sprintf("%02d",
>>> anios_meses$Month))
>>> +   vars <- replicate(5, runif(nrow(anios_meses)))
>>> +   data.frame(anios_meses, vars, stringsAsFactors = FALSE) %>%
>>> + select(-Year, -Month) %>%
>>> + arrange(yearmon)
>>> + }
>>> >
>>> > df <- crear_data_frame(2019, 2022)
>>> >
>>> > head(df)
>>>   yearmonX1X2  X3X4 X5
>>> 1 2019-01 0.2783405 0.1556831 0.007564986 0.9981701 0.35200632
>>> 2 2019-02 0.3906244 0.1525354 0.794696565 0.6935012 0.15611665
>>> 3 2019-03 0.3607439 0.2350400 0.208026463 0.1175302 0.84753470
>>> 4 2019-04 0.7787032 0.371 0.697207166 0.3701457 0.04013776
>>> 5 2019-05 0.4973347 0.6898472 0.603442922 0.5696876 0.63328772
>>> 6 2019-06 0.5392983 0.9604180 0.45617 0.7767546 0.62486765
>>> >
>>> > resout <- df %>%
>>> +   mutate(year = year(ym(yearmon))) %>%
>>> +   mutate(month = month(ym(yearmon))) %>%
>>> +   select(-year) %>%
>>> +   relocate(month, .after = yearmon) %>%
>>> +   pivot_longer( cols = X1:X5) %>%
>>> +   mutate(mes_avg = mean(value), .by = month) %>%
>>> +   select(month, mes_avg) %>%
>>> +   distinct(

Re: [R-es] Función aggregate en dataframe

[David Camilo Gomez Medina]

Muchísimas gracias Carlos, aunque yo quiero conservar las columnas. Por
ejemplo, tú creaste información del año 2019 a 2022, para la columna X1
quiero calcular el promedio de enero para esos años y así con las demás
columnas. ¿Cómo podría cambiar tu código?

On Wed, 29 Mar 2023 at 15:05, Carlos Ortega 
wrote:

> Ah, gracias..
>
> Me he creado uno de forma sintética...
> Esta es una forma...
>
> #-
> > library(dplyr)
> > library(tidyr)
> > library(lubridate)
> >
> >
> > crear_data_frame <- function(anios_inicio, anios_fin) {
> +   anios_meses <- expand.grid(Year = anios_inicio:anios_fin, Month = 1:12)
> +   anios_meses$yearmon <- paste0(anios_meses$Year, "-", sprintf("%02d",
> anios_meses$Month))
> +   vars <- replicate(5, runif(nrow(anios_meses)))
> +   data.frame(anios_meses, vars, stringsAsFactors = FALSE) %>%
> + select(-Year, -Month) %>%
> + arrange(yearmon)
> + }
> >
> > df <- crear_data_frame(2019, 2022)
> >
> > head(df)
>   yearmonX1X2  X3X4 X5
> 1 2019-01 0.2783405 0.1556831 0.007564986 0.9981701 0.35200632
> 2 2019-02 0.3906244 0.1525354 0.794696565 0.6935012 0.15611665
> 3 2019-03 0.3607439 0.2350400 0.208026463 0.1175302 0.84753470
> 4 2019-04 0.7787032 0.371 0.697207166 0.3701457 0.04013776
> 5 2019-05 0.4973347 0.6898472 0.603442922 0.5696876 0.63328772
> 6 2019-06 0.5392983 0.9604180 0.45617 0.7767546 0.62486765
> >
> > resout <- df %>%
> +   mutate(year = year(ym(yearmon))) %>%
> +   mutate(month = month(ym(yearmon))) %>%
> +   select(-year) %>%
> +   relocate(month, .after = yearmon) %>%
> +   pivot_longer( cols = X1:X5) %>%
> +   mutate(mes_avg = mean(value), .by = month) %>%
> +   select(month, mes_avg) %>%
> +   distinct() %>%
> +   as.data.frame
> > resout
>month   mes_avg
> 1  1 0.4305554
> 2  2 0.4485030
> 3  3 0.4451672
> 4  4 0.4101606
> 5  5 0.4715812
> 6  6 0.5428447
> 7  7 0.5350282
> 8  8 0.4792279
> 9  9 0.5052422
> 1010 0.4272948
> 1111 0.5197938
> 1212 0.3883511
>
> #
>
> El mié, 29 mar 2023 a las 21:54, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Claro Carlos, gracias, exporté el dataframe a Excel.
>>
>>
>>
>> On Wed, 29 Mar 2023 at 14:44, Carlos Ortega 
>> wrote:
>>
>>> Hola,
>>>
>>> Puedes pasar una pequeña muestra del conjunto para darte la solución...
>>>
>>> Gracias,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>> El mié, 29 mar 2023 a las 21:38, David Camilo Gomez Medina (<
>>> dcgome...@unal.edu.co>) escribió:
>>>
>>>> Buen día a todos,
>>>>
>>>> Tengo un dataframe donde está almacenada la información por año y mes,
>>>> deseo calcular el promedio de todos los meses, es decir, obtener el
>>>> promedio mensual multianual de cada columna. He intentado realizarlo con la
>>>> función aggregate, pero no sé cómo seleccionar solamente el mes. Por
>>>> ejemplo, coger solo el mes de enero ('01') de cada año y promediarlo.
>>>>
>>>> Quedo muy atento, muchas gracias.
>>>>
>>>> [image: image.png]
>>>>
>>>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos
>>>> son confidenciales y de uso exclusivo de la Universidad Nacional de
>>>> Colombia. Se encuentran dirigidos sólo para el uso del destinatario al cual
>>>> van enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>>>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>>>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>>>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>>>> Política de Datos Personales que podrá consultar en la página web
>>>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y
>>>> cualquier otro tipo de dato contenido en este correo electrónico, no
>>>> relacionados con la actividad de la Universidad Nacional de Colombia, se
>>>> entenderá como personales y de ninguna manera son avaladas por la
>>>> Universidad.
>>>> ___
>>>> R-help-es mailing list
>>>> R-help-es@r-project.org
>>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>>
>&g

Re: [R-es] Función aggregate en dataframe

[David Camilo Gomez Medina]

Claro Carlos, gracias, exporté el dataframe a Excel.



On Wed, 29 Mar 2023 at 14:44, Carlos Ortega 
wrote:

> Hola,
>
> Puedes pasar una pequeña muestra del conjunto para darte la solución...
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 29 mar 2023 a las 21:38, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Buen día a todos,
>>
>> Tengo un dataframe donde está almacenada la información por año y mes,
>> deseo calcular el promedio de todos los meses, es decir, obtener el
>> promedio mensual multianual de cada columna. He intentado realizarlo con la
>> función aggregate, pero no sé cómo seleccionar solamente el mes. Por
>> ejemplo, coger solo el mes de enero ('01') de cada año y promediarlo.
>>
>> Quedo muy atento, muchas gracias.
>>
>> [image: image.png]
>>
>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
>> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
>> Se encuentran dirigidos sólo para el uso del destinatario al cual van
>> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>> Política de Datos Personales que podrá consultar en la página web
>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
>> otro tipo de dato contenido en este correo electrónico, no relacionados con
>> la actividad de la Universidad Nacional de Colombia, se entenderá como
>> personales y de ninguna manera son avaladas por la Universidad.
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.


conjunto.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Función aggregate en dataframe

[David Camilo Gomez Medina]

Buen día a todos,

Tengo un dataframe donde está almacenada la información por año y mes,
deseo calcular el promedio de todos los meses, es decir, obtener el
promedio mensual multianual de cada columna. He intentado realizarlo con la
función aggregate, pero no sé cómo seleccionar solamente el mes. Por
ejemplo, coger solo el mes de enero ('01') de cada año y promediarlo.

Quedo muy atento, muchas gracias.

[image: image.png]

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Resultado operación entre dataframes

[David Camilo Gomez Medina]

Hola a todos,

Muchísimas gracias por sus comentarios y ayuda. Me sirvió mucho las maneras
que me mostraron de solucionar el problema. Encontré otra manera de
resolverlo utilizando la librería dplyr, me gustaría compartirles esta
forma:

df_1 %>%
  mutate(across(all_of(df_2$nombre), ~ . - df_2$valor[match(cur_column(),
df_2$nombre)]))

Cordialmente,

David.


On Tue, 14 Mar 2023 at 14:45, David Camilo Gomez Medina <
dcgome...@unal.edu.co> wrote:

> Buen día estimados,
>
> Tengo el siguiente código:
>
> df_1 <- data.frame(ana = c(15, 20, 30), maria = c(15,20,30), jose = c(15,
> 20, 30))
>
> df_2 <- data.frame(nombre = c("jose", "ana", "maria"), valor = c(1,2,3))
>
> # Find the corresponding columns in df_1 based on the values in df_2$nombre
> cols <- match(df_2$nombre, names(df_1))
>
> # Subtract the values of df_2$valor from the corresponding columns of df_1
> df_1[,cols] <- df_1[,cols] - (df_2$valor)
>
> # Print the resulting data frame
> df_1
>
> y mi resultado es el siguiente:
>
>   ana maria jose
> 1  1414   14
> 2  1818   18
> 3  2727   27
>
> Pero el resultado debería ser:
>
>   ana maria jose
> 1  1312   14
> 2  1817   19
> 3  2827   29
>
> ¿Saben qué podría estar pasando?
>
> Quedo muy atento, gracias.
>
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Resultado operación entre dataframes

[David Camilo Gomez Medina]

Buen día estimados,

Tengo el siguiente código:

df_1 <- data.frame(ana = c(15, 20, 30), maria = c(15,20,30), jose = c(15,
20, 30))

df_2 <- data.frame(nombre = c("jose", "ana", "maria"), valor = c(1,2,3))

# Find the corresponding columns in df_1 based on the values in df_2$nombre
cols <- match(df_2$nombre, names(df_1))

# Subtract the values of df_2$valor from the corresponding columns of df_1
df_1[,cols] <- df_1[,cols] - (df_2$valor)

# Print the resulting data frame
df_1

y mi resultado es el siguiente:

  ana maria jose
1  1414   14
2  1818   18
3  2727   27

Pero el resultado debería ser:

  ana maria jose
1  1312   14
2  1817   19
3  2827   29

¿Saben qué podría estar pasando?

Quedo muy atento, gracias.

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Interpolación IDW

[David Camilo Gomez Medina]

Emilio, muchas gracias. Tuve que rehacer el código para entender mejor
todo, pero me sale el siguiente error:


*Error in as.data.frame.default(x[[i]], optional = TRUE) :   cannot coerce
class ‘structure("RasterLayer", package = "raster")’ to a data.frame*

El código es el siguiente:


























*for (i in 1:nrows_mt) {data_it_mt <-
as.numeric(as.vector(data_y_mt[i,]))it_data_mt <- idw(data_it_mt,
sta_mt, grid, p = 1)grid <- data.frame(grid, valores = it_data_mt[ ,
1])coordinates(grid) <- ~x+ygridded(grid) <- Tgrid <-
raster(grid, "valores")projection(grid) <- crs("+init=epsg:9377")
path <- 'C:/Users/David Gomez/Desktop/TESIS/DATOS/RESULTS/'numeration
<- as.character(i)name <- "MEAN_TEMP"exten <- ".tif"
writeRaster(grid, paste(path, name, numeration, exten), overwrite = T)}*

No entiendo muy bien a qué parte hace énfasis el error.

Quedo atento, gracias.

Saludos.

On Mon, 20 Feb 2023 at 02:11, Emilio L. Cano  wrote:

> Hola,
> Es difícil responder con un ejemplo no reproducible y sin el mensaje de
> error, pero te diría que intentes primero comprobar que puedes ajustar un
> único modelo fuera del bucle.
>
> Dicho esto, parece que estás pasando como primer argumento de la función
> un “string”, el nombre de la variable, y debe ser una fórmula. Tal vez
> as.formula(current_var, “~1”) te funcione.
>
> En cuanto a los NA, puedes usar en cada iteración current_df <-
> tidyr::drop_na(current_var) y usar current_df en vez de sta_mt
>
> Saludos,
> Emilio
>
>
>
> El 17 feb 2023, a las 19:56, David Camilo Gomez Medina <
> dcgome...@unal.edu.co> escribió:
>
> Hola, buen día a todos.
>
> He estado mirando cómo interpolar unos datos anuales con el método IDW,
> pero no consigo aún realizarlo.
>
> idw_models <- list()
>
> for (i in 1:ncol(data_y_mt)) {
>   #Extract the current variable
>   current_var <- names(data_y_mt)[i]
>
>   #Create an IDW model for the current variable
>   idw_model <- idw(current_var, sta_mt, grid, p = 1)
>
>   idw_models[[i]] <- idw_model
> }
>
> Ese es el código que llevo, pero me siento muy perdido. La variable*
> data_y_mt* es el dataframe donde tengo los valores, *sta_mt* son las
> coordenadas de los puntos, *grid* es la malla coordenada.
>
> Me gustaría también eliminar los datos con valores NA. Adjunto imagen del
> dataframe.
>
> Quedo muy atento, gracias.
>
> 
>
> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
> Se encuentran dirigidos sólo para el uso del destinatario al cual van
> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
> recibido por error, infórmenos y elimínelo de su correo. Los Datos
> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
> Política de Datos Personales que podrá consultar en la página web
> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
> otro tipo de dato contenido en este correo electrónico, no relacionados con
> la actividad de la Universidad Nacional de Colombia, se entenderá como
> personales y de ninguna manera son avaladas por la Universidad.
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Interpolación IDW

[David Camilo Gomez Medina]

Hola, buen día a todos.

He estado mirando cómo interpolar unos datos anuales con el método IDW,
pero no consigo aún realizarlo.

idw_models <- list()

for (i in 1:ncol(data_y_mt)) {
  #Extract the current variable
  current_var <- names(data_y_mt)[i]

  #Create an IDW model for the current variable
  idw_model <- idw(current_var, sta_mt, grid, p = 1)

  idw_models[[i]] <- idw_model
}

Ese es el código que llevo, pero me siento muy perdido. La variable*
data_y_mt* es el dataframe donde tengo los valores, *sta_mt* son las
coordenadas de los puntos, *grid* es la malla coordenada.

Me gustaría también eliminar los datos con valores NA. Adjunto imagen del
dataframe.

Quedo muy atento, gracias.

[image: image.png]

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Cambiar nombre columnas de un dataframe

[David Camilo Gomez Medina]

Muchas gracias Emilio, usando chek.names pude solucionarlo.

Cordialmente,

David.

On Thu, 9 Feb 2023 at 10:48, Emilio L. Cano  wrote:

> Hola,
>
> Para que sean nombres válidos de columna no pueden empezar con un número,
> por eso se le pone el prefijo de la X cuando es necesario.
>
> En algunas funciones (como data.frame) se puede evitar ese comportamiento
> con el argumento check.names, y entonces a las variables hay que hacer
> referencia poniendo el nombre entre acentos graves, por ejemplo `123`.
> Comprueba si este argumento o parecido está en las funciones que usas para
> las operaciones que comentas.
>
> Saludos,
> Emilio
>
>
>
>
>
> El 9 feb 2023, a las 16:27, David Camilo Gomez Medina <
> dcgome...@unal.edu.co> escribió:
>
> Buen día,
>
> Es que al realizar diferentes operaciones con un dataframe, el nombre de
> las columnas aparece con una *X*. ¿Alguien sabe cómo podría solucionarlo?
>
> Quedo atento a sus comentarios. Gracias.
>
> 
>
> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
> Se encuentran dirigidos sólo para el uso del destinatario al cual van
> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
> recibido por error, infórmenos y elimínelo de su correo. Los Datos
> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
> Política de Datos Personales que podrá consultar en la página web
> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
> otro tipo de dato contenido en este correo electrónico, no relacionados con
> la actividad de la Universidad Nacional de Colombia, se entenderá como
> personales y de ninguna manera son avaladas por la Universidad.
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Cambiar nombre columnas de un dataframe

[David Camilo Gomez Medina]

Buen día,

Es que al realizar diferentes operaciones con un dataframe, el nombre de
las columnas aparece con una *X*. ¿Alguien sabe cómo podría solucionarlo?

Quedo atento a sus comentarios. Gracias.

[image: image.png]

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Suma de datos de una tabla

[David Camilo Gomez Medina]

Muchas gracias Carlos y Manuel por el aporte, me ayudó bastante.

On Thu, 19 Jan 2023 at 04:12, Carlos Ortega 
wrote:

> Hola,
>
> Sí, he cambiado de forma de hacerlo, así lo tienes directo en un
> data.table...
> Y sale el 2000 que no sé porqué no salía antes.
>
> #-
> library(readxl)
> library(data.table)
> library(tidytable)
> library(lubridate)
>
> datos <- read_excel("PPT.xlsx") %>%
>   as.data.table() %>%
>   rename.(fecha = Fecha) %>%
>   mutate.( year = as.factor(year(ymd(fecha)) )) %>%
>   select.(-fecha) %>%
>   as.data.table()
>
> # Crear vectores con nombres de columnas y factores
> cols_to_sum <- datos %>% select.(where(is.numeric)) %>% names()
> resultado <- datos[, lapply(.SD, function(x) sum(x, na.rm = TRUE )),
> .SDcols = cols_to_sum, by = year]
> #--------
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 18 ene 2023 a las 23:57, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Hola Carlos, muchísimas gracias. Me sirvió muchísimo y me hiciste caer en
>> cuenta en que es mejor dejarlo en un dataframe y no en lista. Estoy
>> iniciando en esto porque manejar ese volumen de datos en Excel es muy
>> tedioso.
>>
>> Seguí tu código y lo apliqué, pero mira que no me está dando la suma de
>> manera correcta y también no me aparece el año 2000 y 2020. Adjunto una
>> captura del resultado, de cómo apliqué el código y también el archivo con
>> el que estoy trabajando.
>>
>> library(readxl)
>> library(tidyverse)
>>
>> ppt <- read_excel("PPT.xlsx")
>>
>> ppt <- transform(ppt, Fecha = as.Date(Fecha))
>>
>> ppt$year <- as.integer(format(as.Date(ppt$Fecha), "%Y"))
>>
>> result <- aggregate(. ~ year, data = ppt[, -1], sum, na.rm = T)
>>
>> Saludos,
>>
>> [image: image.png]
>>
>> On Wed, 18 Jan 2023 at 16:10, Carlos Ortega 
>> wrote:
>>
>>> Hola,
>>>
>>> De esta forma se aproxima bastante a lo que quieres...
>>>
>>> #-
>>> #--- Generar datos de forma sintética.
>>> library(dplyr)
>>>
>>> # número de sitios
>>> N <- 5
>>>
>>> # número de fechas
>>> num_dates <- 365
>>>
>>> # generar fechas para 2019, 2021 y 2022
>>> dates_2019 <- seq(as.Date("2019-01-01"), as.Date("2019-12-31"), by =
>>> "day")
>>> dates_2021 <- seq(as.Date("2021-01-01"), as.Date("2021-12-31"), by =
>>> "day")
>>> dates_2022 <- seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by =
>>> "day")
>>> dates <-
>>> c(rep(dates_2019,num_dates),rep(dates_2021,num_dates),rep(dates_2022,num_dates))
>>>
>>> # generar nombres de columnas
>>> colnames <- c("fecha", paste0("Sitio_", 1:N))
>>>
>>> # generar dataframe vacío
>>> df <- data.frame(matrix(nrow = length(dates), ncol = N + 1))
>>> colnames(df) <- colnames
>>> df$fecha <- dates
>>>
>>> # generar valores aleatorios
>>> for (i in 2:(N + 1)) {
>>>   df[,i] <- rnorm(length(dates), mean = 50, sd = 10)
>>> }
>>>
>>> #----- Cálculo como dataframe.
>>> df$year <- as.integer(format(as.Date(df$fecha), "%Y"))
>>> result <- aggregate(. ~ year, data=df[, -1], sum)
>>>
>>> #- Como lista...
>>> result_list <- list()
>>> # Aplicar aggregate() a cada columna de sitio
>>> agg_list <- lapply(df[,-1], function(x) aggregate(x ~ year, data =
>>> df[,-1], sum))
>>>
>>> # Aplicar split() a cada elemento de la lista de aggregate()
>>> result_list <- lapply(agg_list, function(x) split(x, x$year))
>>>
>>>
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>> El mié, 18 ene 2023 a las 20:14, David Camilo Gomez Medina (<
>>> dcgome...@unal.edu.co>) escribió:
>>>
>>>> No sé si olvidé aclarar, pero quiero crear una lista para cada columna
>>>> y así almacenar esos valores.
>>>>
>>>> On Wed, 18 Jan 2023 at 14:13, David Camilo Gomez Medina <
>>>> dcgome...@unal.edu.co> wrote:
>>>>
>>>>> Hola Carlos.
>>>>>
>>>>> Por ejemplo 

Re: [R-es] Suma de datos de una tabla

[David Camilo Gomez Medina]

No sé si olvidé aclarar, pero quiero crear una lista para cada columna y
así almacenar esos valores.

On Wed, 18 Jan 2023 at 14:13, David Camilo Gomez Medina <
dcgome...@unal.edu.co> wrote:

> Hola Carlos.
>
> Por ejemplo la segunda columna (16040050), quiero sumar todos los datos de
> esa columna correspondientes al año 2000 (quiero relacionarlos con la
> primera columna donde está la fecha) y ese valor almacenarlo en una lista y
> así sucesivamente con los demás años y con las demás columnas.
>
> Tengo pensado una lista así:
>
> est_16040050
>
> [[2000]]
> [1] 2.3
>
> [[2001]]
> [1] 1.7
>
> [[2002]]
> [1] 4.8
>
> Quedo muy atento a sus sugerencias o guías.
>
> Saludos.
>
> On Wed, 18 Jan 2023 at 13:52, Carlos Ortega 
> wrote:
>
>> Hola,
>>
>> Por entenderlo mejor, quieres que para las filas, para cada año:
>>
>>1. se sumen las columnas y por tanto tengas tantas sumas como
>>columnas.
>>2. o sumar todas las columnas y obtener una única suma.
>>
>> Gracias,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>> El mié, 18 ene 2023 a las 19:29, David Camilo Gomez Medina (<
>> dcgome...@unal.edu.co>) escribió:
>>
>>> Hola, espero que se encuentren muy bien.
>>>
>>> Tengo una tabla de datos de precipitación y quiero sumar por columnas y
>>> así obtener la precipitación anual. Es decir, quiero sumar solo los datos
>>> del año 2000 y guardarlos en una lista y así sucesivamente con los demás
>>> años, pero no encuentro todavía una función o una manera eficiente de
>>> hacerlo.
>>>
>>> Agradecería mucho si alguien me puede guiar.
>>>
>>> Saludos
>>>
>>> [image: image.png]
>>>
>>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
>>> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
>>> Se encuentran dirigidos sólo para el uso del destinatario al cual van
>>> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>>> Política de Datos Personales que podrá consultar en la página web
>>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
>>> otro tipo de dato contenido en este correo electrónico, no relacionados con
>>> la actividad de la Universidad Nacional de Colombia, se entenderá como
>>> personales y de ninguna manera son avaladas por la Universidad.
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>
>>
>> --
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Suma de datos de una tabla

[David Camilo Gomez Medina]

Hola Carlos.

Por ejemplo la segunda columna (16040050), quiero sumar todos los datos de
esa columna correspondientes al año 2000 (quiero relacionarlos con la
primera columna donde está la fecha) y ese valor almacenarlo en una lista y
así sucesivamente con los demás años y con las demás columnas.

Tengo pensado una lista así:

est_16040050

[[2000]]
[1] 2.3

[[2001]]
[1] 1.7

[[2002]]
[1] 4.8

Quedo muy atento a sus sugerencias o guías.

Saludos.

On Wed, 18 Jan 2023 at 13:52, Carlos Ortega 
wrote:

> Hola,
>
> Por entenderlo mejor, quieres que para las filas, para cada año:
>
>1. se sumen las columnas y por tanto tengas tantas sumas como columnas.
>2. o sumar todas las columnas y obtener una única suma.
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 18 ene 2023 a las 19:29, David Camilo Gomez Medina (<
> dcgome...@unal.edu.co>) escribió:
>
>> Hola, espero que se encuentren muy bien.
>>
>> Tengo una tabla de datos de precipitación y quiero sumar por columnas y
>> así obtener la precipitación anual. Es decir, quiero sumar solo los datos
>> del año 2000 y guardarlos en una lista y así sucesivamente con los demás
>> años, pero no encuentro todavía una función o una manera eficiente de
>> hacerlo.
>>
>> Agradecería mucho si alguien me puede guiar.
>>
>> Saludos
>>
>> [image: image.png]
>>
>> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
>> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
>> Se encuentran dirigidos sólo para el uso del destinatario al cual van
>> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
>> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
>> recibido por error, infórmenos y elimínelo de su correo. Los Datos
>> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
>> Política de Datos Personales que podrá consultar en la página web
>> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
>> otro tipo de dato contenido en este correo electrónico, no relacionados con
>> la actividad de la Universidad Nacional de Colombia, se entenderá como
>> personales y de ninguna manera son avaladas por la Universidad.
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co <http://www.unal.edu.co/>.* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Suma de datos de una tabla

[David Camilo Gomez Medina]

Hola, espero que se encuentren muy bien.

Tengo una tabla de datos de precipitación y quiero sumar por columnas y así
obtener la precipitación anual. Es decir, quiero sumar solo los datos del
año 2000 y guardarlos en una lista y así sucesivamente con los demás años,
pero no encuentro todavía una función o una manera eficiente de hacerlo.

Agradecería mucho si alguien me puede guiar.

Saludos

[image: image.png]

-- 
*Aviso legal:* El contenido de este mensaje y los archivos adjuntos son 
confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. 
Se encuentran dirigidos sólo para el uso del destinatario al cual van 
enviados. La reproducción, lectura y/o copia se encuentran prohibidas a 
cualquier persona diferente a este y puede ser ilegal. Si usted lo ha 
recibido por error, infórmenos y elimínelo de su correo. Los Datos 
Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra 
Política de Datos Personales que podrá consultar en la página web 
www.unal.edu.co .* *Las opiniones, informaciones, 
conclusiones y cualquier otro tipo de dato contenido en este correo 
electrónico, no relacionados con la actividad de la Universidad Nacional de 
Colombia, se entenderá como personales y de ninguna manera son avaladas por 
la Universidad.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es