#Base de dados:
arte_MOMA <- read.csv2("C:/Users/vinny/Desktop/Base_de_dados-master/arte_MOMA.csv")#Pacotes instalados:
library(dplyr)## Warning: package 'dplyr' was built under R version 4.0.5##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(ggplot2)## Warning: package 'ggplot2' was built under R version 4.0.5library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.0.5## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --## v tibble 3.1.0 v purrr 0.3.4
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1## Warning: package 'tidyr' was built under R version 4.0.5## Warning: package 'readr' was built under R version 4.0.5## Warning: package 'forcats' was built under R version 4.0.5## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(ggthemes)## Warning: package 'ggthemes' was built under R version 4.0.5Atividade 01
#Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados? Atualmente existem 2.253 obras de artes e 24 variáveis.
Atividade 02
#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 RailroadA primeira obra adquirida pelo MOMA foi a House by The Railroad, criada por Edward Hopper, em 1930.
Atividade 03
#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 DaybreakA obra mais antiga foi a Landscape at Daybreak, criada por Odilon Redon, em 1872.
Atividade 04
#Quantos artistas distintos existem?
length(unique(arte_MOMA$artist))## [1] 989Existem um total de 989 artistas distintos.
Ativdade 05
#Qual artista tem mais pinturas na coleção?
sort(table(arte_MOMA$artist),decreasing=TRUE)[1:1]## Pablo Picasso
## 55O artista com maior número de obras é o Pablo Picasso.
Atividade 06
#Quantas pinturas existem por este artista?
sort(table(arte_MOMA$artist),decreasing=TRUE)[1:1]## Pablo Picasso
## 55Ele tem ao todo 55 obras de arte.
Atividade 07
#Quantas pinturas de artistas masculinos e femininos?
table(arte_MOMA$artist_gender)##
## Female Male
## 252 1991femenino com um total de 252 pinturas e masculino com 1991.
atividade 08
#Quantos artistas de cada gênero existem?
art_femin <- arte_MOMA %>% filter(artist_gender=="Female")
length(unique(art_femin$artist))## [1] 143143 artistas femininas.
art_masc <- arte_MOMA %>% filter(artist_gender=="Male")
length(unique(art_masc$artist))## [1] 837837 artistas masculinos.
Atividade 09
#Em que ano foram adquiridas mais pinturas?
sort(table(arte_MOMA$year_acquired),decreasing=TRUE)[1:1]## 1985
## 86No ano de 1985.
Atividade 10
#Em que ano foram Criada mais pinturas?
sort(table(arte_MOMA$year_created),decreasing=TRUE)[1:1]## 1977
## 57No ano de 1977.
Atividade 11
#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
## 1No ano de 1937.
arte_MOMA[333:333,c("year_created","artist","title")] ## year_created artist title
## 333 1912 Natalia Goncharova Landscape, 47Criada em 1912, por Natalia Goncharova, a obra se chamava Landscape,47.
Atividade 12
#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 629table(arte_MOMA$idade=="102")##
## FALSE TRUE
## 1623 1arte_MOMA %>%
filter(arte_MOMA$idade=="102") %>%
pull(artist) %>%
first()## [1] "Dorothea Tanning"Foi a Dorothea Tanning, vivendo até os 102 anos.
Atividade 13
#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 629Em media de 74 anos.
Atividade 14
#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 0De acordo com a tabela, os artistas do sexo masculino vivem mais.
#Apresentação de um Pitch
O MOMA na atualidade tem um total de 2.253 obras de arte.No entanto, fica claro e evidente que a quantidade de obras criadas por pessoas do sexos masculino, é disparada em relação a artistas femeninas. O museu detém uma vasta variedade de artistas, com diversas nacionalidades e culturas.Desta maneira, carregando um legado cultural para varias gerações futuras.Além de carregar obras de artitas renomados e conceituados.