Questionario Arte MOMA

Carregando base de dados:

library(readr)
arte_MOMA <- read_delim("C:/Users/mateu/Documents/R Project/Base_de_dados-master/arte_MOMA.csv", 
                        ";", escape_double = FALSE, trim_ws = TRUE)

## Warning: Missing column names filled in: 'X1' [1]

## 
## -- Column specification --------------------------------------------------------
## cols(
##   .default = col_double(),
##   title = col_character(),
##   artist = col_character(),
##   artist_bio = col_character(),
##   artist_gender = col_character(),
##   circumference_cm = col_logical(),
##   depth_cm = col_number(),
##   diameter_cm = col_logical(),
##   height_cm = col_number(),
##   length_cm = col_logical(),
##   width_cm = col_number(),
##   seat_height_cm = col_logical(),
##   purchase = col_logical(),
##   gift = col_logical(),
##   exchange = col_logical(),
##   classification = col_character(),
##   department = col_character()
## )
## i Use `spec()` for the full column specifications.

View(arte_MOMA)

Instalações dos Pacotes:

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

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

Há um total de 2253 pinturas e 24 variáveis na base de dados.

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

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

A primeira pintura foi adquirida em 1930, do artista Edward Hopper e seu título é “House by the Railroad”.

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

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

A pintura mais antiga é do ano de 1872, do artista Odilon Redon e seu título é "Landscape at Daybreak.

Quantos artistas distintos existem?

summary(arte_MOMA$artist)

##    Length     Class      Mode 
##      2253 character character

length(unique(arte_MOMA$artist))

## [1] 989

Há um total de 989 artistas diferentes no MOMA.

Qual artista tem mais pinturas na coleção?

sort(table(arte_MOMA$artist),decreasing = TRUE)[1:1]

## Pablo Picasso 
##            55

É o Pablo Picasso.

Quantas pinturas existem por este artista?

Um total de 55 pinturas.

Quantas pinturas de artistas masculinos e femininos?

table(arte_MOMA$artist_gender)

## 
## Female   Male 
##    252   1991

Há um total de 252 pinturas de artistas do sexo feminino, e 1991 do sexo masculino.

Quantos artistas de cada gênero existem?

art_fem <- arte_MOMA %>% filter(artist_gender=="Female")
length(unique(art_fem$artist))

## [1] 143

art_mas <- arte_MOMA %>% filter(artist_gender=="Male")
length(unique(art_mas$artist))

## [1] 837

Existem 143 artistas femininas e 837 artistas masculinos

Em que ano foram adquiridas mais pinturas?

sort(table(arte_MOMA$year_acquired),decreasing = TRUE)[1:1]

## 1985 
##   86

Foi em 1985.

Em que ano foram Criada mais pinturas?

sort(table(arte_MOMA$year_created),decreasing = TRUE)[1:1]

## 1977 
##   57

Foi em 1977.

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(art_fem$year_acquired))[1:1]

## 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

Foi adquirida em 1937, foi criada no ano de 1912, pela artista Natalia Honcharova e seu título é “Landscape, 47”

Qual a idade média de um artista?

arte_MOMA$Idade <- arte_MOMA$artist_death_year - arte_MOMA$artist_birth_year
summary(arte_MOMA$Idade)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   27.00   67.00   77.00   74.66   85.00  102.00     629

A média é de 74 anos.

Se você fosse fazer um Pitch (apresentação de 03 a 05 minutos) com recomendações sobre o MOMA a partir dos dados. Qual ideia você passaria? Quero um posicionamento ao fim do relatório!

Com base nos dados podemos notar a grande variedades de pinturas e de artistas que há no MOMA, uma experiência bem única e completa na vida para as pessoas que detem curiosidade sobre artes, e mais especificamente aos artistas da época.