Sería buena idea que compartieras una parte del CSV para poderte ayudar de mejor forma, por lo pronto use una parte del como ejemplo:
Numero,Pais,Consumo_1,Emisiones_1,Consumo_2,Emisiones_2,Total_de_emis,Productos_an
1,Argentina,10.51,37.2,38.66,41.53,2140.65,2109.8
2,Australia,24.14,85.44,46.12,45.34,1859.55,1853.46
3,Albania,10.88,38.51,27.68,34.12,1733.73,1689.62
4,Iceland,21.69,76.77,26.87,32.86,1705.55,1679.75
5,New Zealand,22.29,78.9,34.98,37.58,1709.8,1668.67
El código en R quedaría así:
library(tibble)
library(janitor)
library(dplyr)
# Leer archivo CSV y limpiar los nombres de las columnas
data_consumo <- read.csv("data.csv", header = TRUE) %>%
clean_names()
# Convertir dataframe a tibble
da_cns <- as_tibble(data_consumo)
# Seleccionar las columnas correctas
da_cns <- select(da_cns, consumo_1, consumo_2)
# Combinar las columnas en una única columna
consumo <- bind_rows(
data.frame(x = da_cns$consumo_1),
data.frame(x = da_cns$consumo_2)
)
# Imprimir el resultado
print(consumo)
Lo que da como resultado:
x
1 10.51
2 24.14
3 10.88
4 21.69
5 22.29
6 38.66
7 46.12
8 27.68
9 26.87
10 34.98
En el caso del problema que tienes con el CSV original, de esta forma optimizada debería de funcionar:
library(tibble)
library(janitor)
library(dplyr)
data_consumo <- read.csv("data.csv", header = TRUE) %>%
clean_names()
da_cns <- as_tibble(data_consumo)
da_cns <- select(da_cns, starts_with("consumo"))
consumo <- bind_rows(lapply(da_cns, function(x) data.frame(x)))
print(consumo)
El paquete dplyr
viene con la función starts_width
que te permite obtener los campos que empiecen con ciertas letras. Para bind_rows
usamos lapply
que permite aplicar una función sobre una columna.
Documentación
Select variables that match a pattern — starts_with • tidyselect
lapply function - RDocumentation