seSe muestra una imagen de base de datos en formato csv
datos_consumo<-read.csv("Consumo.csv")
da_consumo<-as_tibble(datos_consumo) %>%
clean_names()
da_consumo1<-da_consumo %>%
select(consumo,consumo_1,consumo_2,consumo_3,consumo_4,consumo_5,consumo_6,consumo_7,consumo_8,consumo_9,consumo_10)
# PARA COMBINAR LAS FILAS DE CONSUMO EN UNA ÚNICA COLUMNA DE CONSUMO
df1<-data.frame(x=da_consumo1$consumo)
df2<-data.frame(x=da_consumo1$consumo_1)
# Se imprimó mal la única columna porque no se podría combinar
# cada elemento de una primerasegunda y segundatercera fila en un elemento de una nueva columna.
consumo<-rbind(df1,df2)
Se necesita que se vea algo asiasí como resultado