Atividade MoMA

A base de dados

options(readr.num_columns = 0)
library(dplyr)
library(readr)
arte_MOMA <- read_delim("C:/Users/PCY/Documents/Estatistica R/BASE DE DADOS ESTATISTICA/arte_MOMA.csv", delim = ";")

Conhecendo os dados

Atividade 1 - Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?

# quantas pinturas existem no MoMA:
sum(complete.cases(arte_MOMA$X1))

## [1] 2253

# quantas variáveis existem no banco de dados:
ncol(arte_MOMA)

## [1] 24

Atividade 2 - Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?

# primeira pintura adquirida pelo MoMA:
arte_MOMA[33:33,c("year_acquired","artist","title")]

## # A tibble: 1 x 3
##   year_acquired artist        title                
##           <dbl> <chr>         <chr>                
## 1          1930 Edward Hopper House by the Railroad

Atividade 3 - Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?

# pintura mais antiga da coleção
arte_MOMA[697:697,c("year_created","artist","title")]  

## # A tibble: 1 x 3
##   year_created artist       title                
##          <dbl> <chr>        <chr>                
## 1         1872 Odilon Redon Landscape at Daybreak

Análises descritivas dos dados

Atividade 4 - Quantos artistas distintos existem?

# quantos artistas distintos existem:
length(unique(arte_MOMA$artist))

## [1] 989

Atividade 5 e 6 - Qual artista tem mais pinturas na coleção? Quantas pinturas existem por este artista?

# qual artista com mais pinturas no MoMA:
sort(table(arte_MOMA$artist),decreasing=TRUE)[1:1]

## Pablo Picasso 
##            55

Atividade 7 - Quantas pinturas de artistas masculinos e femininas?

# quantas pinturas de artistas masculinos e femininas:
table(arte_MOMA$artist_gender)

## 
## Female   Male 
##    252   1991

Atividade 8 - Quantos artistas de cada gênero existem?

# artistas femininas
art_femin <- arte_MOMA %>% filter(artist_gender=="Female")

length(unique(art_femin$artist))

## [1] 143

# artistas masculinos
art_masc <- arte_MOMA %>% filter(artist_gender=="Male")

length(unique(art_masc$artist))

## [1] 837

Atividade 9 - Em que ano foram adquiridas mais pinturas?

# ano que foram adquiridas mais pinturas:
sort(table(arte_MOMA$year_acquired),decreasing=TRUE)[1:1]

## 1985 
##   86

Atividade 10 - Em que ano foram criadas mais pinturas?

# ano que foram criadas mais pinturas:
sort(table(arte_MOMA$year_created),decreasing=TRUE)[1:1]

## 1977 
##   57

Atividade 11 - Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)? Quando essa pintura foi criada? Qual artista? Qual título?

sort(table(min(art_femin$year_acquired)))

## 1937 
##    1

arte_MOMA[333:333,c("year_created","artist","title")]  

## # A tibble: 1 x 3
##   year_created artist             title        
##          <dbl> <chr>              <chr>        
## 1         1912 Natalia Goncharova Landscape, 47