Carregando Base de Dados

arte_MOMA <- read.csv2("C:/Users/mille/Base_de_dados-master/arte_MOMA.csv")

str(arte_MOMA)
## 'data.frame':    2253 obs. of  24 variables:
##  $ X                : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ title            : chr  "Rope and People, I" "Fire in the Evening" "Portrait of an Equilibrist" "Guitar" ...
##  $ artist           : chr  "Joan Miró" "Paul Klee" "Paul Klee" "Pablo Picasso" ...
##  $ artist_bio       : chr  "(Spanish, 1893-1983)" "(German, born Switzerland. 1879-1940)" "(German, born Switzerland. 1879-1940)" "(Spanish, 1881-1973)" ...
##  $ artist_birth_year: int  1893 1879 1879 1881 1880 1879 1943 1880 1839 1894 ...
##  $ artist_death_year: int  1983 1940 1940 1973 1946 1953 1977 1950 1906 1956 ...
##  $ num_artists      : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ n_female_artists : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ n_male_artists   : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ artist_gender    : chr  "Male" "Male" "Male" "Male" ...
##  $ year_acquired    : int  1936 1970 1966 1955 1939 1968 1997 1931 1934 1941 ...
##  $ year_created     : int  1935 1929 1927 1919 1925 1919 1970 1929 1885 1930 ...
##  $ circumference_cm : logi  NA NA NA NA NA NA ...
##  $ depth_cm         : num  NA NA NA NA NA NA NA NA NA NA ...
##  $ diameter_cm      : logi  NA NA NA NA NA NA ...
##  $ height_cm        : num  104.8 33.8 60.3 215.9 50.8 ...
##  $ length_cm        : logi  NA NA NA NA NA NA ...
##  $ width_cm         : num  74.6 33.3 36.8 78.7 54 ...
##  $ seat_height_cm   : logi  NA NA NA NA NA NA ...
##  $ purchase         : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
##  $ gift             : logi  TRUE FALSE FALSE TRUE TRUE FALSE ...
##  $ exchange         : logi  FALSE FALSE FALSE FALSE TRUE FALSE ...
##  $ classification   : chr  "Painting" "Painting" "Painting" "Painting" ...
##  $ department       : chr  "Painting & Sculpture" "Painting & Sculpture" "Painting & Sculpture" "Painting & Sculpture" ...

Carregando e Instalando 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
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.3     v purrr   0.3.4
## v tibble  3.1.0     v stringr 1.4.0
## v tidyr   1.1.3     v forcats 0.5.1
## v readr   1.4.0
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(ggthemes)

Quantas pinturas existem? Quantas variáveis existem?

Existem 2253 obras e 24 variáveis.

Qual foi a primeira pintura adquirida pelo MOMA? Qual ano? Qual artista? Qual título?

arte_MOMA[33:33,c("year_acquired","artist","title")]
##    year_acquired        artist                 title
## 33          1930 Edward Hopper House by the Railroad

A primeira pessoa foi adquirida no ano de 1930 por Edward Hopper e o 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")]  
##     year_created       artist                 title
## 697         1872 Odilon Redon Landscape at Daybreak

A pintura mais antiga foi criada por Odilon Redon em 1872 e é intitulada “Landscape at Daybreak”

Quantos artistas distintos existem?

length(unique(arte_MOMA$artist))
## [1] 989

Há 989 artistas diferentes

Qual artista tem mais pinturas na coleção?

sort(table(arte_MOMA$artist),decreasing=TRUE)[1:1]
## Pablo Picasso 
##            55
summary(arte_MOMA$artist)
##    Length     Class      Mode 
##      2253 character character

Pablo Picasso com 55 obras.

Quantas pinturas de artistas masculinos e femininos?

table(arte_MOMA$artist_gender)
## 
## Female   Male 
##    252   1991

Há 1991 pinturas do sexo masculino e 252 do femino

Quantos artistas de cada gênero existem?

art_femin <- arte_MOMA %>% filter(artist_gender=="Female")
length(unique(art_femin$artist))
## [1] 143
art_masc <- arte_MOMA %>% filter(artist_gender=="Male")
length(unique(art_masc$artist))
## [1] 837

Há 143 artistas femininas & 837 artistas masculinos

Em que ano foram adquiridas mais pinturas?

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

1985, um total de 86 peças

Em que ano foram Criadas mais pinturas?

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

Em 1977, um total de 57 obras.

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")] 
##     year_created             artist         title
## 333         1912 Natalia Goncharova Landscape, 47

Em 1912, por Natalia Goncharova, com o título Landscape, 47.

Qual o artista ficou mais tempo vivo?

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
table(arte_MOMA$idade=="102")
## 
## FALSE  TRUE 
##  1623     1
arte_MOMA %>%
  filter(arte_MOMA$idade=="102") %>% 
  pull(artist) %>% 
  first()
## [1] "Dorothea Tanning"

Dorothea Tanning com 102 anos de idade.

Qual a idade média de um artista?

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

74 anos de idade.

Artistas homens vivem mais do que as mulheres?

table(arte_MOMA$idade, arte_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

Mais homens vivem mais que artistas mulheres.

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? O MOMA é uma experiência muito valiosa pela coleção de pinturas do século XX. A coleção rica e diversificada de MoMa é um dos maiores panoramas da arte moderna. Hoje, o prédio preservou mais de 150.000 pinturas, esculturas, desenhos, maquetes arquitetônicas, imagens, fotos e trabalhos de design. Visitando o Museu de Arte Moderna de Nova York, você experimentará uma das experiências mais incríveis que a cidade pode lhe oferecer.

Seu acervo é de fato essencial, com mais de 100.000 obras entre pinturas, esculturas e objetos de design.Visitando o MoMA você verá obras de arte renomadas como o “Auto-retrato com cabelo cortado” de Frida Kahlo, “A Noite Estrelada” de Van Gogh, “A dança” de Henri Matisse e “As senhoritas de Avignon” de Pablo Picasso, só para citar algumas.