se 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)
consumo<-rbind(df1,df2) #se imprimó mal la única columna porque no se podría combinar cada elemento de una primera y segunda fila en un elemento de una nueva columna.
Se necesita que se vea algo asi