MOMA
Thiago Peixoto
2022-12-01
R Markdown
library(dplyr)## Warning: package 'dplyr' was built under R version 4.2.2##
## 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.2.2library(ggthemes)## Warning: package 'ggthemes' was built under R version 4.2.2library(readr)
MOMA <- read_delim("Base_de_dados-master/arte_MOMA.csv",
delim = ";", escape_double = FALSE, locale = locale(encoding = "WINDOWS-1252"),
trim_ws = TRUE)## New names:
## • `` -> `...1`## Rows: 2253 Columns: 24
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (6): title, artist, artist_bio, artist_gender, classification, department
## dbl (8): ...1, artist_birth_year, artist_death_year, num_artists, n_female_a...
## num (3): depth_cm, height_cm, width_cm
## lgl (7): circumference_cm, diameter_cm, length_cm, seat_height_cm, purchase,...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.View(MOMA)#Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?
summary(MOMA$title)## Length Class Mode
## 2253 character characterRESPOSTA
Há um total de 2253 pinturas no MOMA e de acordo com o dataframe existem 24 variáveis
#Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?
summary(MOMA$year_acquired) ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1930 1957 1975 1976 1996 2017 9RESPOSTA
Temos 2 pinturas adquiridas a partir do ano de 1930 A primeira do artista chamado Edward Hopper, criador da House by the Railroad A segunda do artista chamado Bernard Karfiol, criador da Seated Nude
#Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?
summary(MOMA$year_created)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1872 1933 1956 1954 1972 2017 5RESPOSTA
A pintura mais antiga da coleção foi criada no ano de 1872, pelo artista chamado Odilon Redon, que deu o título a pintura de Landscape at Daybreak
#Quantos artistas distintos existem?
MOMA %>% group_by(artist) %>%
summarise(Contagem = length(unique(artist))) %>% nrow() ## [1] 989RESPOSTA
Existem 989 artistas distintos
#Qual artista tem mais pinturas na coleção? Quantas pinturas existem por este artista?
Tabela=table(MOMA$artist)
Tabela##
## A. E. Gallatin
## 1
## A.R. Penck (Ralf Winkler)
## 1
## Abraham Palatnik
## 2
## Abraham Rattner
## 1
## Abraham Walkowitz
## 1
## Ad Dekkers
## 1
## Ad Reinhardt
## 10
## Adam Pendleton
## 1
## Adolf Richard Fleischmann
## 1
## Adolph Gottlieb
## 9
## Afro (Afro Basaldella)
## 2
## Agam (Yaacov Agam)
## 2
## Agnes Martin
## 9
## Agustín Fernández
## 2
## Ahmed Yacoubi
## 1
## Al Hansen
## 1
## Al Held
## 7
## Al Loving
## 1
## Alain Jacquet
## 1
## Alan Cote
## 1
## Alan Davie
## 2
## Alan Reynolds
## 1
## Alan Shields
## 1
## Albert Bloch
## 1
## Albert Gleizes
## 1
## Albert Oehlen
## 1
## Albert Tucker
## 2
## Albert Urban
## 1
## Albert York
## 2
## Alberto Burri
## 1
## Alberto da Veiga Guignard
## 1
## Alberto Giacometti
## 5
## Alejandro Otero
## 2
## Alejandro Puente
## 1
## Aleksandr Rodchenko
## 2
## Alex Colville
## 1
## Alex Israel
## 1
## Alex Katz
## 7
## Alexander Brook
## 1
## Alexander Liberman
## 2
## Alexandra Exter
## 3
## Alexei Alexandrovich Tyapushkin
## 1
## Alexei Jawlensky
## 1
## Alfonso Ossorio
## 2
## Alfred H. Maurer
## 1
## Alfred Jensen
## 6
## Alfred Leslie
## 1
## Alfred Manessier
## 2
## Alfredo Guido
## 1
## Alfredo Volpi
## 1
## Alfredo Zalce
## 1
## Alice Baber
## 1
## Alice Neel
## 2
## Alighiero Boetti
## 2
## Allan D'Arcangelo
## 2
## Allan McCollum
## 1
## Allen Ruppersberg
## 1
## Alma Woodsey Thomas
## 1
## Alton Pickens
## 2
## Amédée Ozenfant
## 1
## Amedeo Modigliani
## 2
## Amelia Peláez Del Casal
## 2
## Amy Sillman
## 1
## André Bauchant
## 2
## André Derain
## 10
## André Lanskoy
## 1
## André Marchand
## 1
## André Masson
## 9
## Andrew Wyeth
## 1
## Andy Warhol
## 15
## Annette Lemieux
## 1
## Anselm Kiefer
## 5
## Antoine Pevsner
## 1
## Anton Refregier
## 1
## Antoni Tàpies
## 3
## Antonieta Sosa
## 1
## Antonio Berni
## 1
## Antonio Corpora
## 1
## Antonio López García
## 1
## Antonio Ruiz
## 1
## Antonio Segui
## 1
## Antonio Zoran Music
## 1
## Arbit Blatas
## 1
## Arman
## 1
## Armando Morales Sequeira
## 1
## Armando Pizzinato
## 1
## Armando Reverón
## 2
## Arnold Friedman
## 2
## Arnold Schmidt
## 1
## Arnulf Rainer
## 2
## Arshile Gorky
## 8
## Arthur B. Carles
## 1
## Arthur B. Davies
## 3
## Arthur Dove
## 3
## Arthur Osver
## 1
## Atsuko Tanaka
## 1
## Attilio Salemme
## 3
## Audrey Flack
## 1
## August Macke
## 1
## Auguste Herbin
## 4
## Augusto Giacometti
## 1
## Augustus Vincent Tack
## 1
## Avery Singer
## 1
## Ay-O
## 1
## Balcomb Greene
## 2
## Balthus (Baltusz Klossowski de Rola)
## 4
## Barbara Kruger
## 1
## Barnett Newman
## 7
## Bart Van Der Leck
## 1
## Batiste Madalena
## 25
## Batiste Madalena, Josef von Sternberg
## 1
## Beatriz González
## 1
## Beatriz Milhazes
## 1
## Beauford Delaney
## 2
## Bedri Rahmi
## 1
## Ben Cunningham (Benjamin Frazier Cunningham)
## 1
## Ben Nicholson
## 4
## Ben Shahn
## 1
## Ben Vautier
## 24
## Benjamin Kopman
## 3
## Benny Andrews
## 1
## Bernar Venet
## 1
## Bernard Buffet
## 1
## Bernard Cohen
## 1
## Bernard Karfiol
## 1
## Betye Saar
## 2
## Bhupen P. Khakhar
## 1
## Billy Al Bengston
## 1
## Billy Sullivan
## 1
## Blake Rayne
## 1
## Blinky Palermo
## 3
## Bob Kane
## 2
## Bob Thompson
## 1
## Brad Davis
## 1
## Bradley Walker Tomlin
## 4
## Brice Marden
## 7
## Bridget Riley
## 3
## Bruce Boice
## 1
## Bruce Nauman
## 1
## Bruce Tippett
## 1
## Bruno Ceccobelli
## 1
## Bryan Wynter
## 1
## Burgoyne Diller
## 3
## Byron Thomas
## 1
## Camille Bombois
## 1
## Camille Graeser
## 2
## Cândido Portinari
## 1
## Carl-Henning Pedersen
## 1
## Carl Buchheister
## 1
## Carlo Carrà
## 2
## Carlos Cruz-Diez
## 1
## Carlos González Bogen
## 1
## Carlos Zilio
## 1
## Carmen Herrera
## 1
## Carroll Cloar
## 1
## Carroll Dunham
## 2
## César Paternosto
## 1
## Chaim Soutine
## 4
## Charles Hinman
## 1
## Charles Seliger
## 1
## Charles Sheeler
## 2
## Charline von Heyl
## 1
## Charmion von Wiegand
## 1
## Check Boterf
## 1
## Chéri Samba
## 1
## Cheyney Thompson
## 1
## Chris Ofili
## 3
## Christian Bérard
## 3
## Christina Ramberg
## 1
## Christo
## 1
## Christopher Le Brun
## 1
## Christopher Wool
## 2
## Chuck Close
## 5
## Chung Chang-Sup
## 1
## Clara McDonald Williamson
## 1
## Claude Monet
## 5
## Claude Viallat
## 1
## Cleve Gray
## 2
## Clyfford Still
## 2
## Conrad Marca-Relli
## 1
## Cundo Bermúdez
## 2
## Cy Twombly
## 6
## Dan Christensen
## 1
## Dana Schutz
## 1
## Daniel Buren
## 4
## Daniel LaRue Johnson
## 1
## Darrel Austin
## 1
## David Alfaro Siqueiros
## 6
## David Burliuk
## 1
## David Deutsch
## 1
## David Hockney
## 2
## David Novros
## 2
## David Prentice
## 1
## David Reed
## 1
## David Salle
## 2
## David Smith
## 1
## David Webster
## 1
## David Wojnarowicz
## 2
## Denise Green
## 1
## Diego Rivera
## 4
## Dieter Roth, Ingrid Wiener
## 1
## Dimitri Mikhailovich Krasnopevtsev
## 1
## Dimitri Petrovich Plavinsky
## 2
## Dominique-Paul Peyronnet
## 1
## Donald Kaufman
## 1
## Donald Judd
## 1
## Donald Sultan
## 1
## Dorothea Rockburne
## 3
## Dorothea Tanning
## 1
## Douglas Blau
## 1
## Eberhard Havekost
## 1
## Ed Clark
## 1
## Ed Moses
## 1
## Edda Renouf
## 2
## Edmondo Bacci
## 1
## Édouard Vuillard
## 4
## Eduardo A. MacEntyre
## 1
## Eduardo Costa
## 2
## Edvard Munch
## 1
## Edward C. (""Pa"") Hunt
## 1
## Edward Corbett
## 1
## Edward Hopper
## 4
## Edward Ruscha
## 7
## Edwin Dickinson
## 2
## Egon Schiele
## 1
## Ei Arakawa, Nikolas Gambaroff
## 1
## El Lissitzky
## 2
## Eleanore Mikus
## 1
## Elizabeth Murray
## 8
## Elizabeth Peyton
## 2
## Elizabeth Sparhawk-Jones
## 1
## Ellen Gallagher
## 2
## Ellen Phelan
## 1
## Ellsworth Kelly
## 12
## Elmer Bischoff
## 1
## Elmer Schooley
## 1
## Elsa Schmid
## 1
## Emil Nolde
## 3
## Émile Bernard
## 1
## Emilio Pettoruti
## 1
## Emilio Rodríguez Larraín
## 1
## Emilio Vedova
## 2
## Enrico Donati
## 2
## Enrico Prampolini
## 1
## Enrique Zañartu
## 1
## Enzo Cucchi
## 2
## Eric Fischl
## 2
## Eric Isenburger
## 1
## Erich Buchholz
## 1
## Ernest Trova
## 1
## Ernest Fiene
## 1
## Ernst Ludwig Kirchner
## 3
## Erol (Erol Akyavas)
## 1
## Esteban Vicente
## 2
## Etel Adnan
## 1
## Eugene Berman
## 5
## Eugène Carrière
## 1
## Eugene Fernandez Granell
## 1
## Eugenie Baizerman
## 1
## Eva Hesse
## 3
## Everett Spruce
## 1
## Evert Lundquist
## 1
## Evsa Model
## 1
## Fairfield Porter
## 2
## Faith Ringgold
## 1
## Fannie Hillsmith
## 1
## Felix Gonzalez-Torres
## 1
## Fernand Léger
## 15
## Fernando Botero
## 2
## Fidelio Ponce De León
## 1
## Fletcher Martin
## 1
## Florine Stettheimer
## 2
## Forrest Bess
## 2
## Francesco Clemente
## 2
## Francis Alÿs
## 4
## Francis Bacon
## 5
## Francis Celentano
## 1
## Francis Picabia
## 9
## Francisco Borès
## 1
## François Morellet
## 1
## Frank Auerbach
## 1
## Frank Bowling
## 1
## Frank Stella
## 23
## Franklin Chenault Watkins
## 1
## Frans Krajcberg
## 1
## Frantisek Kupka
## 5
## Franz Kline
## 5
## Franz Marc
## 1
## Fred Tomaselli
## 1
## Frederick Kiesler
## 1
## Frederick Papsdorf
## 1
## Frida Kahlo
## 3
## Friedrich Vordemberge-Gildewart
## 2
## Fritz Glarner
## 3
## Fritz Winter
## 1
## Gabriel Orozco
## 1
## Gandy Brodie
## 1
## Gary Stephan
## 1
## Gastone Novelli
## 1
## Gene Davis
## 1
## Genichiro Inokuma
## 1
## Georg Baselitz
## 3
## George Ault
## 1
## George Condo
## 3
## George Grosz
## 3
## George L. K. Morris
## 1
## George Maciunas
## 1
## George McNeil
## 2
## George Sugarman
## 1
## George Tooker
## 1
## Georges-Pierre Seurat
## 4
## Georges Braque
## 9
## Georges Mathieu
## 2
## Georges Ribemont-Dessaignes
## 1
## Georges Rouault
## 2
## Georges Vantongerloo
## 2
## Georgia O'Keeffe
## 4
## Ger Lataster
## 1
## Ger van Elk
## 1
## Gerald Murphy
## 1
## Gérard Schneider
## 1
## Gerd Leufert
## 4
## Gerhard Richter
## 17
## Gertrude Greene
## 1
## Geta Bratescu
## 3
## Giacomo Balla
## 4
## Gianfranco Baruchello
## 1
## Gilbert & George, Gilbert Proesch, George Passmore
## 2
## Gino De Dominicis
## 1
## Gino Severini
## 3
## Giorgio Cavallon
## 1
## Giorgio de Chirico
## 14
## Giorgio Morandi
## 3
## Giuseppe Capogrossi
## 1
## Giuseppe Guerreschi
## 1
## Glenn Ligon
## 2
## Gonzalo Ariza
## 1
## Gotthard Graubner
## 2
## Grace Hartigan
## 3
## Graham Coughtry
## 1
## Graham Sutherland
## 2
## Grégoire Müller
## 1
## Gregory Amenoff
## 1
## Guido Molinari
## 1
## Guillermo Kuitca
## 2
## Günther Förg
## 2
## Gustaf Oscar Dalström
## 1
## Gustav Klimt
## 2
## Guy Pène du Bois
## 1
## Guyton\\Walker, Wade Guyton, Kelley Walker
## 1
## Gwen John
## 3
## Ha Chonghyun
## 1
## Hale Woodruff
## 1
## Hans Hartung
## 1
## Hans Hofmann
## 5
## Hap Tivey
## 1
## Harold Barling Town
## 1
## Harry Zolotow
## 1
## Harvey Quaytman
## 3
## Hedda Sterne
## 2
## Heinrich Campendonk
## 1
## Heitor dos Prazeres
## 1
## Helen Frankenthaler
## 5
## Hélio Oiticica
## 1
## Henri Laurens
## 1
## Henri Le Fauconnier
## 1
## Henri Matisse
## 32
## Henri Rousseau
## 2
## Henry Pearson
## 1
## Henry Taylor
## 2
## Herbert Bayer
## 1
## Herman Rose
## 1
## Hermann Nitsch
## 1
## Hiram Draper Williams
## 1
## Hisao Domoto
## 2
## Honoré Sharrer
## 1
## Horace Pippin
## 1
## Horia Damian
## 1
## Howard Hodgkin
## 1
## Howard Mehring
## 1
## Howardena Pindell
## 1
## Hundertwasser (Friedrich Stowasser)
## 1
## Hyman Bloom
## 2
## Iaroslav Serpan
## 1
## Ibrahim El-Salahi
## 1
## Ida Applebroog
## 1
## Ida E. Fischer
## 1
## Ilya Bolotowsky
## 1
## Irene Rice Pereira
## 2
## Irving Kriesberg
## 1
## Isa Genzken
## 1
## Israel Litwak
## 1
## Iurii Annenkov
## 1
## Ivan Kliun
## 1
## Ivan Le Lorraine Albright
## 1
## Ivo Pannaggi
## 1
## J. Trevor Wood
## 1
## Jack Goldstein
## 1
## Jack Levine
## 2
## Jack Tworkov
## 2
## Jack Whitten
## 3
## Jack Youngerman
## 3
## Jackson Pollock
## 18
## Jacob Lawrence
## 30
## Jacqueline Humphries
## 1
## Jacques Charlier
## 1
## Jacques Villon
## 5
## Jake Berthot
## 6
## James Bishop
## 1
## James Brooks
## 2
## James Edward Davis
## 1
## James Ensor
## 2
## James Francis Gill
## 2
## James Henry Daugherty
## 1
## James Jarvaise
## 1
## James McGarrell
## 1
## James Rosenquist
## 5
## Jan Dibbets
## 1
## Jan J. Schoonhoven
## 1
## Jan Lebenstein
## 1
## Jan Müller
## 1
## Jane Wilson
## 1
## Janet Sobel
## 2
## Jankel Adler
## 1
## Jasper Johns
## 12
## Jean-Paul Riopelle
## 1
## Jean (Hans) Arp
## 3
## Jean Bazaine
## 1
## Jean Charlot
## 2
## Jean Dubuffet
## 25
## Jean Ève
## 1
## Jean Fautrier
## 1
## Jean Hélion
## 3
## Jean Lurçat
## 1
## Jean McEwen
## 1
## Jean Messagier
## 1
## Jean Metzinger
## 2
## Jeanne Reynal
## 1
## Jedd Garet
## 1
## Jeff Elrod
## 1
## Jennifer Bartlett
## 2
## Jenny Holzer
## 1
## Jess
## 1
## Jesús Rafael Soto
## 2
## Jewett Campbell
## 1
## Jim Dine
## 5
## Jim Nutt
## 2
## Jimmy Ernst
## 2
## Jo Baer
## 2
## Joan Brown
## 2
## Joan Josep Tharrats
## 1
## Joan Miró
## 19
## Joan Mitchell
## 6
## Joan Semmel
## 1
## Joan Snyder
## 1
## Joan Witek
## 1
## Joanna Pousette-Dart
## 1
## Joaquín Torres-García
## 7
## Joe Bradley
## 2
## Joe Goode
## 1
## Johannes Itten
## 2
## Jóhannes Sveinsson Kjarval
## 1
## John Atherton
## 1
## John Baldessari
## 4
## John Clem Clarke
## 1
## John Covert
## 1
## John Currin
## 1
## John D. Graham
## 3
## John Day
## 1
## John Ferren
## 1
## John Hultberg
## 1
## John Kane
## 5
## John Levee
## 2
## John McLaughlin
## 2
## John Opper
## 1
## John Piper
## 1
## John Randall Bratby
## 1
## John Tunnard
## 1
## John Walker
## 6
## Jonathan Borofsky
## 1
## Jörg Immendorff
## 1
## Jorge Damiani
## 2
## Jorge Eielson
## 1
## Jose Antonio Fernández-Muro
## 1
## José Clemente Orozco
## 4
## José María Sicilia
## 1
## José Pancetti
## 1
## Josef Albers
## 7
## Joseph Glasco
## 1
## Joseph Hirsch
## 2
## Joseph Kosuth
## 1
## Joseph Mellor Hanson
## 1
## Joseph Ndandarika
## 1
## Joseph Pickett
## 1
## Joseph Stella
## 2
## Josh Smith
## 6
## Juan Genovés
## 1
## Juan Gris
## 6
## Juan O'Gorman
## 1
## Judit Reigl
## 1
## Jules Olitski
## 3
## Jules Pascin
## 1
## Julian E. Levi
## 1
## Julian Schnabel
## 1
## Julian Stanczak
## 1
## Julie Mehretu
## 2
## Julije Knifer
## 1
## Julio Castellanos
## 1
## Julius Bissier
## 4
## Jutta Koether
## 1
## Kai Althoff
## 3
## Karel Appel
## 3
## Karin Sander
## 1
## Karl Hofer
## 1
## Karl Knaths
## 1
## Karl Schmidt-Rottluff
## 2
## Karl Zerbe
## 1
## Katherine Porter
## 1
## Katherine S. Dreier
## 1
## Kay Sage
## 2
## Kazimir Malevich
## 7
## Kazuo Nakamura
## 1
## Kees van Dongen
## 1
## Kelley Walker
## 2
## Kenneth Noland
## 3
## Kenzo Okada
## 2
## Kerry James Marshall
## 2
## Kerstin Brätsch
## 1
## Kerstin Brätsch, Adele Röder
## 1
## Key Hiraga
## 1
## Kim Beom
## 1
## Kirsten Kraa
## 1
## Knud Merrild
## 2
## Komar and Melamid, Vitaly Komar, Aleksandr Danilovich Melamid
## 1
## Konrad Lueg
## 1
## Kumi Sugaï
## 1
## Kurt Roesch
## 1
## Kurt Schwitters
## 1
## Kurt Seligmann
## 1
## Lajos D'Ebneth
## 1
## Lari Pittman
## 1
## Larry Poons
## 1
## Larry Rivers
## 5
## Larry Zox
## 1
## László Moholy-Nagy
## 8
## Laura Owens
## 1
## Lawrence Calcagno
## 1
## Lawrence Lebduska
## 2
## Lawrence Stephen Lowry
## 1
## Lawrence Weiner
## 2
## Le Corbusier (Charles-Édouard Jeanneret)
## 1
## Lee Bontecou
## 1
## Lee Gatch
## 1
## Lee Krasner
## 3
## Lee Lozano
## 1
## Lee Ufan
## 1
## Leon Golub
## 2
## Leon Polk Smith
## 1
## Leonard French
## 1
## Leonardo Cremonini
## 1
## Leonid (Leonid Berman)
## 3
## Lester F. Johnson
## 1
## Lidy Prati
## 1
## Lisa Yuskavage
## 1
## Llyn Foulkes
## 2
## Lois Lane
## 1
## Loren MacIver
## 6
## Lorser Feitelson
## 1
## Lothar Quinte
## 1
## Louis Cane
## 1
## Louis Marcoussis
## 1
## Louis Michel Eilshemius
## 3
## Louis Vivin
## 2
## Lovis Corinth
## 1
## Luc Tuymans
## 5
## Lucian Freud
## 2
## Lucio Fontana
## 2
## Lucy McKenzie
## 2
## Ludwig Sander
## 1
## Luis Fernando Benedit
## 1
## Luis Martínez Pedro
## 1
## Lygia Clark
## 1
## Lynette Yiadom-Boakye
## 4
## Lynn Bowers
## 1
## Lynton Wells
## 1
## Lyonel Feininger
## 5
## Lyubov Popova
## 2
## Magnus Plessen
## 1
## Malcolm Bailey
## 1
## Malcolm Morley
## 2
## Man Ray (Emmanuel Radnitzky)
## 1
## Mangelos (Dimitrije Basicevic)
## 2
## Manolo Millares
## 1
## Manoucher Yektai
## 1
## Marc Chagall
## 4
## Marcel Broodthaers
## 7
## Marcel Duchamp
## 8
## Marcel Jean
## 1
## Marcello Muccini
## 1
## Marcelo Bonevardi
## 1
## Marcos Grigorian
## 1
## Maria Helena Vieira da Silva
## 2
## Maria Lassnig
## 1
## Mariano (Mariano Rodríguez)
## 1
## Marina Stern
## 1
## Mario Merz
## 1
## Mario Sironi
## 2
## Mario Urteaga
## 1
## Mark Bradford
## 2
## Mark di Suvero
## 1
## Mark Grotjahn
## 3
## Mark Innerst
## 1
## Mark Lancaster
## 1
## Mark Rothko
## 10
## Mark Tansey
## 1
## Mark Tobey
## 1
## Markus Lüpertz
## 1
## Marlene Dumas
## 3
## Marlow Moss
## 2
## Marsden Hartley
## 2
## Martin Baer
## 1
## Martin Kippenberger
## 2
## Martin Wong
## 1
## Mary Heilmann
## 2
## Mary Weatherford
## 1
## Mateo Manaure
## 1
## Matt Connors
## 2
## Matthew Abbott
## 1
## Matthew Rackham Barnes
## 1
## Matthew Smith
## 1
## Maud Morgan
## 1
## Maurice de Vlaminck
## 1
## Maurice Grosser
## 1
## Maurice Prendergast
## 1
## Maurice Sievan
## 1
## Maurice Sterne
## 3
## Maurice Utrillo
## 1
## Max Beckmann
## 4
## Max Bill
## 1
## Max Ernst
## 9
## Max Oppenheimer (MOPP)
## 1
## Max Schnitzler
## 1
## Max Weber
## 3
## Mel Bochner
## 4
## Meret Oppenheim
## 1
## Mervin Jules
## 1
## Michael Gross
## 1
## Michael Krebber
## 4
## Michael Venezia
## 1
## Michael Williams
## 1
## Michaela Eichwald
## 1
## Michel Majerus
## 2
## Michel Parmentier
## 2
## Michelangelo Pistoletto
## 1
## Michelle Stuart
## 1
## Miguel Angel Rios
## 1
## Miguel Ocampo
## 1
## Mikhail Larionov
## 2
## Mikhail Matiushin
## 1
## Milton Avery
## 3
## Milton Resnick
## 2
## Mimmo Paladino
## 1
## Mira Schendel
## 3
## Mitchell Siporin
## 1
## Modest Cuixart
## 1
## Mohan B. Samant
## 1
## Mohsen Vaziri Moghaddam
## 1
## Mona Hatoum
## 1
## Mordecai Ardon
## 2
## Morgan Russell
## 4
## Morris Hirshfield
## 8
## Morris Kantor
## 1
## Morris Louis
## 3
## Moses Soyer
## 1
## Moshe Elazar Castel
## 1
## Mowry Thatcher Baden
## 1
## Myron Stout
## 1
## Nagwaraba
## 1
## Nam June Paik
## 2
## Nassos Daphnis
## 1
## Natalia Goncharova
## 2
## Nathan Oliveira
## 1
## Nedo Mion Ferrario
## 1
## Neil Jenney
## 5
## Neil Welliver
## 1
## Nicholas Africano
## 1
## Nicholas Krushenick
## 1
## Nicolas de Staël
## 1
## Nicole Eisenman
## 1
## Niele Toroni
## 2
## Niles Spencer
## 3
## Nina Tryggvadottir
## 1
## Norman Bluhm
## 1
## Norman Lewis
## 3
## Octave Landuyt
## 2
## Odilon Redon
## 25
## Olga Rozanova
## 1
## Oli Sihvonen
## 1
## Oliver Jackson
## 1
## Olle Baertling
## 1
## Omar Carreño
## 1
## On Kawara
## 32
## Onofrio A. Pacenza
## 1
## Oscar Domínguez
## 1
## Oskar Kokoschka
## 4
## Oskar Schlemmer
## 1
## Otto Dix
## 3
## Otto Freundlich
## 2
## Otto Mueller
## 1
## Otto Piene
## 1
## Öyvind Fahlström
## 1
## Pablo Picasso
## 55
## Pamela Bianco
## 1
## Park Seo Bo
## 1
## Pasquale (Patsy) Santo
## 1
## Pat Steir
## 3
## Patrick Henry Bruce
## 1
## Patrick J. Sullivan
## 2
## Patrick Scott
## 1
## Paul-Émile Borduas
## 1
## Paul (Pavel Mansurov) Mansouroff
## 1
## Paul Burlin
## 2
## Paul Cézanne
## 9
## Paul Delvaux
## 1
## Paul Feeley
## 1
## Paul Gauguin
## 3
## Paul Jenkins
## 1
## Paul Klee
## 14
## Paul Signac
## 2
## Paul van Hoeydonck
## 1
## Paula Modersohn-Becker
## 1
## Paulo Monteiro
## 1
## Pavel Tchelitchew
## 4
## Per Kirkeby
## 2
## Peter Blume
## 5
## Peter Dechar
## 1
## Peter Doig
## 3
## Peter Klasen
## 1
## Peter Purves-Smith
## 1
## Peter Saul
## 1
## Peter Young
## 2
## Philip Evergood
## 1
## Philip Guston
## 23
## Philip Pearlstein
## 3
## Philip Taaffe
## 1
## Philippe Hosiasson
## 1
## Philomé Obin
## 1
## Piero Dorazio
## 1
## Piero Manzoni
## 2
## Pierre Bonnard
## 5
## Pierre Clerk
## 1
## Pierre Roy
## 3
## Pierre Soulages
## 2
## Piet Mondrian
## 16
## Preston Dickinson
## 2
## R. B. Kitaj
## 2
## R. H. Quaytman
## 6
## Rackstraw Downes
## 2
## Rafael Moreno
## 1
## Ralph Goings
## 1
## Ralph Humphrey
## 2
## Raoul Dufy
## 2
## Raoul Ubac
## 1
## Raphael Soyer
## 1
## Raqib Shaw
## 1
## Raquel Forner
## 1
## Raúl Anguiano
## 1
## Raymond Parker
## 2
## Red Grooms
## 1
## Ree Morton
## 1
## Reena Spaulings
## 1
## Reginald Marsh
## 1
## Renato Cristiano
## 1
## Renato Guttuso
## 2
## René Brô
## 1
## René Magritte
## 7
## René Pierre Tal-Coat
## 2
## René Robert Bouché
## 1
## René Vincent
## 1
## Reuben Tam
## 1
## Reuven Rubin
## 1
## Richard Aldrich
## 3
## Richard Anuszkiewicz
## 2
## Richard Artschwager
## 7
## Richard Bosman
## 1
## Richard Diebenkorn
## 3
## Richard Estes
## 1
## Richard Eurich
## 1
## Richard Hamilton
## 3
## Richard Lindner
## 3
## Richard Lytle
## 1
## Richard Munsell
## 1
## Richard Oelze
## 1
## Richard Paul Lohse
## 1
## Richard Pettibone
## 13
## Richard Pousette-Dart
## 5
## Richard Prince
## 1
## Richard Smith
## 2
## Richard Tuttle
## 4
## Rico Lebrun
## 1
## Robert Barry
## 2
## Robert Beauchamp
## 1
## Robert Colescott
## 1
## Robert Colquhoun
## 1
## Robert Delaunay
## 2
## Robert Gober
## 1
## Robert Goodnough
## 2
## Robert Hansen
## 1
## Robert Huot
## 1
## Robert Indiana
## 1
## Robert Kabak
## 1
## Robert Kushner
## 1
## Robert Longo
## 1
## Robert MacBryde
## 1
## Robert Mangold
## 4
## Robert Morris
## 1
## Robert Moskowitz
## 2
## Robert Motherwell
## 9
## Robert Natkin
## 1
## Robert Rauschenberg
## 9
## Robert Richenburg
## 1
## Robert Ryman
## 9
## Roberto Berdecio
## 1
## Roberto Matta
## 6
## Roberto Montenegro
## 1
## Roberto Ossaye
## 1
## Robin Winters
## 1
## Robyn Denny
## 1
## Roderic O'Conor
## 1
## Roger Bissière
## 1
## Roger Brown
## 1
## Roger de La Fresnaye
## 1
## Roger van Rogger
## 1
## Roland Dorcély
## 1
## Rollin Crampton
## 2
## Romare Bearden
## 2
## Ron Davis
## 1
## Ron Gorchov
## 1
## Ron Kleemann
## 1
## Ronald Bladen
## 2
## Ronald Markman
## 1
## Ronnie Landfield
## 1
## Rosalyn Drexler
## 1
## Rosemarie Trockel
## 1
## Ross Bleckner
## 2
## Roy Adzak
## 1
## Roy Lichtenstein
## 9
## Rubén Núñez
## 2
## Rudolf Baranik
## 1
## Rufino Tamayo
## 4
## Ryan Sullivan
## 1
## Saburo Murakami
## 1
## Saliba Douaihy
## 1
## Sally Hazelet Drummond
## 1
## Salvador Dalí
## 4
## Salvatore Fiume
## 1
## Salvatore Scarpitta
## 1
## Sam Francis
## 3
## Sam Gilliam
## 2
## Sam Joseph Ntiro
## 1
## Sándor (Alexander) Bortnyik
## 1
## Sandra Blow
## 1
## Sandra Gamarra
## 1
## Sandro Chia
## 1
## Santiago Cárdenas
## 1
## Sarah Grilo
## 1
## Sarah Morris
## 1
## Sarai Sherman
## 1
## Satish Gujral
## 1
## Sean Scully
## 3
## Seiji Chokai
## 1
## Séraphine Louis
## 1
## Serge Poliakoff
## 1
## Sergej Jensen
## 3
## Seth Price
## 1
## Sherrie Levine
## 12
## Shirazeh Houshiary
## 1
## Shirley Jaffe
## 1
## Shuji Mukai
## 1
## Shusaku Arakawa
## 2
## Sidney Goodman
## 1
## Sidney Laufman
## 1
## Sidney Nolan
## 1
## Sigmar Polke
## 7
## Silke Otto-Knapp
## 1
## Simon Hantaï
## 1
## Sonia Delaunay-Terk
## 1
## Sophie Calle
## 1
## Sophie Taeuber-Arp
## 2
## Stanislao Lepri
## 1
## Stanley Spencer
## 1
## Stanley Twardowicz
## 1
## Stanton Macdonald-Wright
## 3
## Stefan Knapp
## 1
## Stefan Kürten
## 1
## Stephen Greene
## 1
## Stuart Davis
## 6
## Sue Coe
## 2
## Sue Williams
## 1
## Susan Rothenberg
## 8
## Suzanne Valadon
## 1
## Sylvia Plimack Mangold
## 1
## Sylvia Sleigh
## 1
## Tadasky (Tadasuke Kuwayama)
## 2
## Takashi Murakami
## 1
## Takeo Yamaguchi
## 2
## Takeshi Kawashima
## 1
## Tauba Auerbach
## 2
## Terry Winters
## 3
## Theo van Doesburg (Christian Emil Marie Küpper)
## 4
## Theodor Werner
## 1
## Theodore Lux Feininger
## 1
## Theodoros Stamos
## 4
## Theora Hamblett
## 1
## Thomas Chimes
## 4
## Thomas Hart Benton
## 1
## Thomas Mukarobgwa
## 1
## Thomas Nozkowski
## 3
## Thomas Scheibitz
## 1
## Thomas Sills
## 1
## Thomas Wilfred
## 3
## Tim Bavington
## 1
## Tim Rollins, K.O.S. (Kids of Survival), Angel Abreu, Jose Burges, Robert Delgado, George Garces, Richard Lulo, Nelson Montes, José Parissi, Carlos Rivera, Annette Rosado, Nelson Ricardo Savinon
## 1
## Tom Blackwell
## 1
## Tom Holland
## 1
## Tom Wesselmann
## 7
## Tomma Abts
## 1
## Toni Costa
## 1
## Tony Smith
## 1
## Ulysse Comtois
## 1
## Umberto Boccioni
## 7
## Varvara Stepanova
## 1
## Vasily Kandinsky
## 7
## Vasudeo S. Gaitonde
## 1
## Vern Blosum
## 1
## Victor Brauner
## 3
## Victor Pasmore
## 2
## Victor Servranckx
## 1
## Victor Vasarely
## 4
## Vija Celmins
## 4
## Vilmos Huszár
## 1
## Vincent Canadé
## 1
## Vincent van Gogh
## 3
## Virginia Admiral
## 1
## Vladimir Nikolaevich Nemukhin
## 1
## Wade Guyton
## 2
## Wallace Putnam
## 1
## Walt Kuhn
## 1
## Walter Darby Bannard
## 2
## Walter Dexel
## 1
## Walter Quirt
## 2
## Walter Richard Sickert
## 2
## Walter Stuempfig
## 1
## Walter William Barker
## 1
## Walter Zehringer
## 1
## Wayne Thiebaud
## 1
## Wilhelm Sasnal
## 1
## Will Barnet
## 1
## Will Insley
## 1
## Willem de Kooning
## 8
## Willi Baumeister
## 3
## William Bailey
## 1
## William Baziotes
## 2
## William Congdon
## 1
## William Copley
## 2
## William Doriani
## 1
## William Gropper
## 1
## William H. Johnson
## 1
## William Kurelek
## 1
## William Pettet
## 1
## William Ronald
## 1
## William T. Williams
## 1
## Willys de Castro
## 1
## Wilson Bigaud
## 1
## Wladyslaw Strzeminski
## 1
## Wojciech Fangor
## 1
## Wolfgang Paalen
## 1
## Wols (A. O. Wolfgang Schulze)
## 1
## Yasuo Kuniyoshi
## 1
## Yayoi Kusama
## 1
## Yinka Shonibare
## 1
## Yoko Ono
## 1
## Yves Klein
## 2
## Yves Tanguy
## 11
## Yvonne Jacquette
## 1
## Zbigniew Gostomski
## 1
## Zbigniew Makowski
## 1
## Zilia Sánchez
## 1
## Zvi Gali
## 1RESPOSTA
O artista com mais pinturas na coleção é o Pablo Picasso com total de 55 pinturas
#Quantas pinturas de artistas masculinos e femininos?
table(MOMA$artist_gender)##
## Female Male
## 252 1991RESPOSTA
Há 1991 pinturas de artista masculinos, 252 pinturas de artistas femininos, sendo que ao somarmos temos um total de 2.243 pinturas sendo que o total de pinturas são 2.253, então temos 10 obras não identificadas o genêro do artista
#Quantos artistas de cada gênero existem?
MOMA %>%
count(artist_gender, artist) %>%
count(artist_gender)## # A tibble: 3 × 2
## artist_gender n
## <chr> <int>
## 1 Female 143
## 2 Male 837
## 3 <NA> 9RESPOSTA
Existem 143 artista do genêro feminino e 837 do genêro masculino e 9 não identificados
Em que ano foram adquiridas mais pinturas?
MOMA %>%
count(year_acquired) %>%
arrange(-n)## # A tibble: 88 × 2
## year_acquired n
## <dbl> <int>
## 1 1985 86
## 2 1942 71
## 3 1979 71
## 4 1991 67
## 5 2005 67
## 6 1967 65
## 7 2008 55
## 8 1961 45
## 9 1969 45
## 10 1956 42
## # … with 78 more rowsRESPOSTA
1985 foi o ano que foi adquirido mais obras
#Em que ano foram Criada mais pinturas?
MOMA %>%
count(year_created) %>%
arrange(-n)## # A tibble: 139 × 2
## year_created n
## <dbl> <int>
## 1 1977 57
## 2 1940 56
## 3 1964 56
## 4 1961 50
## 5 1962 49
## 6 1963 44
## 7 1959 42
## 8 1968 40
## 9 1960 39
## 10 1914 37
## # … with 129 more rowsRESPOSTA
Em 1977, com 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?
MOMA %>% group_by(year_acquired) %>%
filter(year_acquired == min(year_acquired))%>%
filter(artist_gender=="Female") %>%
summarise(year_acquired,title,artist,year_created)## `summarise()` has grouped output by 'year_acquired'. You can override using the
## `.groups` argument.## # A tibble: 252 × 4
## # Groups: year_acquired [68]
## year_acquired title artist year_…¹
## <dbl> <chr> <chr> <dbl>
## 1 1937 Landscape, 47 Natalia Goncharova 1912
## 2 1938 Shack Loren MacIver 1934
## 3 1940 Hopscotch Loren MacIver 1940
## 4 1941 Shadows with Painting Irene Rice Pereira 1940
## 5 1941 Figure Varvara Stepanova 1921
## 6 1942 Still Life in Red Amelia Peláez Del Casal 1938
## 7 1942 White Lines Irene Rice Pereira 1942
## 8 1942 Musical Squash Maud Morgan 1942
## 9 1942 Desolation Raquel Forner 1942
## 10 1943 Self-Portrait with Cropped Hair Frida Kahlo 1940
## # … with 242 more rows, and abbreviated variable name ¹year_createdRESPOSTA
Foi em 1937, com a obra criada no ano de 1932, pela artista Natalia Goncharova, que foi entitulada de Landscape, 47.
#Qual o artista ficou mais tempo vivo?
MOMA$idade <- MOMA$artist_death_year - MOMA$artist_birth_year
summary(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(MOMA$idade=="102")##
## FALSE TRUE
## 1623 1MOMA %>%
filter(MOMA$idade=="102") %>%
pull(artist) %>%
first()## [1] "Dorothea Tanning"RESPOSTA
Foi Dorothea Tanning, com 102 anos
#Qual a idade média de um artista?
MOMA %>% summarise(media_idade=mean(idade,na.rm=TRUE))## # A tibble: 1 × 1
## media_idade
## <dbl>
## 1 74.7RESPOSTA
A idade média é 75 anos
#Artistas homens vivem mais do que as mulheres?
MOMA %>% group_by(artist_gender) %>% summarise(media_idade=mean(idade,na.rm=TRUE))## # A tibble: 3 × 2
## artist_gender media_idade
## <chr> <dbl>
## 1 Female 74.0
## 2 Male 74.7
## 3 <NA> 72RESPOSTA
Sim, eles apresentam 0,7 anos a mais que as mulheres
#Gráfico
moma_dim <- MOMA %>%
filter(height_cm < 600, width_cm < 760) %>%
mutate(hw_ratio = height_cm / width_cm,
hw_cat = case_when(
hw_ratio > 1 ~ "mais alto que largo",
hw_ratio < 1 ~ "mais largo que alto",
hw_ratio == 1 ~ "quadrado perfeito"
))
library(ggthemes)
ggplot(moma_dim, aes(x = width_cm, y = height_cm, colour = hw_cat)) +
geom_point(alpha = .5) +
ggtitle("Pinturas do MoMA, altas e largas") +
scale_colour_manual(name = "",
values = c("gray50", "#FF9900", "#B14CF0")) +
theme_fivethirtyeight() +
theme(axis.title = element_text()) +
labs(x = "Largura", y = "Altura") 