Carregando Base de Dados

arte_MOMA <- read.csv2("C:/Users/Casa/OneDrive/Imagens/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, e quantas variáveis há: Existem 2253 obras 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")]
##    year_acquired        artist                 title
## 33          1930 Edward Hopper House by the Railroad

A primeira pintura foi adquirida no ano de 1930, e tem como artista Edward Hopper, intitulada 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 da coleção foi feita em 1872 por Odilon Redon, 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

O artista com mais Pinturas na coleção é Pablo Picasso, com 55 obras.

Quantas pinturas de artistas masculinos e femininos?

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

Há 1991 pinturas de artistas do sexo masculino

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 foi o ano em que o MOMA mais adquiriu pinturas, 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

O ano de 1977 foi compreendido como o período em que mais foram feitas as pinturas, 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

A primeira pintura feita por uma mulher foi em 1912, cuja autora foi Natalia Goncharova, intitulada 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 viveu até seus 102 anos de idade, tornando-se assim a artista que ficou mais tempo viva , dentro da amostragem fornecida pela base de dados.

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

A idade média é 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

Evidentemente artistas homens vivem mais que artistas mulheres como fica explicito na tabela

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?

Bom, eu poderia começar dizendo que o acervo do MOMA pode-se caracterizar como um dos mais completos de toda a contemporanidade. Diria também que a experiência de conhecer valerá muito a pena, pois dentre o incrivel acervo há pinturas feitas no século xx. O fato de haver grandes nomes como Pablo Picasso com certeza já é um grande motivo para se viver a experiência, os artistas daquela época tinham uma visão de mundo, e de sociedade, que transmitiam através de suas obras, e você ter a disposição mais de 2253 obras, que querem te mostrar algo, é uma chance imerdível.