Vamos a graficar
library(readxl)
library(tidyverse)
library(scales)
library(lubridate)
library(ggrepel)
library(tinytex)
library(xtable)
getwd()
fp=read_excel("fp.xlsx")
ggplot(data = fp, mapping = aes(x =Organization)) + geom_bar(fill="darkgrey", color="black")+labs(y="Frecuencia", x="Organización deportiva")+theme_classic()ggplot(data = fp, mapping = aes(x =Rol)) + geom_bar(fill="darkgrey", color="black")+labs(y="Frecuencia", x="Rol en la organización deportiva")+theme_classic()ggplot(data = fp, mapping = aes(x =Perception)) + geom_bar(fill="darkgrey", color="black")+labs(y="Frecuencia", x="La formación permanente cualifica su comunidad deportiva")+theme_classic()este es un resultados de jaime