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.