Skip to main content
aclaraciones sobre el índice de columna
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

Hay varias maneramaneras de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es creacrear un identificador único que va a controlar el orden de las filas. Quizás en tus datos haya una tercera columna que sirva para esto y en ese caso lo mejor es usarla. Hay casos en los que el orden es muy importante, por ejemplo si vas a hacer cálculos entre columnas. Para eso agrupola mayoría de las operaciones dentro de una columna el orden importa poco.

En este caso no hay otra columna y asumo que el orden no importa o está bien así como está. Agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

NotaNotas:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta y dan soluciones para variaciones de este problema.

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta y dan soluciones para variaciones de este problema.

Hay varias maneras de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crear un identificador único que va a controlar el orden de las filas. Quizás en tus datos haya una tercera columna que sirva para esto y en ese caso lo mejor es usarla. Hay casos en los que el orden es muy importante, por ejemplo si vas a hacer cálculos entre columnas. Para la mayoría de las operaciones dentro de una columna el orden importa poco.

En este caso no hay otra columna y asumo que el orden no importa o está bien así como está. Agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Notas:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta y dan soluciones para variaciones de este problema.

se añadieron 50 caracteres en el cuerpo
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta y dan soluciones para variaciones de este problema.

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta.

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta y dan soluciones para variaciones de este problema.

se añadieron 116 caracteres en el cuerpo
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta.

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Hay varias manera de hacerlo. La solución que está más abajo usa la función pivot_wider() de la librería dplyr. Esta es una función más nueva y complicada (y potente) de spread().

library(tidyverse)

read.table(textConnection(
"ISIN         PRECIO
AT0000A139C4 1092.43
AT0000A139C4 1090.98
AT0000A139C4 1093.49
CH0215804383 98.0236
CH0215804383 98.3556
CH0215804383 98.8268"), 
header = T) -> datos

datos %>% 
  group_by(ISIN) %>%      
  mutate(id = 1:n()) %>% 
  pivot_wider(id_cols = "id", 
              names_from = "ISIN", 
              values_from = "PRECIO")

# A tibble: 3 x 3
     id AT0000A139C4 CH0215804383
  <int>        <dbl>        <dbl>
1     1        1092.         98.0
2     2        1091.         98.4
3     3        1093.         98.8

Primero se crean los datos para hacer reproducible al ejemplo. Un paso intermedio es crea un identificador único que va a controlar el orden de las filas. Para eso agrupo los datos por ISIN y luego, dentro de cada grupo, creo una secuencia que va desde 1 hasta el total de filas dentro del grupo (1:n()).

Por último hago el pivot. A la función le indico cuál es el identificador, qué columna aportará los nombres de columnas y cuál los valores.

Con el identificador también funciona spread()

datos %>% 
  group_by(ISIN) %>%       
  mutate(id = 1:n()) %>% spread(ISIN, PRECIO)

Pero prefiero pivot_wider() porque es más explícito en la llamada.

Nota:

Con la búsqueda [r] spread en este portal aparecen muchas respuestas a preguntas similares a esta.

se añadieron 232 caracteres en el cuerpo
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19
Loading
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19
Loading