Informe de investigación

Titulo 2

Entusada escribo mejor

El proposito de esta investigación es indagar la actitud de las personas sobre la democracia. La información fue obtenida de las bases de datos de Latinobarométro https://www.latinobarometro.org/latinobarometro-2023

Si yo quiero poner la información en NEGRITA y en Cursiva

Esta bella imagen Ilustra una verdad de la que tenemos ser conscientes:

A continuación se incluye el código de R usado para realizar el analisis:

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

latina <- read.csv("lat.csv", na= "NA")
table(latina$P18ST.A)
## 
##    1    2    3    4 
## 3623 9076 4836 1077
df <- data.frame(table(latina$P18ST.A))
colnames(df) <- c("Actitud", "Frecuencia")
View(df)
library(ggpattern)
## Warning: package 'ggpattern' was built under R version 4.5.2
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.2
#### Gráfica

# Barplot
ggplot(df, aes(x=Actitud, y=Frecuencia)) + 
  geom_bar(stat = "identity")

#color

ggplot(df, aes(x=Actitud, y=Frecuencia, fill=Actitud )) + 
  geom_bar(stat="identity") +
  scale_fill_hue(c = 40) +
  theme(legend.position="none")

###Grafico usado para elaborar un grafico de barras library(ggpattern) library(ggplot2) ggplot(df, aes(x=Actitud, y=Frecuencia)) + geom_bar(stat = “identity”)

latina <- read.csv("lat.csv", na= "NA")
table(latina$P18ST.A)
## 
##    1    2    3    4 
## 3623 9076 4836 1077
df <- data.frame(table(latina$P18ST.A))
colnames(df) <- c("Actitud", "Frecuencia")
View(df)
library(ggpattern)
library(ggplot2)

#### Gráfica

# Barplot
ggplot(df, aes(x=Actitud, y=Frecuencia)) + 
  geom_bar(stat = "identity")

#color

ggplot(df, aes(x=Actitud, y=Frecuencia, fill=Actitud )) + 
  geom_bar(stat="identity") +
  scale_fill_hue(c = 40) +
  theme(legend.position="none")

Including Plots

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.