La remanga la repua la remanga, info https://www.youtube.com/watch?v=CXABCY5Ws_A
library(readr)
LATINO23 <- read.csv("LATINO23.csv")
TABLE1 <- table(LATINO23$P18ST.A)
DF <- as.data.frame(TABLE1)
colnames(DF) <- c("ACTITUD","FRECUENCIA")
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.2
library(ggpattern)
## Warning: package 'ggpattern' was built under R version 4.5.2
ggplot(DF, aes(x= ACTITUD, y= FRECUENCIA))+
geom_bar(stat= "identity", fill= "coral")