library(readxl)

prueba_R <- read_excel("C:/Users/DanielTorresSandi/Desktop/prueba R.xlsx", 
                       sheet = 1)

2+5
## [1] 7
table(prueba_R$`MTECHO. ¿Cuál es el material predominante del **techo** de la vivienda?`)
## 
## Chapa con machimbre/aislación                    Chapa sola 
##                             2                             4 
##                  Losa/cemento 
##                             2