Atividade do MoMA

1. Objetivos pedagógicos dessas atividades

Revisar os conceitos de análise bi-variada aprendidas na última aula.

Praticar a utilização de base de dados para extrair informações e conhecer melhor os dados.

Gerar gráficos para variáveis (no ggplot2).

2. Inspiração + dados

Usaremos o banco de dados do Museu de Arte Moderna (MoMA).

Disponível publicamente no GitHub.

Foi analisado por fivethirtyeight.com, Alison Hill e por outros.

3. Pacotes necessários

Vamos usar quatro pacotes do R: readr,dplyr, ggplot2, e ggthemes.

library(dplyr)

library(ggplot2)

4. Carregar os dados

Esses não são os dados originais. A Alison Hill fez um pré-processamento e limpeza de dados. O banco abaixo contém apenas pinturas e desenhos da coleção MoMA.

Use este pedaço de código para ler o banco de dados disponível em https://github.com/DATAUNIRIO/Base_de_dados

library(readr)

Banco_Moma <- read_delim("https://raw.githubusercontent.com/DATAUNIRIO/Base_de_dados/master/arte_MOMA.csv", delim = ";")

O banco de dados se chama arte_MOMA.csv e está armazenado no repositório de bases de dados do curso de estatística. Você pode usar esse código se quiser ler o arquivo CSV local.

library(readr)

Banco_Moma <- read_delim(“SEU DIRETÓRIO ATÉ O ARQUIVO/arte_MOMA.csv”, delim = “;”)

5. Conheça os seus dados

Tente responder a todas essas perguntas. (opcional: tente responder todas perguntas usando somente o pacote dplyr).

Atividade 1. Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?

Resposta:

dim(Banco_Moma)

[1] 2253   24

Existem no MoMA 2.253 pinturas e 24 variáveis.

Atividade 2. Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?

Resposta:

library(flextable)

Banco_Moma %>% filter(year_acquired == min(year_acquired, na.rm = TRUE)) %>%
  group_by(year_acquired) %>% summarise(year_acquired,artist,title) %>% flextable()

year_acquired	artist	title
1,930	Edward Hopper	House by the Railroad
1,930	Bernard Karfiol	Seated Nude

No ano de 1.930 foram adquiridas as duas primeiras pinturas pelo MoMA: House by the Railroad e Seated Nude, dos artistas Edward Hopper e Bernard Karfiol, respectivamente.

Atividade 3. Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?

Resposta:

Banco_Moma %>% filter(year_created == min(year_created, na.rm = TRUE)) %>% 
  group_by(year_created)  %>% summarise(year_created,artist,title) %>% flextable()

year_created	artist	title
1,872	Odilon Redon	Landscape at Daybreak

A pintura mais antiga da coleção do MoMA, intitulada Landscape at Daybreak, foi criada por Odilon Redon em 1.872.

6. Análises descritivas dos dados

Atividade 4. Quantos artistas distintos existem?

Resposta:

Banco_Moma$artist<-as.factor(Banco_Moma$artist)

str(Banco_Moma$artist)

 Factor w/ 989 levels "\xc9douard Vuillard",..: 455 728 728 712 97 280 134 752 723 245 ...

Existem 989 artistas distintos no banco de dados do MoMA.

Atividade 5. Qual artista tem mais pinturas na coleção?

Resposta:

summary (Banco_Moma$artist)

                       Pablo Picasso                        Henri Matisse 
                                  55                                   32 
                           On Kawara                       Jacob Lawrence 
                                  32                                   30 
                    Batiste Madalena                        Jean Dubuffet 
                                  25                                   25 
                        Odilon Redon                          Ben Vautier 
                                  25                                   24 
                        Frank Stella                        Philip Guston 
                                  23                                   23 
                        Joan Mir<f3>                      Jackson Pollock 
                                  19                                   18 
                     Gerhard Richter                        Piet Mondrian 
                                  17                                   16 
                         Andy Warhol                     Fernand L<e9>ger 
                                  15                                   15 
                  Giorgio de Chirico                            Paul Klee 
                                  14                                   14 
                   Richard Pettibone                      Ellsworth Kelly 
                                  13                                   12 
                        Jasper Johns                       Sherrie Levine 
                                  12                                   12 
                         Yves Tanguy                         Ad Reinhardt 
                                  11                                   10 
                     Andr<e9> Derain                          Mark Rothko 
                                  10                                   10 
                     Adolph Gottlieb                         Agnes Martin 
                                   9                                    9 
                     Andr<e9> Masson                      Francis Picabia 
                                   9                                    9 
                      Georges Braque                            Max Ernst 
                                   9                                    9 
                     Paul C<e9>zanne                    Robert Motherwell 
                                   9                                    9 
                 Robert Rauschenberg                         Robert Ryman 
                                   9                                    9 
                    Roy Lichtenstein                        Arshile Gorky 
                                   9                                    8 
                    Elizabeth Murray             L<e1>szl<f3> Moholy-Nagy 
                                   8                                    8 
                      Marcel Duchamp                    Morris Hirshfield 
                                   8                                    8 
                    Susan Rothenberg                    Willem de Kooning 
                                   8                                    8 
                             Al Held                            Alex Katz 
                                   7                                    7 
                      Barnett Newman                         Brice Marden 
                                   7                                    7 
                       Edward Ruscha          Joaqu<ed>n Torres-Garc<ed>a 
                                   7                                    7 
                        Josef Albers                     Kazimir Malevich 
                                   7                                    7 
                  Marcel Broodthaers                     Ren<e9> Magritte 
                                   7                                    7 
                 Richard Artschwager                         Sigmar Polke 
                                   7                                    7 
                      Tom Wesselmann                     Umberto Boccioni 
                                   7                                    7 
                    Vasily Kandinsky                        Alfred Jensen 
                                   7                                    6 
                          Cy Twombly               David Alfaro Siqueiros 
                                   6                                    6 
                        Jake Berthot                        Joan Mitchell 
                                   6                                    6 
                         John Walker                           Josh Smith 
                                   6                                    6 
                           Juan Gris                        Loren MacIver 
                                   6                                    6 
                      R. H. Quaytman                        Roberto Matta 
                                   6                                    6 
                        Stuart Davis                   Alberto Giacometti 
                                   6                                    5 
                       Anselm Kiefer                          Chuck Close 
                                   5                                    5 
                        Claude Monet                        Eugene Berman 
                                   5                                    5 
                       Francis Bacon                      Frantisek Kupka 
                                   5                                    5 
                         Franz Kline                         Hans Hofmann 
                                   5                                    5 
                 Helen Frankenthaler                       Jacques Villon 
                                   5                                    5 
                    James Rosenquist                             Jim Dine 
                                   5                                    5 
                           John Kane                         Larry Rivers 
                                   5                                    5 
                         Luc Tuymans                     Lyonel Feininger 
                                   5                                    5 
                         Neil Jenney                          Peter Blume 
                                   5                                    5 
                      Pierre Bonnard                Richard Pousette-Dart 
                                   5                                    5 
                 <c9>douard Vuillard                       Auguste Herbin 
                                   4                                    4 
Balthus (Baltusz Klossowski de Rola)                        Ben Nicholson 
                                   4                                    4 
               Bradley Walker Tomlin                        Chaim Soutine 
                                   4                                    4 
                        Daniel Buren                              (Other) 
                                   4                                 1276

O artista que tem mais pinturas na coleção é Pablo Picasso.

Atividade 6. Quantas pinturas existem por este artista?

Resposta:

summary (Banco_Moma$artist)

                       Pablo Picasso                        Henri Matisse 
                                  55                                   32 
                           On Kawara                       Jacob Lawrence 
                                  32                                   30 
                    Batiste Madalena                        Jean Dubuffet 
                                  25                                   25 
                        Odilon Redon                          Ben Vautier 
                                  25                                   24 
                        Frank Stella                        Philip Guston 
                                  23                                   23 
                        Joan Mir<f3>                      Jackson Pollock 
                                  19                                   18 
                     Gerhard Richter                        Piet Mondrian 
                                  17                                   16 
                         Andy Warhol                     Fernand L<e9>ger 
                                  15                                   15 
                  Giorgio de Chirico                            Paul Klee 
                                  14                                   14 
                   Richard Pettibone                      Ellsworth Kelly 
                                  13                                   12 
                        Jasper Johns                       Sherrie Levine 
                                  12                                   12 
                         Yves Tanguy                         Ad Reinhardt 
                                  11                                   10 
                     Andr<e9> Derain                          Mark Rothko 
                                  10                                   10 
                     Adolph Gottlieb                         Agnes Martin 
                                   9                                    9 
                     Andr<e9> Masson                      Francis Picabia 
                                   9                                    9 
                      Georges Braque                            Max Ernst 
                                   9                                    9 
                     Paul C<e9>zanne                    Robert Motherwell 
                                   9                                    9 
                 Robert Rauschenberg                         Robert Ryman 
                                   9                                    9 
                    Roy Lichtenstein                        Arshile Gorky 
                                   9                                    8 
                    Elizabeth Murray             L<e1>szl<f3> Moholy-Nagy 
                                   8                                    8 
                      Marcel Duchamp                    Morris Hirshfield 
                                   8                                    8 
                    Susan Rothenberg                    Willem de Kooning 
                                   8                                    8 
                             Al Held                            Alex Katz 
                                   7                                    7 
                      Barnett Newman                         Brice Marden 
                                   7                                    7 
                       Edward Ruscha          Joaqu<ed>n Torres-Garc<ed>a 
                                   7                                    7 
                        Josef Albers                     Kazimir Malevich 
                                   7                                    7 
                  Marcel Broodthaers                     Ren<e9> Magritte 
                                   7                                    7 
                 Richard Artschwager                         Sigmar Polke 
                                   7                                    7 
                      Tom Wesselmann                     Umberto Boccioni 
                                   7                                    7 
                    Vasily Kandinsky                        Alfred Jensen 
                                   7                                    6 
                          Cy Twombly               David Alfaro Siqueiros 
                                   6                                    6 
                        Jake Berthot                        Joan Mitchell 
                                   6                                    6 
                         John Walker                           Josh Smith 
                                   6                                    6 
                           Juan Gris                        Loren MacIver 
                                   6                                    6 
                      R. H. Quaytman                        Roberto Matta 
                                   6                                    6 
                        Stuart Davis                   Alberto Giacometti 
                                   6                                    5 
                       Anselm Kiefer                          Chuck Close 
                                   5                                    5 
                        Claude Monet                        Eugene Berman 
                                   5                                    5 
                       Francis Bacon                      Frantisek Kupka 
                                   5                                    5 
                         Franz Kline                         Hans Hofmann 
                                   5                                    5 
                 Helen Frankenthaler                       Jacques Villon 
                                   5                                    5 
                    James Rosenquist                             Jim Dine 
                                   5                                    5 
                           John Kane                         Larry Rivers 
                                   5                                    5 
                         Luc Tuymans                     Lyonel Feininger 
                                   5                                    5 
                         Neil Jenney                          Peter Blume 
                                   5                                    5 
                      Pierre Bonnard                Richard Pousette-Dart 
                                   5                                    5 
                 <c9>douard Vuillard                       Auguste Herbin 
                                   4                                    4 
Balthus (Baltusz Klossowski de Rola)                        Ben Nicholson 
                                   4                                    4 
               Bradley Walker Tomlin                        Chaim Soutine 
                                   4                                    4 
                        Daniel Buren                              (Other) 
                                   4                                 1276

Existem 55 pinturas de Pablo Picasso na coleção do MoMA.

Atividade 7. Quantas pinturas de artistas masculinos e femininos?

Resposta:

Banco_Moma$artist_gender<-as.factor(Banco_Moma$artist_gender)

summary(Banco_Moma$artist_gender)

Female   Male   NA's 
   252   1991     10

Das 2.253 pinturas da coleção, 1.991 têm criadores do gênero masculino, 252 têm criadoras do gênero feminino e 10 têm criadores não informados.

7. Se você quiser mais:

Atividade 8. Quantos artistas de cada gênero existem?

Resposta:

Banco_Moma %>% count(artist_gender, artist) %>% count(artist_gender)

# A tibble: 3 x 2
  artist_gender     n
  <fct>         <int>
1 Female          143
2 Male            837
3 <NA>              9

Existem, nesse banco de dados do MoMA, 837 artistas do gênero masculino, 143 artistas do gênero feminino e 9 artistas cujo gênero não foi informado.

Atividade 9. Em que ano foram adquiridas mais pinturas?

Resposta:

Banco_Moma %>% 
  count(year_acquired) %>% 
  arrange(-n)

# A tibble: 88 x 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 rows

Em 1985 o maior número de pinturas foi adquirido (86 pinturas).

Atividade 10. Em que ano foram Criada mais pinturas?

Resposta:

Banco_Moma %>% 
  count(year_created) %>% 
  arrange(-n)

# A tibble: 139 x 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 rows

Em 1977 o maior número de pinturas foi criado (57 pinturas).

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?

Resposta:

Banco_Moma %>% group_by(year_acquired) %>% 
  filter(year_acquired == min(year_acquired))%>% 
  filter(artist_gender=="Female") %>% 
  summarise(year_acquired,year_created,artist,title) %>%
  flextable()

year_acquired	year_created	artist	title
1,937	1,912	Natalia Goncharova	Landscape, 47
1,938	1,934	Loren MacIver	Shack
1,940	1,940	Loren MacIver	Hopscotch
1,941	1,940	Irene Rice Pereira	Shadows with Painting
1,941	1,921	Varvara Stepanova	Figure
1,942	1,938	Amelia Pel攼㸱ez Del Casal	Still Life in Red
1,942	1,942	Irene Rice Pereira	White Lines
1,942	1,942	Maud Morgan	Musical Squash
1,942	1,942	Raquel Forner	Desolation
1,943	1,940	Frida Kahlo	Self-Portrait with Cropped Hair
1,944	1,943	Honor攼㸹 Sharrer	Workers and Paintings
1,944	1,942	Virginia Admiral	Composition
1,944	1,943	Amelia Pel攼㸱ez Del Casal	Fishes
1,945	1,943	Loren MacIver	Red Votive Lights
1,945	1,929	Georgia O'Keeffe	Farmhouse Window and Door
1,947	1,946	Fannie Hillsmith	Liquor Store Window
1,949	1,918	Katherine S. Dreier	Abstract Portrait of Marcel Duchamp
1,950	1,948	Elsa Schmid	Father D'Arcy
1,951	1,948	Jeanne Reynal	A Good Circular God
1,953	1,952	Grace Hartigan	The Persian Jacket
1,954	1,953	Grace Hartigan	River Bathers
1,954	1,938	Maria Helena Vieira da Silva	Dance
1,954	1,953	Clara McDonald Williamson	The Day the Bosque Froze Over
1,954	1,954	Hedda Sterne	New York, VIII
1,955	1,951	Ida E. Fischer	Florida Bark
1,955	1,954	Theora Hamblett	The Vision
1,955	1,915	Sonia Delaunay-Terk	Portuguese Market
1,955	1,954	Kay Sage	Hyphen
1,956	1,933	Florine Stettheimer	Family Portrait, II
1,956	1,955	Helen Frankenthaler	Trojan Gates
1,956	1,956	Sandra Blow	Winter
1,958	1,917	Lyubov Popova	Painterly Architectonic
1,958	1,909	Gwen John	Girl with Bare Shoulders
1,960	1,957	Grace Hartigan	Shinnecock Canal
1,960	1,959	Sarai Sherman	Bear Cat
1,960	1,959	Joan Brown	Thanksgiving Turkey
1,960	1,957	Helen Frankenthaler	Jacob's Ladder
1,960	1,960	Jane Wilson	The Open Scene
1,961	1,945	Eugenie Baizerman	Actress Dressing
1,961	1,957	Pamela Bianco	Pomegranate
1,961	1,957	Joan Mitchell	Ladybug
1,961	1,960	Nina Tryggvadottir	Painting
1,962	1,961	Sally Hazelet Drummond	Hummingbird
1,963	1,915	Gwen John	Girl with a Blue Scarf
1,964	1,964	Kirsten Kraa	Untitled
1,964	1,956	Elizabeth Sparhawk-Jones	Startled Woman
1,964	1,964	Bridget Riley	Current
1,964	1,922	Suzanne Valadon	Portrait of Mme Zamaron
1,965	1,964	Agnes Martin	The Tree
1,965	1,964	Eleanore Mikus	Tablet Number 84
1,965	1,950	Maria Helena Vieira da Silva	The City
1,965	1,964	Atsuko Tanaka	Untitled
1,966	1,966	Marina Stern	Seven Minus Twenty-One Equals Seven
1,968	1,945	Janet Sobel	Milky Way
1,968	1,944	Loren MacIver	Jimmy Savo's Shoes
1,968	1,966	Helen Frankenthaler	Mauve District
1,969	1,951	Lee Krasner	Number 3 (Untitled)
1,969	1,964	Jo Baer	Primary Light Group: Red, Green, Blue
1,969	1,949	Lee Krasner	Untitled
1,969	1,962	Bridget Riley	Fission
1,969	1,933	Sophie Taeuber-Arp	Schematic Composition
1,970	1,928	S攼㸹raphine Louis	Tree of Paradise
1,970	1,964	Agnes Martin	Red Bird
1,970	1,969	Helen Frankenthaler	Commune
1,971	1,970	Dorothea Rockburne	A, C And D From Group/And
1,971	1,911	Gwen John	Girl Reading at a Window
1,971	1,925	Florine Stettheimer	Portrait of My Mother
1,974	1,974	Dorothea Rockburne	Golden Section Painting: Square Separated by Parallelogram
1,975	1,974	Audrey Flack	Leonardo's Lady
1,976	1,936	Frida Kahlo	My Grandparents, My Parents, and I (Family Tree)
1,976	1,975	Agnes Martin	Untitled Number 5
1,977	1,976	Susan Rothenberg	Axes
1,977	1,966	Lee Krasner	Gaea
1,979	1,927	Georgia O'Keeffe	Abstraction Blue
1,979	1,978	Joan Snyder	Sweet Cathy's Song (For Cathy Elzea)
1,979	1,978	Pat Steir	Beautiful Painting with Color
1,979	1,945	Loren MacIver	Tree
1,979	1,948	Loren MacIver	Skylight
1,979	1,977	Joanna Pousette-Dart	"For Greg"
1,979	1,958	Kay Sage	Watching the Clock
1,980	1,979	Lois Lane	Untitled
1,981	1,960	Alice Baber	The Turning Door
1,982	1,981	Katherine Porter	I am an American... Uneasy Dreams
1,982	1,981	Agnes Martin	Untitled No. 1
1,983	1,968	Jo Baer	Double-Bar, Grey (Green Line)
1,983	1,982	Barbara Kruger	Untitled (You Invest in the Divinity of the Masterpiece)
1,983	1,981	Elizabeth Murray	Painters Progress
1,983	1,981	Joan Witek	Memories of Underdevelopment
1,983	1,922	Alexandra Exter	Construction
1,983	1,973	Edda Renouf	This I
1,984	1,981	Michelle Stuart	Nazca Lines Star Chart and Nazca Lines Southern Hemisphere Constellation Chart Correlation
1,984	1,963	Agnes Martin	Friendship
1,984	1,974	Pat Steir	Nabaye Tabastan for L.T. & R.
1,985	1,913	Natalia Goncharova	Rayonism, Blue-Green Forest
1,985	1,935	Gertrude Greene	Construction
1,985	1,940	Marlow Moss	White with Rope
1,985	1,949	Marlow Moss	Composition in Black and White Number 4
1,985	1,914	Lyubov Popova	Subject from a Dyer's Shop
1,985	1,913	Olga Rozanova	The Factory and the Bridge
1,985	1,930	Sophie Taeuber-Arp	Composition of Circles and Overlapping Angles
1,985	1,959	Charmion von Wiegand	Sanctuary of the Four Directions
1,985	1,973	Edda Renouf	On III
1,986	1,985	Susan Rothenberg	Biker
1,986	1,985	Yvonne Jacquette	Shinjuku Pleasure District, Tokyo II
1,987	1,946	Janet Sobel	Untitled
1,987	1,987	Shirley Jaffe	Hop and Skip
1,987	1,937	Frida Kahlo	Fulang-Chang and I
1,987	1,987	Annette Lemieux	Keeper
1,988	1,972	Alice Neel	Benny and Mary Ellen Andrews
1,988	1,935	Alice Neel	Kenneth Fearing
1,988	1,974	Ree Morton	Of Previous Dissipations
1,989	1,989	Ida Applebroog	Chronic Hollow
1,990	1,989	Elizabeth Murray	Dis Pair
1,990	1,989	Agnes Martin	Untitled #6
1,990	1,990	Joan Mitchell	Taillade
1,991	1,936	Meret Oppenheim	Red Head, Blue Body
1,991	1,960	Eva Hesse	Untitled
1,991	1,960	Eva Hesse	Untitled
1,991	1,912	Alexandra Exter	Cubist Nude
1,991	1,925	Alexandra Exter	Theatrical Composition
1,992	1,991	Sophie Calle	GHOSTS. Composed of GHOST (de Chirico: The Enigma of the Day), GHOST (Hopper: House by the Railroad), GHOST (Magritte: The Menaced Assasin)
1,992	1,966	Agnes Martin	Mountain I
1,992	1,971	Dorothea Rockburne	Scalar
1,994	1,982	Elizabeth Murray	Beam
1,994	1,977	Elizabeth Murray	Remover
1,994	1,994	Karin Sander	Wallpiece 24 x 18"
1,994	1,961	Joan Mitchell	Grandes Carri攼㸸res
1,994	1,976	Joan Mitchell	No Rain
1,994	1,964	Joan Mitchell	Untitled
1,994	1,980	Joan Mitchell	Wood, Wind, No Tuba
1,994	1,977	Georgia O'Keeffe	From a Day with Juan II
1,994	1,971	Helen Frankenthaler	Chairman of the Board
1,995	1,919	Georgia O'Keeffe	Lake George, Coat and Red
1,996	1,957	Agnes Martin	Harbor Number 1
1,996	1,983	Sue Coe	Woman Walks into Bar - Is Raped by Four Men on the Pool Table - While 20 Watch
1,997	1,981	Hedda Sterne	Signs III
1,997	1,982	Elizabeth Murray	Yikes
1,997	1,995	Ellen Gallagher	Oh! Susanna
1,997	1,997	Sue Williams	Mom's Foot Blue and Orange
1,997	1,959	Yayoi Kusama	No. F
1,998	1,997	Agnes Martin	With My Back to the World
2,000	1,995	Elizabeth Peyton	Jake at the New Viet Huong
2,001	2,001	Ellen Gallagher	They Could Still Serve
2,001	2,000	Shirazeh Houshiary	Presence
2,002	1,974	Christina Ramberg	Wired
2,002	1,992	Vija Celmins	Night Sky #5
2,002	1,976	Elizabeth Murray	Southern California
2,002	1,988	Susan Rothenberg	1, 2, 3, 4, 5, 6
2,002	1,991	Susan Rothenberg	Dogs Killing Rabbit
2,002	1,996	Beatriz Milhazes	Succulent Eggplants
2,002	2,001	Ellen Phelan	Light in Far Field
2,004	1,963	Lee Lozano	Untitled
2,004	1,987	Sherrie Levine	Large Check: 1
2,004	1,987	Sherrie Levine	Large Check: 2
2,004	1,987	Sherrie Levine	Large Check: 3
2,004	1,987	Sherrie Levine	Large Check: 4
2,004	1,987	Sherrie Levine	Large Check: 5
2,004	1,987	Sherrie Levine	Large Check: 6
2,004	1,987	Sherrie Levine	Large Check: 7
2,004	1,987	Sherrie Levine	Large Check: 8
2,004	1,987	Sherrie Levine	Large Check: 9
2,004	1,987	Sherrie Levine	Large Check: 10
2,004	1,987	Sherrie Levine	Large Check: 11
2,004	1,987	Sherrie Levine	Large Check: 12
2,004	1,997	Elizabeth Peyton	Craig
2,004	2,003	Julie Mehretu	Empirical Construction, Istanbul
2,004	1,996	Lisa Yuskavage	Wrist Corsage
2,005	1,983	Elizabeth Murray	More than You Know
2,005	1,983	Bridget Riley	Blue About
2,005	2,005	Sarah Morris	Creative Artists Agency (Los Angeles)
2,005	1,965	Eva Hesse	Ringaround Arosie
2,005	2,005	Dana Schutz	Presentation
2,005	1,975	Jennifer Bartlett	Rhapsody
2,005	1,964	Vija Celmins	Gun with Hand #1
2,005	1,966	Vija Celmins	Flying Fortress
2,005	2,000	Vija Celmins	Web #3
2,005	1,984	Sue Coe	Breaking
2,005	1,974	Susan Rothenberg	Triphammer Bridge
2,005	1,976	Susan Rothenberg	Black in Place
2,005	1,978	Susan Rothenberg	Smoker
2,005	1,952	Carmen Herrera	Untitled
2,005	1,994	Marlene Dumas	The Painter
2,006	2,005	Elizabeth Murray	Do the Dance
2,006	1,963	Mira Schendel	Untitled
2,006	2,005	Marlene Dumas	Jen
2,007	2,006	Reena Spaulings	The Bricks
2,007	2,006	Amy Sillman	Psychology Today
2,007	2,002	Lucy McKenzie	Untitled
2,007	2,002	Lucy McKenzie	Untitled
2,008	1,987	Rosemarie Trockel	Untitled
2,008	1,957	Lygia Clark	Planes in Modulated Surface 4
2,008	2,008	Sandra Gamarra	Pilgrim
2,008	1,958	Judit Reigl	Guano-Round
2,008	1,961	Yoko Ono	Painting To Be Stepped On
2,009	1,967	Beatriz Gonz攼㸱lez	Rionegro, Santander
2,009	2,008	R. H. Quaytman	iamb (blind smile): Chapter 12
2,009	2,001	R. H. Quaytman	The Sun: Chapter 1
2,009	2,008	R. H. Quaytman	iamb (The Limbo of Vanity): Chapter 12
2,009	2,008	R. H. Quaytman	iamb (lateral inhibitions in the perceptual field): Chapter 12
2,009	2,009	R. H. Quaytman	iamb (lateral inhibitions in the perceptual field): Chapter 12
2,009	2,004	R. H. Quaytman	Optima: Chapter 3
2,009	2,008	Susan Rothenberg	Green Bar
2,009	2,008	Jacqueline Humphries	Beat the Devil
2,010	1,948	Dorothea Tanning	On Time Off Time
2,010	2,009	Marlene Dumas	Wall Wailing
2,010	2,010	Jutta Koether	Bitches Brew
2,010	2,008	Charline von Heyl	Igitur
2,010	1,974	Jennifer Bartlett	Drawing and Painting
2,011	1,951	Lidy Prati	Vibrational Structure from a Circle, Series B
2,011	2,009	Pat Steir	Winter Group 3: Red, Green, Blue, and Gold
2,011	1,993	Mona Hatoum	Keffieh
2,011	2,011	Kerstin Br攼㸴tsch	Blocked Radiant (for Ioana)
2,012	2,011	Tomma Abts	Uphe
2,012	1,975	Sylvia Plimack Mangold	36 by 36
2,012	2,012	Tauba Auerbach	Untitled
2,013	2,012	Mary Weatherford	Coney Island II
2,013	1,976	Betye Saar	"Keep for Old Memiors"
2,013	1,991	Betye Saar	The Invitation
2,013	1,980	Geta Bratescu	Medea's Hypostases II
2,013	1,980	Geta Bratescu	Medea's Hypostases III
2,013	1,980	Geta Bratescu	Medea's Hypostases IV
2,013	2,013	Laura Owens	Untitled
2,014	1,992	Isa Genzken	MLR
2,014	1,998	Maria Lassnig	Sciencia
2,014	1,980	Howardena Pindell	Memory: Past
2,014	1,976	Denise Green	Trap #1
2,014	2,013	Lynette Yiadom-Boakye	To the Last
2,014	2,013	Lynette Yiadom-Boakye	Where It Had Been
2,014	2,014	Lynette Yiadom-Boakye	The Myriad Motives of Men
2,015	1,963	Lee Bontecou	Untitled
2,015	2,014	Nicole Eisenman	Beach Runner (Clara)
2,015	2,014	Julie Mehretu	Invisible Sun (algorithm 5, second letter form)
2,015	1,973	Alma Woodsey Thomas	Fiery Sunset
2,015	1,965	Etel Adnan	Untitled
2,015	1,976	Mary Heilmann	Little Three for Two: Red, Yellow, Blue
2,015	1,979	Mary Heilmann	Tehachapi II
2,016	1,953	Mira Schendel	Still Life
2,016	1,965	Sarah Grilo	Add
2,016	2,015	Michaela Eichwald	Duns Scotus
2,016	1,967	Faith Ringgold	American People Series #20: Die
2,016	1,960	Mira Schendel	Untitled, from the series Refrigerators (Geladeiras)
2,016	1,965	Antonieta Sosa	Visual Chess
2,016	2,006	Jenny Holzer	THE CHAIRMAN, JOINT CHIEFS OF STAFF WHITE
2,017	1,970	Zilia S攼㸱nchez	Antigone
2,017	1,907	Paula Modersohn-Becker	Self-Portrait with Two Flowers in Her Raised Left Hand
2,017	1,969	Sylvia Sleigh	David Bourdon
2,017	2,015	Tauba Auerbach	Bitmap Gradient Ray III
2,017	1,966	Rosalyn Drexler	Hold your Fire (Men and Machines)
2,017	2,017	Silke Otto-Knapp	Tableau (preparing)
2,017	1,976	Joan Brown	The Bicentennial Champion
2,017	1,978	Joan Semmel	Night Light
2,017	2,010	Lynette Yiadom-Boakye	Skylark

A primeira obra adquirida (1937) de uma artista feminina, Landscape,47, foi criada em 1.912 por Natalia Goncharova.

8. Mais um desafio:

Atividade 12. Qual o artista ficou mais tempo vivo?

Resposta:

Banco_Moma$anos_de_vida <- Banco_Moma$artist_death_year - Banco_Moma$artist_birth_year

Banco_Moma %>% group_by(anos_de_vida) %>% 
  filter(anos_de_vida == min(anos_de_vida))%>% 
  summarise(artist,anos_de_vida) %>%
  flextable()

anos_de_vida	artist
27	August Macke
27	Roberto Ossaye
28	Egon Schiele
29	Bob Thompson
30	Piero Manzoni
30	Piero Manzoni
31	Paula Modersohn-Becker
32	Georges-Pierre Seurat
32	Georges-Pierre Seurat
32	Georges-Pierre Seurat
32	Georges-Pierre Seurat
32	Olga Rozanova
34	Blinky Palermo
34	Umberto Boccioni
34	Umberto Boccioni
34	Umberto Boccioni
34	Eva Hesse
34	Eva Hesse
34	Umberto Boccioni
34	Blinky Palermo
34	Umberto Boccioni
34	Umberto Boccioni
34	Yves Klein
34	Umberto Boccioni
34	Yves Klein
34	Eva Hesse
34	Blinky Palermo
35	Lyubov Popova
35	Lyubov Popova
35	Michel Majerus
35	Michel Majerus
36	Amedeo Modigliani
36	Jan M昼㹣ller
36	Amedeo Modigliani
36	Franz Marc
36	Peter Purves-Smith
36	Ad Dekkers
37	Zvi Gali
37	Vincent van Gogh
37	Vincent van Gogh
37	Vincent van Gogh
38	Wols (A. O. Wolfgang Schulze)
38	David Wojnarowicz
38	David Wojnarowicz
39	Felix Gonzalez-Torres
40	Juan Gris
40	Juan Gris
40	Juan Gris
40	Roger de La Fresnaye
40	Juan Gris
40	Juan Gris
40	Juan Gris
41	Preston Dickinson
41	Nicolas de Sta攼㹢l
41	Preston Dickinson
41	Ree Morton
42	Julio Castellanos
43	Gastone Novelli
43	H攼㸹lio Oiticica
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Arshile Gorky
44	Attilio Salemme
44	Jackson Pollock
44	Attilio Salemme
44	Attilio Salemme
44	Arshile Gorky
44	Arshile Gorky
44	Jackson Pollock
44	Martin Kippenberger
44	Arshile Gorky
44	Jackson Pollock
44	Arshile Gorky
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Jackson Pollock
44	Arshile Gorky
44	Arshile Gorky
44	Jackson Pollock
44	Arshile Gorky
44	Jackson Pollock
44	Jackson Pollock
44	Martin Kippenberger
45	Jules Pascin
46	Manolo Millares
47	Frida Kahlo
47	Christian B攼㸹rard
47	Christian B攼㸹rard
47	Frida Kahlo
47	Christian B攼㸹rard
47	Howard Mehring
47	Frida Kahlo
47	Joseph Ndandarika
47	George Maciunas
48	Theo van Doesburg (Christian Emil Marie K昼㹣pper)
48	Theo van Doesburg (Christian Emil Marie K昼㹣pper)
48	Robert Colquhoun
48	Theo van Doesburg (Christian Emil Marie K昼㹣pper)
48	搼㸶yvind Fahlstr昼㸶m
48	Theo van Doesburg (Christian Emil Marie K昼㹣pper)
49	Christina Ramberg
50	Morris Louis
50	Chaim Soutine
50	Eugenie Baizerman
50	Gandy Brodie
50	Morris Louis
50	Chaim Soutine
50	William Kurelek
50	Morris Louis
50	Chaim Soutine
50	John Day
50	Albert Urban
50	Chaim Soutine
51	L攼㸱szl昼㸳 Moholy-Nagy
51	L攼㸱szl昼㸳 Moholy-Nagy
51	L攼㸱szl昼㸳 Moholy-Nagy
51	El Lissitzky
51	Oscar Dom攼㹤nguez
51	William Baziotes
51	Gino De Dominicis
51	L攼㸱szl昼㸳 Moholy-Nagy
51	William Baziotes
51	L攼㸱szl昼㸳 Moholy-Nagy
51	El Lissitzky
51	L攼㸱szl昼㸳 Moholy-Nagy
51	L攼㸱szl昼㸳 Moholy-Nagy
51	L攼㸱szl昼㸳 Moholy-Nagy
52	Franz Kline
52	Joan Brown
52	Franz Kline
52	John Atherton
52	Marcel Broodthaers
52	Marcel Broodthaers
52	Franz Kline
52	Edward Corbett
52	Marcello Muccini
52	Franz Kline
52	Franz Kline
52	Gertrude Greene
52	Marcel Broodthaers
52	Marcel Broodthaers
52	Marcel Broodthaers
52	Marcel Broodthaers
52	Marcel Broodthaers
52	Joan Brown
53	Robert MacBryde
53	Fidelio Ponce De Le昼㸳n
53	Martin Wong
54	Jankel Adler
54	Iaroslav Serpan
54	Bradley Walker Tomlin
54	Ad Reinhardt
54	Ad Reinhardt
54	Ad Reinhardt
54	Bradley Walker Tomlin
54	Alice Baber
54	Bradley Walker Tomlin
54	Ad Reinhardt
54	Ad Reinhardt
54	Ad Reinhardt
54	Bradley Walker Tomlin
54	Ad Reinhardt
54	Jos攼㸹 Pancetti
54	Sophie Taeuber-Arp
54	Sophie Taeuber-Arp
54	Ad Reinhardt
54	Ad Reinhardt
54	Ad Reinhardt
54	Wolfgang Paalen
54	Alighiero Boetti
54	Alighiero Boetti
55	Paul Gauguin
55	Paul Gauguin
55	Paul Gauguin
55	Yves Tanguy
55	Yves Tanguy
55	Patrick Henry Bruce
55	Paul-挼㸹mile Borduas
55	Yves Tanguy
55	Nina Tryggvadottir
55	Yves Tanguy
55	Yves Tanguy
55	Oskar Schlemmer
55	Yves Tanguy
55	Yves Tanguy
55	Yves Tanguy
55	Yves Tanguy
55	Yves Tanguy
55	Yves Tanguy
56	Gustav Klimt
56	Otto Mueller
56	Giuseppe Guerreschi
56	Reginald Marsh
56	Robert Delaunay
56	Gustav Klimt
56	Paul Feeley
56	Robert Delaunay
56	Walter Stuempfig
56	Roger Brown
57	Ahmed Yacoubi
57	George Ault
57	Ren攼㸹 Br昼㸴
57	Kazimir Malevich
57	Eug攼㸸ne Carri攼㸸re
57	Kazimir Malevich
57	Kazimir Malevich
57	Kazimir Malevich
57	Kazimir Malevich
57	Kazimir Malevich
57	Kazimir Malevich
57	Konrad Lueg
58	Ernst Ludwig Kirchner
58	Ren攼㸹 Robert Bouch攼㸹
58	Horace Pippin
58	Ralph Humphrey
58	Ralph Humphrey
58	Ernst Ludwig Kirchner
58	Ernst Ludwig Kirchner
58	Louis Marcoussis
58	Jack Goldstein
59	Niles Spencer
59	Burgoyne Diller
59	Niles Spencer
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	Pavel Tchelitchew
59	Pavel Tchelitchew
59	David Smith
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
59	C攼㸲ndido Portinari
59	Andy Warhol
59	Burgoyne Diller
59	Burgoyne Diller
59	Niles Spencer
59	Wladyslaw Strzeminski
59	Andy Warhol
59	Pavel Tchelitchew
59	Pavel Tchelitchew
59	Andy Warhol
59	Andy Warhol
59	Andy Warhol
60	Knud Merrild
60	Roy Adzak
60	Knud Merrild
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Alan Shields
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	G昼㹣nther F昼㸶rg
61	G昼㹣nther F昼㸶rg
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Paul Klee
61	Kurt Schwitters
61	Paul Klee
62	Enrico Prampolini
62	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
62	Kurt Seligmann
62	Bedri Rahmi
62	J昼㸶rg Immendorff
62	Willys de Castro
62	Michel Parmentier
62	Michel Parmentier
63	Joseph Mellor Hanson
63	Arnold Schmidt
63	Gwen John
63	Gwen John
63	Gwen John
63	Serge Poliakoff
63	Victor Brauner
63	Victor Brauner
63	Friedrich Vordemberge-Gildewart
63	Friedrich Vordemberge-Gildewart
63	Victor Brauner
64	John Randall Bratby
64	Jimmy Ernst
64	Jimmy Ernst
64	Rico Lebrun
64	Afro (Afro Basaldella)
64	Alfred H. Maurer
64	Yasuo Kuniyoshi
64	Irene Rice Pereira
64	Irene Rice Pereira
64	Malcolm Bailey
64	Varvara Stepanova
64	Afro (Afro Basaldella)
64	Edward C. ("Pa") Hunt
64	Heitor dos Prazeres
64	Key Hiraga
65	Barnett Newman
65	Alberto Giacometti
65	Gene Davis
65	Otto Freundlich
65	Aleksandr Rodchenko
65	Aleksandr Rodchenko
65	Maurice Prendergast
65	Barnett Newman
65	Barnett Newman
65	Edmondo Bacci
65	Alberto Giacometti
65	Alberto Giacometti
65	Kay Sage
65	Barnett Newman
65	Alberto Giacometti
65	John Ferren
65	Henri Le Fauconnier
65	Barnett Newman
65	Alberto Giacometti
65	Marcelo Bonevardi
65	Barnett Newman
65	Dan Christensen
65	Otto Freundlich
65	Ivan Kliun
65	Barnett Newman
65	Kay Sage
65	Armando Rever昼㸳n
65	Harvey Quaytman
65	Harvey Quaytman
65	Harvey Quaytman
65	Armando Rever昼㸳n
66	Arthur Dove
66	Bernard Karfiol
66	Max Beckmann
66	Lee Gatch
66	Willi Baumeister
66	Max Beckmann
66	Arthur B. Davies
66	Arthur B. Davies
66	George Grosz
66	Marsden Hartley
66	Forrest Bess
66	Arthur Dove
66	Donald Judd
66	Marsden Hartley
66	Walter Quirt
66	Jos攼㸹 Clemente Orozco
66	Henri Rousseau
66	Max Beckmann
66	Walter Quirt
66	Max Beckmann
66	Jos攼㸹 Clemente Orozco
66	Jos攼㸹 Clemente Orozco
66	Arthur Dove
66	Arthur B. Davies
66	Jean Fautrier
66	George Grosz
66	Willi Baumeister
66	Mitchell Siporin
66	Bryan Wynter
66	Henri Rousseau
66	George Grosz
66	Willi Baumeister
66	Jos攼㸹 Clemente Orozco
66	Forrest Bess
67	Paul C攼㸹zanne
67	Antonio Ruiz
67	Philip Guston
67	Alberto da Veiga Guignard
67	Paul C攼㸹zanne
67	Paul C攼㸹zanne
67	Morgan Russell
67	Mark Rothko
67	Paul C攼㸹zanne
67	Mark Rothko
67	Philip Guston
67	Paul C攼㸹zanne
67	Elizabeth Murray
67	Arnold Friedman
67	Erol (Erol Akyavas)
67	Morgan Russell
67	Paul C攼㸹zanne
67	Philip Guston
67	Philip Guston
67	Onofrio A. Pacenza
67	Elizabeth Murray
67	Elizabeth Murray
67	Elizabeth Murray
67	Morgan Russell
67	Morgan Russell
67	Elizabeth Murray
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Joan Mitchell
67	Philip Guston
67	Joan Mitchell
67	Mark Rothko
67	Mark Rothko
67	Philip Guston
67	Mark Rothko
67	Mark Rothko
67	Joan Mitchell
67	Joan Mitchell
67	Joan Mitchell
67	Joan Mitchell
67	Arnold Friedman
67	Lovis Corinth
67	Martin Baer
67	Philip Guston
67	Harold Barling Town
67	Paul C攼㸹zanne
67	Mark Rothko
67	Philip Guston
67	Paul C攼㸹zanne
67	Alexandra Exter
67	Mark Rothko
67	Mark Rothko
67	Mark Rothko
67	Philip Guston
67	Elizabeth Murray
67	Paul C攼㸹zanne
67	Elizabeth Murray
67	Elizabeth Murray
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Philip Guston
67	Alexandra Exter
67	Alexandra Exter
68	Rafael Moreno
68	Stanley Spencer
68	Raymond Parker
68	Allan D'Arcangelo
68	Heinrich Campendonk
68	Fairfield Porter
68	Fairfield Porter
68	Tony Smith
68	Raymond Parker
68	Ulysse Comtois
68	Graham Coughtry
68	Allan D'Arcangelo
68	Jean 挼㸸ve
68	Marlow Moss
68	Marlow Moss
68	Victor Servranckx
68	Al Hansen
68	Lygia Clark
68	Dieter Roth, Ingrid Wiener
69	Ren攼㸹 Magritte
69	Roger van Rogger
69	Sigmar Polke
69	Ren攼㸹 Magritte
69	Sigmar Polke
69	Sigmar Polke
69	Sigmar Polke
69	Sigmar Polke
69	Sigmar Polke
69	Joseph Stella
69	Sigmar Polke
69	Ren攼㸹 Magritte
69	Jan Lebenstein
69	Lucio Fontana
69	Karl Zerbe
69	Max Oppenheimer (MOPP)
69	Lucio Fontana
69	Ren攼㸹 Magritte
69	Ren攼㸹 Magritte
69	Ren攼㸹 Magritte
69	Ren攼㸹 Magritte
69	Henri Laurens
69	Joseph Stella
69	Ludwig Sander
69	Bhupen P. Khakhar
69	Alejandro Otero
69	Lee Lozano
69	Mira Schendel
69	Mira Schendel
69	Alain Jacquet
69	William H. Johnson
69	Alejandro Otero
69	Mira Schendel
70	Pierre Roy

Dorotheaa Tanning foi a artista da base de dados que viveu mais tempo (102 anos).

Atividade 13. Qual a idade média de um artista?

Resposta:

library(dplyr)

library(tidyr)

Banco_Moma <- Banco_Moma %>% drop_na (anos_de_vida)

idade_media_artista <- Banco_Moma %>% select(artist, anos_de_vida) %>% distinct(artist,anos_de_vida) 

summary(idade_media_artista)

                       artist     anos_de_vida   
 <c9>douard Vuillard      :  1   Min.   : 27.00  
 <c9>mile Bernard         :  1   1st Qu.: 66.00  
 <d6>yvind Fahlstr<f6>m   :  1   Median : 76.00  
 A. E. Gallatin           :  1   Mean   : 73.78  
 A.R. Penck (Ralf Winkler):  1   3rd Qu.: 85.00  
 Abraham Rattner          :  1   Max.   :102.00  
 (Other)                  :666

A média de idade entre os artistas que têm ano de nascimento e de morte cadastrados no banco de dados é 73,78 anos.

Atividade 14. Artistas homens vivem mais do que as mulheres?

Resposta:

Banco_Moma <- Banco_Moma %>% drop_na (artist_gender)

idade_media_genero <- Banco_Moma %>% select(artist, artist_gender, anos_de_vida) %>% 
  distinct(artist,artist_gender,anos_de_vida) 

idade_media_genero %>% select(artist,artist_gender,anos_de_vida) %>% 
  group_by(artist_gender) %>%
  summarise(média=mean(anos_de_vida))

# A tibble: 2 x 2
  artist_gender média
  <fct>         <dbl>
1 Female         73.9
2 Male           73.8

A média de vida dos artistas do gênero masculino (aproximadamente 73,8 anos) é menor do que a média de idade das artistas do gênero feminino (aproximadamente 73,9 anos), nessa base de dados. Portanto, os artistas homens deste banco de dados vivem, em média, menos do que as artistas mulheres.

9. Um último desafio: recriar o gráfico do fivethirtyeight :

Vamos tentar recriar o diagrama de dispersão do fivethirtyeight chamado MoMA Paintings, Tall and Wide?

Para recriar, algumas coisas a considerar:

Tente filtrar todas as pinturas com altura menor que 600 cm e largura menor que 760 cm.

Se você deseja adicionar cores iguais ao original, precisará criar uma nova variável usando mutate.

moma_dim <- Banco_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")

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?

Resposta:

O presente estudo foi realizado através de análise de do banco de dados do MoMA. Com auxílio do operador pipe e de técnicas de filtragens, conseguiu-se obter relevantes informações a cerca dos dados investigados.

2.253 pinturas e 24 variáveis foram analisadas, sobretudo aquelas referentes ao ano de criação e aquisição das obras, aos títulos, além dos autores, seus gêneros e longevidades.

Atividade 6

Nathan Barbosa

24/06/2021

Atividade do MoMA

1. Objetivos pedagógicos dessas atividades

Revisar os conceitos de análise bi-variada aprendidas na última aula.

Praticar a utilização de base de dados para extrair informações e conhecer melhor os dados.

Gerar gráficos para variáveis (no ggplot2).

2. Inspiração + dados

Usaremos o banco de dados do Museu de Arte Moderna (MoMA).

Disponível publicamente no GitHub.

Foi analisado por fivethirtyeight.com, Alison Hill e por outros.

3. Pacotes necessários

Vamos usar quatro pacotes do R: readr,dplyr, ggplot2, e ggthemes.

4. Carregar os dados

Esses não são os dados originais. A Alison Hill fez um pré-processamento e limpeza de dados. O banco abaixo contém apenas pinturas e desenhos da coleção MoMA.

Use este pedaço de código para ler o banco de dados disponível em https://github.com/DATAUNIRIO/Base_de_dados

O banco de dados se chama arte_MOMA.csv e está armazenado no repositório de bases de dados do curso de estatística. Você pode usar esse código se quiser ler o arquivo CSV local.

Banco_Moma <- read_delim(“SEU DIRETÓRIO ATÉ O ARQUIVO/arte_MOMA.csv”, delim = “;”)

5. Conheça os seus dados

Tente responder a todas essas perguntas. (opcional: tente responder todas perguntas usando somente o pacote dplyr).

Atividade 1. Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?

Resposta:

Existem no MoMA 2.253 pinturas e 24 variáveis.

Atividade 2. Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?

Resposta:

No ano de 1.930 foram adquiridas as duas primeiras pinturas pelo MoMA: House by the Railroad e Seated Nude, dos artistas Edward Hopper e Bernard Karfiol, respectivamente.

Atividade 3. Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?

Resposta:

A pintura mais antiga da coleção do MoMA, intitulada Landscape at Daybreak, foi criada por Odilon Redon em 1.872.

6. Análises descritivas dos dados

Atividade 4. Quantos artistas distintos existem?

Resposta:

Existem 989 artistas distintos no banco de dados do MoMA.

Atividade 5. Qual artista tem mais pinturas na coleção?

Resposta:

O artista que tem mais pinturas na coleção é Pablo Picasso.

Atividade 6. Quantas pinturas existem por este artista?

Resposta:

Existem 55 pinturas de Pablo Picasso na coleção do MoMA.

Atividade 7. Quantas pinturas de artistas masculinos e femininos?

Resposta:

Das 2.253 pinturas da coleção, 1.991 têm criadores do gênero masculino, 252 têm criadoras do gênero feminino e 10 têm criadores não informados.

7. Se você quiser mais:

Atividade 8. Quantos artistas de cada gênero existem?

Resposta:

Existem, nesse banco de dados do MoMA, 837 artistas do gênero masculino, 143 artistas do gênero feminino e 9 artistas cujo gênero não foi informado.

Atividade 9. Em que ano foram adquiridas mais pinturas?

Resposta:

Em 1985 o maior número de pinturas foi adquirido (86 pinturas).

Atividade 10. Em que ano foram Criada mais pinturas?

Resposta:

Em 1977 o maior número de pinturas foi criado (57 pinturas).

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?

Resposta:

A primeira obra adquirida (1937) de uma artista feminina, Landscape,47, foi criada em 1.912 por Natalia Goncharova.

8. Mais um desafio:

Atividade 12. Qual o artista ficou mais tempo vivo?

Resposta:

Dorotheaa Tanning foi a artista da base de dados que viveu mais tempo (102 anos).

Atividade 13. Qual a idade média de um artista?

Resposta:

A média de idade entre os artistas que têm ano de nascimento e de morte cadastrados no banco de dados é 73,78 anos.

Atividade 14. Artistas homens vivem mais do que as mulheres?

Resposta:

A média de vida dos artistas do gênero masculino (aproximadamente 73,8 anos) é menor do que a média de idade das artistas do gênero feminino (aproximadamente 73,9 anos), nessa base de dados. Portanto, os artistas homens deste banco de dados vivem, em média, menos do que as artistas mulheres.

9. Um último desafio: recriar o gráfico do fivethirtyeight :

Vamos tentar recriar o diagrama de dispersão do fivethirtyeight chamado MoMA Paintings, Tall and Wide?

Para recriar, algumas coisas a considerar:

Tente filtrar todas as pinturas com altura menor que 600 cm e largura menor que 760 cm.

Se você deseja adicionar cores iguais ao original, precisará criar uma nova variável usando mutate.

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?

Resposta:

O presente estudo foi realizado através de análise de do banco de dados do MoMA. Com auxílio do operador pipe e de técnicas de filtragens, conseguiu-se obter relevantes informações a cerca dos dados investigados.

2.253 pinturas e 24 variáveis foram analisadas, sobretudo aquelas referentes ao ano de criação e aquisição das obras, aos títulos, além dos autores, seus gêneros e longevidades.