Untitled

library(haven)

ess <- read_sav("ESS8RU.sav")

ess$gndr <- factor(ess$gndr, labels = c("Male", "Female"))

library(sjPlot)

## Warning in checkMatrixPackageVersion(): Package version inconsistency detected.
## TMB was built with Matrix version 1.2.13
## Current Matrix version is 1.2.12
## Please re-install 'TMB' from source using install.packages('TMB', type = 'source') or ask CRAN for a binary version of 'TMB' matching CRAN's 'Matrix' package

sjt.frq(ess$gndr)

ess$gndr
value	N	raw %	valid %	cumulative %
Male	1037	42.67	42.67	42.67
Female	1393	57.33	57.33	100.00
missings	0	0.00
total N=2430 · valid N=2430 · x̄=1.57 · σ=0.49

library(ggplot2)
# Basic histogram
ggplot(ess, aes(x=agea))+
  geom_histogram(binwidth=2, color="black", fill="cyan")+
  xlab("Возраст")+
  ggtitle("Гистограмма")+
  theme(plot.title = element_text(hjust = 0.5))

## Don't know how to automatically pick scale for object of type labelled. Defaulting to continuous.

library(ggplot2)
# Basic histogram
ggplot(ess, aes(x=agea))+
  geom_histogram(binwidth=2, color="black", fill="steelblue3")+
  xlab("Возраст")+
  ggtitle("Гистограмма")+
  theme(plot.title = element_text(hjust = 0.5))+
  geom_vline(aes(xintercept=mean(agea)),
             color="blue", linetype="dashed", size=1)

## Don't know how to automatically pick scale for object of type labelled. Defaulting to continuous.

ggplot(ess, aes(x=agea))+
  geom_histogram(aes(y=..density..), colour="black", fill="white", binwidth=2)+
  geom_density(alpha=.2, fill="#FF6666")

## Don't know how to automatically pick scale for object of type labelled. Defaulting to continuous.

library(plyr)
mu <- ddply(ess, "gndr", summarise, grp.mean=mean(agea))
head(mu)

##     gndr grp.mean
## 1   Male 42.87753
## 2 Female 49.59584

ggplot(ess, aes(x=agea, fill=gndr)) + #разница между color и fill
  geom_density(alpha = 0.4, size = 0.8)+
  geom_vline(data=mu, aes(xintercept=grp.mean, color=gndr))+
  scale_color_brewer(palette="Dark2")

## Don't know how to automatically pick scale for object of type labelled. Defaulting to continuous.

1 шаг: загрузили библиотеку haven и поставили файл ESS8RU/ descargamos la biblioteca haven y intrucimos la carpeta ESS8RU.

3 шаг: загрузили библиотеку sjPlot и поставили данные ess$gndr/descargamos la biblioteca sjPlot e intrucimos los datos de ess$gndr 4 шаг: Построили гистограмму в ggplot2/contruimos el gistograma en ggplot2. 5 шаг: в полученной гистограмме построили линию, указывающую на среднее/ en el gistograma obtenido en ggplot2, contruimos una linea que muetra la mitad del resultado. 6 шаг: построили гистограмму и в ней выделили область, указывающую на плотность/contruimos un gictrograma y en ella dividimos una linea que muestra la densidad. 7 шаг: построили суммарную гистограмму, на которой изображена плотность и среднее/ contruimos un gistograma de una suma total, en que la esta formada la densidad y el mitad.

Untitled

armijos

7 апреля 2018 г