Atividade 5 - MoMA

Carregando bibliotecas

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(ggthemes)

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

Carregando banco de dados

library(readr)
moma <- read.csv("https://raw.githubusercontent.com/DATAUNIRIO/Base_de_dados/master/arte_MOMA.csv", sep = ";", encoding = "UTF-8")

Conhecendo os dados

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

noquote(paste("Existem", moma %>% nrow(), "pinturas no MoMA."))

## [1] Existem 2253 pinturas no MoMA.

noquote(paste("E existem", moma %>% ncol(), "variáveis no banco de pinturas do MoMA."))

## [1] E existem 24 variáveis no banco de pinturas do MoMA.

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

paste("Temos",
      moma %>% filter(year_acquired == min(year_acquired, na.rm = TRUE)) %>% nrow(),
      "quadro(s) como o(s) mais antigo(s) do acervo. Ele(s) é(são) do ano",
      min(select(moma,year_acquired), na.rm=TRUE),".")

## [1] "Temos 2 quadro(s) como o(s) mais antigo(s) do acervo. Ele(s) é(são) do ano 1930 ."

paste("Seu(s) título(s) é(são):",
moma %>% 
  filter(year_acquired == min(year_acquired, na.rm = T)) %>% 
  pull(title) %>% first(),
moma %>% 
  filter(year_acquired == min(year_acquired, na.rm = T)) %>% 
  pull(title) %>% first() ,
"e", 
moma %>% 
  filter(year_acquired == min(year_acquired, na.rm = T)) %>% 
  pull(title) %>% last(),
", do(s) autor(es)",
moma %>% 
  filter(year_acquired == min(year_acquired, na.rm = T)) %>% 
  pull(artist) %>% first(), 
"e", 
moma %>% 
  filter(year_acquired == min(year_acquired, na.rm = T)) %>% 
  pull(artist) %>% last(),
"respectivamente.")

## [1] "Seu(s) título(s) é(são): House by the Railroad House by the Railroad e Seated Nude , do(s) autor(es) Edward Hopper e Bernard Karfiol respectivamente."

Atividade 3

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

  noquote(paste("A obra mais antiga do acervo do MoMA é do ano", 
        min(moma$year_created, na.rm = T), 
        ", feita por", 
        moma %>% filter(year_created == min(year_created, na.rm = T)) %>% pull(artist), 
        "e tem o título", 
        moma %>% filter(year_created == min(year_created, na.rm = T)) %>% pull(title)))

## [1] A obra mais antiga do acervo do MoMA é do ano 1872 , feita por Odilon Redon e tem o título Landscape at Daybreak

Atividade 4

Quantos artistas distintos existem?

  noquote(paste("Existem ", 
        moma %>% count(artist) %>% count() %>% pull(n),
        "artistas distintos no MoMA."))

## [1] Existem  989 artistas distintos no MoMA.

Atividade 5

##Qual artista tem mais pinturas na coleção?

noquote(paste("O/A artista que tem mais obras na coleção do MoMA é:",
              moma %>% count(artist) %>% arrange(-n) %>% pull(artist) %>% first(),
        "com um total de",
        moma %>% count(artist) %>% arrange(-n) %>% pull(n) %>% first(),
        "obras."))

## [1] O/A artista que tem mais obras na coleção do MoMA é: Pablo Picasso com um total de 55 obras.

Atividade 6

Quantas pinturas existem por este artista?

noquote(paste("São", moma %>% count(artist) %>% arrange(-n) %>% pull(n) %>% first(),
               "obras deste artista."))

## [1] São 55 obras deste artista.

Atividade 7

Quantas pinturas de artistas masculinos e femininos?

moma %>% count(artist_gender) %>% mutate(n = as.character(paste(n, "obras")))

##   artist_gender          n
## 1        Female  252 obras
## 2          Male 1991 obras
## 3          <NA>   10 obras

Atividade 8

Quantos artistas de cada gênero existem?

  moma %>% count(artist_gender, artist) %>% count(artist_gender) %>% mutate(n = as.character(paste(n, "artistas")))

##   artist_gender            n
## 1        Female 143 artistas
## 2          Male 837 artistas
## 3          <NA>   9 artistas

Atividade 9

Em que ano foram adquiridas mais pinturas?

noquote(paste("Foram adquiridas mais obras no ano",
          moma %>% count(year_acquired) %>% arrange(-n) %>% pull(year_acquired) %>% first()))

## [1] Foram adquiridas mais obras no ano 1985

Atividade 10

Em que ano foram criadas mais pinturas?

noquote(paste("No ano",
              moma %>% count(year_created) %>% arrange(-n) %>% pull(year_created) %>% first(),
              "foram criadas", 
              moma %>% count(year_created) %>% arrange(-n) %>% pull(n) %>% first(),
              "obras."))

## [1] No ano 1977 foram criadas 57 obras.

Conclusão:

É necessário investir em novas artistas do sexo feminino ou reconhecer as que já existiram.