Atividade 5 - MoMA

arte = arte_MOMA

Respondendo as perguntas:

Atividade 1:

num_obras = nrow(arte)
num_variaveis = ncol(arte)
num_obras

## [1] 2253

num_variaveis

## [1] 24

Atividade 2:

linha = arte[which(arte$year_acquired==min(arte$year_acquired,na.rm=TRUE)),]

Titulo = linha$title
Ano_aquisicao = linha$year_acquired
Artista = linha$artist

Titulo

## [1] "House by the Railroad" "Seated Nude"

Ano_aquisicao

## [1] 1930 1930

Artista

## [1] "Edward Hopper"   "Bernard Karfiol"

Atividade 3: (Considerei o ano de criação da pintura)

linha_resposta = arte[which(arte$year_created==min(arte$year_created,na.rm=TRUE)),]

Titulo = linha_resposta$title
Ano_Criacao = linha_resposta$year_created
Artista = linha_resposta$artist

Titulo

## [1] "Landscape at Daybreak"

Ano_Criacao

## [1] 1872

Artista

## [1] "Odilon Redon"

Atividade 4:

Artistas_Distintos = length(unique(arte$artist,na.rm=TRUE))
Artistas_Distintos

## [1] 989

Atividade 5 e Atividade 6:

freq = as.data.frame(table(arte$artist))
resposta = freq[which(freq$Freq==max(freq$Freq)),]
colnames(resposta) = c("Artista","Frequência")
resposta

##           Artista Frequência
## 712 Pablo Picasso         55

Atividade 7:

pintura_feminino = ifelse(arte$n_female_artists>=1,1,0)
pintura_masculino = ifelse(arte$n_male_artists>=1,1,0)

print(paste("Há participação de mulheres em ",(num_pinturas_feminino = sum(pintura_feminino))," pinturas."))

## [1] "Há participação de mulheres em  255  pinturas."

print(paste("Há participação de homens em ",(num_pinturas_masculino = sum(pintura_masculino)), "pinturas."))

## [1] "Há participação de homens em  1999 pinturas."

print(paste("Importante lembrar que pode haver participação de homens e mulheres na mesma pintura"))

## [1] "Importante lembrar que pode haver participação de homens e mulheres na mesma pintura"

Atividade 8:

obras_mulheres = arte[which(arte$num_artists==1 & arte$n_female_artists==1),]
selecao = obras_mulheres[which(obras_mulheres$year_acquired==min(obras_mulheres$year_acquired)),]

print(paste("Ano aquisição:",selecao$year_acquired))

## [1] "Ano aquisição: 1937"

print(paste("Ano criação:", selecao$year_created))

## [1] "Ano criação: 1912"

print(paste("Artista:", selecao$artist))

## [1] "Artista: Natalia Goncharova"

print(paste("Título:",selecao$title))

## [1] "Título: Landscape, 47"

Atividade 9:

frequencia = as.data.frame(table(arte$year_acquired))
resposta = frequencia[which(frequencia$Freq==max(frequencia$Freq)),]
colnames(resposta) = c("Ano","Aquisições")
resposta

##     Ano Aquisições
## 55 1985         86

Atividade 10:

frequencia = as.data.frame(table(arte$year_created))
resposta = frequencia[which(frequencia$Freq==max(frequencia$Freq)),]
colnames(resposta) = c("Ano","Criações")
resposta

##     Ano Criações
## 98 1977       57

Atividade 11:

art_fem = arte[which((arte$num_artists==1) & (arte$n_female_artists==1)),]
resp = art_fem[which(art_fem$year_acquired==min(art_fem$year_acquired)),]

print(paste("Ano aquisição:", resp$year_acquired))

## [1] "Ano aquisição: 1937"

print(paste("Ano criação:", resp$year_created))

## [1] "Ano criação: 1912"

print(paste("Artista:", resp$artist))

## [1] "Artista: Natalia Goncharova"

print(paste("Título:", resp$title))

## [1] "Título: Landscape, 47"

Atividade 12: (Considerei pinturas com apenas um artista)

arte$tempo_vida = arte$artist_death_year-arte$artist_birth_year
artista = arte[which(  (arte$tempo_vida==max(arte$tempo_vida,na.rm=TRUE)) & arte$num_artists==1 ),]
Artista = artista$artist
Artista

## [1] "Dorothea Tanning"

Atividade 13: (Considerei pinturas com apenas um artista e retirando artistas repetidos)

selecao = arte[which(arte$num_artists==1),]
ordenado = selecao[order(selecao$artist),]
artista = ordenado$artist
idade = ordenado$tempo_vida

artistas_idades_unicos = unique(data.frame(artista,idade))
idade_media = mean(artistas_idades_unicos$idade , na.rm=TRUE)
idade_media

## [1] 73.78475

Atividade 14: (Considerei pinturas com apenas um artista e retirando artistas repetidos)

selecao_masc = arte[which(  (arte$num_artists==1) & (arte$n_female_artists==0)  ),]
ordenado_masc = selecao_masc[order(selecao_masc$artist),]
artista_masc = ordenado_masc$artist
idade_masc = ordenado_masc$tempo_vida

artistas_masc = data.frame(artista_masc,idade_masc)
artistas_masc = unique(artistas_masc)
idade_media_masc = mean(artistas_masc$idade_masc , na.rm=TRUE)

selecao_fem = arte[which(  (arte$num_artists==1) & (arte$n_female_artists==1)  ),]
ordenado_fem = selecao_fem[order(selecao_fem$artist),]
artista_fem = ordenado_fem$artist
idade_fem = ordenado_fem$tempo_vida

artistas_fem = unique(data.frame(artista_fem,idade_fem))
idade_media_fem = mean(artistas_fem$idade_fem , na.rm=TRUE)
print(paste("Idade média masculina: ",round(idade_media_masc,2)))

## [1] "Idade média masculina:  73.78"

print(paste("Idade média feminina: ",round(idade_media_fem,2)))

## [1] "Idade média feminina:  73.86"

Em média, artistas homens e mulheres vivem igualmente. Ambos os sexos vivem em média 73 anos. Importante ressaltar que foram considerados apenas obras com artistas únicos.

RESUMO MOMA: As atividades desenvolvidas dão uma noção de como é a configuração das obras do MoMA. Contamos ao todo com 2253 obras e 24 variáveis explicativas. As primeiras obras foram adquiridas em 1930, já a obra mais antiga da coleção foi criada em 1872 por Odilon Redon, chamada Landscape at Daybreak. As 2253 obras foram feitas por 989 artistas distintos. Pablo Picasso aparece 55 vezes, sendo o artista mais frequente. Homens são a maioria como autores das obras. O ano com maior frequência de obras adquiridas foi 1985; já o ano com maior número de obras criadas foi 1977. E como dito ao final das atividades, artistas homens e mulheres vivem em média o mesmo período de tempo.