library(readxl)
TAD <- read_excel("TAD.xlsx", col_types = c("numeric","numeric", "numeric","numeric","text","text"))
table(TAD$GEN)
## Warning: Unknown or uninitialised column: `GEN`.
## < table of extent 0 >

Diagrama de barras

Este es un gráfico para frecuencias de variables categóricas

table(TAD$Género)
## 
##   f   m 
## 115  88
barplot(table(TAD$Género),col="#9ace73", main="Frecuencias de la variable género")

F

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.