Trabalho Moma

Base de dados

library(readr)
Banco_Moma <- read_delim("https://raw.githubusercontent.com/DATAUNIRIO/Base_de_dados/master/arte_MOMA.csv", delim = ";")

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

Pacotes instalados

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

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

library(readr)

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

Há 2253 obras e 24 variáveis.

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

A primeira pintura foi adquirida no ano de 1930, do artista Edward Hopper, com o nome da obra House By The Railroad

Banco_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

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

A pintura mais antiga da coleção foi feita em 1872 por Odilon Redon, com o nome de “Landscape at Daybreak”

Banco_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

Quantos artistas distintos existem?

Existem 989 artistas diferentes.

length(unique(Banco_Moma$artist))

## [1] 989

Qual artista tem mais pinturas na coleção?

Pablo Picasso com 55.

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

## Pablo Picasso 
##            55

Quantas pinturas de artistas masculinos e femininos?

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

table(Banco_Moma$artist_gender)

## 
## Female   Male 
##    252   1991

Quantas pinturas de artistas masculinos e femininos?

São 1991 obras de artistas homens e 252 de mulheres.

table(Banco_Moma$artist_gender)

## 
## Female   Male 
##    252   1991

Quantos artistas de cada gênero existem?

São 837 artistas homens e 143 artistas mulheres.

art_femin <- Banco_Moma %>% filter(artist_gender=="Female")
length(unique(art_femin$artist))

## [1] 143

art_masc <- Banco_Moma%>% filter(artist_gender=="Male")
length(unique(art_masc$artist))

## [1] 837

Em que ano foram adquiridas mais pinturas?

1985, um total de 86 pinturas.

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

## 1985 
##   86

Em que ano foram Criadas mais pinturas?

1977, um total de 57 obras.

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

## 1977 
##   57

Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)?

Quando essa pintura foi criada? Qual artista? Qual título?

A primeira pintura feita por uma mulher foi em 1912,autora foi Natalia Goncharova, com o nome de Landscape,47.

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

## 1937 
##    1

Banco_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

Qual o artista ficou mais tempo vivo?

Dorothea Tanning viveu até seus 102 anos de idade, tornando-se assim a artista que ficou mais tempo viva , dentre os artistas analisados.

Banco_Moma$idade <- Banco_Moma$artist_death_year -Banco_Moma$artist_birth_year
summary(Banco_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

table(Banco_Moma$idade=="102")

## 
## FALSE  TRUE 
##  1623     1

Banco_Moma %>%
  filter(Banco_Moma$idade=="102") %>% 
  pull(artist) %>% 
  first()

## [1] "Dorothea Tanning"

Qual a idade média de um artista?

A idade média é 74 anos de idade

summary(Banco_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

Artistas homens vivem mais do que as mulheres?

Ao analisar a tebela fica evidente que os artisatas homens vivem mais do que as mulheres.

table(Banco_Moma$idade, Banco_Moma$artist_gender)

##      
##       Female Male
##   27       0    2
##   28       0    1
##   29       0    1
##   30       0    2
##   31       1    0
##   32       1    4
##   34       3   12
##   35       2    2
##   36       0    6
##   37       0    4
##   38       0    3
##   39       0    1
##   40       0    7
##   41       1    3
##   42       0    1
##   43       0    2
##   44       0   31
##   45       0    1
##   46       0    1
##   47       3    6
##   48       0    6
##   49       1    0
##   50       1   11
##   51       0   14
##   52       3   15
##   53       0    3
##   54       3   20
##   55       1   17
##   56       0   10
##   57       0   12
##   58       0    9
##   59       0   28
##   60       0    3
##   61       0   18
##   62       0    7
##   63       3    8
##   64       3   12
##   65       2   29
##   66       0   34
##   67      17   55
##   68       3   15
##   69       4   29
##   70       0   20
##   71       0   33
##   72       3   43
##   73       6   23
##   74       2   75
##   75       1   38
##   76       3   61
##   77       0   30
##   78       1   47
##   79       0   27
##   80       1   45
##   81       3   28
##   82       1   29
##   83       5   79
##   84       5   41
##   85       1   81
##   86       5   67
##   87       2   22
##   88       2   26
##   89       8   25
##   90       0   50
##   91       1   26
##   92       9   79
##   93       1   20
##   94       2   13
##   95       1    4
##   96       2    8
##   97       0    2
##   98       0    7
##   99       4    2
##   101      1    2
##   102      1    0

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?

Eu mostraria parte do acervo do MOMA , que possui grandes nomes e grandes obras, mostraria que conhecer o MOMA e seu acervo é imprescíndivel para todos aqueles que são apaixonados por arte. O MOMA possui obras antigas e com retratos únicos que só esse acervo tem, por isso conhece-lo é uma questão de amor a cultura. Obras que refletem diferentes sentimentos e direferentes gostos dos artistas,uma variedade imensa que nos permite refletir sobre o verdadeiro conceito de arte, e nos ajuda na jornada para o descobrimento do belo. É indubitável que conhecer o MOMA eleva o nosso espírito a um grau maior de entendimento artístico.