Atividade 5 - Moma
Thayanne Pinheiro
14/04/2021
Carregando a base
O primeiro passo para realização da atividade será carregar a base de dados Banco_Moma.
library(readr)
Banco_Moma <- read_delim("C:/Users/thaya/Desktop/Base_de_dados-master/arte_MOMA.csv", delim = ";")## Warning: Missing column names filled in: 'X1' [1]##
## -- Column specification --------------------------------------------------------
## cols(
## .default = col_double(),
## title = col_character(),
## artist = col_character(),
## artist_bio = col_character(),
## artist_gender = col_character(),
## circumference_cm = col_logical(),
## depth_cm = col_number(),
## diameter_cm = col_logical(),
## height_cm = col_number(),
## length_cm = col_logical(),
## width_cm = col_number(),
## seat_height_cm = col_logical(),
## purchase = col_logical(),
## gift = col_logical(),
## exchange = col_logical(),
## classification = col_character(),
## department = col_character()
## )
## i Use `spec()` for the full column specifications.summary(Banco_Moma)## X1 title artist artist_bio
## Min. : 1 Length:2253 Length:2253 Length:2253
## 1st Qu.: 564 Class :character Class :character Class :character
## Median :1127 Mode :character Mode :character Mode :character
## Mean :1127
## 3rd Qu.:1690
## Max. :2253
##
## artist_birth_year artist_death_year num_artists n_female_artists
## Min. :1839 Min. :1890 Min. : 1.000 Min. :0.0000
## 1st Qu.:1890 1st Qu.:1956 1st Qu.: 1.000 1st Qu.:0.0000
## Median :1913 Median :1976 Median : 1.000 Median :0.0000
## Mean :1912 Mean :1975 Mean : 1.009 Mean :0.1136
## 3rd Qu.:1933 3rd Qu.:1996 3rd Qu.: 1.000 3rd Qu.:0.0000
## Max. :1987 Max. :2018 Max. :10.000 Max. :2.0000
## NA's :6 NA's :629 NA's :1
## n_male_artists artist_gender year_acquired year_created
## Min. :0.0000 Length:2253 Min. :1930 Min. :1872
## 1st Qu.:1.0000 Class :character 1st Qu.:1957 1st Qu.:1933
## Median :1.0000 Mode :character Median :1975 Median :1956
## Mean :0.8953 Mean :1976 Mean :1954
## 3rd Qu.:1.0000 3rd Qu.:1996 3rd Qu.:1972
## Max. :9.0000 Max. :2017 Max. :2017
## NA's :9 NA's :5
## circumference_cm depth_cm diameter_cm height_cm
## Mode:logical Min. :0.000e+00 Mode:logical Min. :7.000e+00
## NA's:2253 1st Qu.:0.000e+00 NA's:2253 1st Qu.:4.890e+02
## Median :0.000e+00 Median :1.067e+03
## Mean :3.938e+09 Mean :1.208e+11
## 3rd Qu.:7.500e+01 3rd Qu.:2.185e+03
## Max. :6.096e+11 Max. :3.626e+12
## NA's :1955
## length_cm width_cm seat_height_cm purchase
## Mode:logical Min. :1.000e+01 Mode:logical Mode :logical
## NA's:2253 1st Qu.:4.580e+02 NA's:2253 FALSE:2055
## Median :9.720e+02 TRUE :198
## Mean :1.317e+11
## 3rd Qu.:2.286e+03
## Max. :9.147e+12
##
## gift exchange classification department
## Mode :logical Mode :logical Length:2253 Length:2253
## FALSE:1086 FALSE:2108 Class :character Class :character
## TRUE :1167 TRUE :145 Mode :character Mode :character
##
##
##
## Carregando as bibliotecas
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, unionlibrary(ggplot2)
library(ggthemes)
library(knitr)Atividade 1: Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?
Existem 2253 pinturas no MoMA e 24 variáveis no banco de dados.
Banco_Moma %>% group_by(classification) %>% summarise(tamanho=n()) %>% kable()| classification | tamanho |
|---|---|
| Painting | 2253 |
Banco_Moma %>% ncol() ## [1] 24Banco_Moma %>% colnames()## [1] "X1" "title" "artist"
## [4] "artist_bio" "artist_birth_year" "artist_death_year"
## [7] "num_artists" "n_female_artists" "n_male_artists"
## [10] "artist_gender" "year_acquired" "year_created"
## [13] "circumference_cm" "depth_cm" "diameter_cm"
## [16] "height_cm" "length_cm" "width_cm"
## [19] "seat_height_cm" "purchase" "gift"
## [22] "exchange" "classification" "department"Atividade 2: Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?
A obra mais antiga “adquirada” é a House by the railroad de Edward Hopper, adquirada em 1930. Mas, na base de dados há informações se a obra foi comprada ou presente, e essa aparece como falsa para essas duas informações.
Banco_Moma %>% filter(year_acquired == min(year_acquired, na.rm = TRUE)) %>%
group_by(year_acquired) %>% filter(gift==FALSE) %>%
summarise(year_acquired,title,artist) %>% kable()| year_acquired | title | artist |
|---|---|---|
| 1930 | House by the Railroad | Edward Hopper |
A obra então mais antiga adquirada por meio de compra foi “Extinction of Useless Lights” do artista Yves Tanguy, adquirada em 1935.
Banco_Moma %>% mutate(Diff = abs(year_acquired - 1940)) %>%
group_by(year_acquired) %>% filter(purchase==TRUE) %>% filter(gift==FALSE) %>% summarise(year_acquired,title,artist) %>% kable()## `summarise()` has grouped output by 'year_acquired'. You can override using the `.groups` argument.| year_acquired | title | artist |
|---|---|---|
| 1935 | Extinction of Useless Lights | Yves Tanguy |
| 1936 | Two Heads | Jean (Hans) Arp |
| 1936 | Mama, Papa Is Wounded! | Yves Tanguy |
| 1936 | The Sea (Marine) | Max Ernst |
| 1936 | The Nostalgia of the Infinite | Giorgio de Chirico |
| 1936 | The Hunter (Catalan Landscape) | Joan Mir |
| 1936 | The Evil Genius of a King | Giorgio de Chirico |
| 1937 | The False Mirror | Ren |
| 1937 | Two Children Are Threatened by a Nightingale (Deux Enfants sont menac |
Max Ernst |
| 1937 | Battle of Fishes | Andr |
| 1937 | Still Life | Le Corbusier (Charles- |
| 1937 | The Nymph Echo ( La Nymphe |
Max Ernst |
| 1937 | Woman, Old Man, and Flower (Weib, Greis und Blume) | Max Ernst |
| 1937 | Person Throwing a Stone at a Bird | Joan Mir |
| 1939 | Still Life I | Joan Mir |
| 1939 | Still Life II | Joan Mir |
| 1939 | Street, Berlin | Ernst Ludwig Kirchner |
| 1939 | City Buildings | Gustaf Oscar Dalstr |
| 1939 | The Refugees | Mitchell Siporin |
| 1939 | The Hawk | Everett Spruce |
| 1939 | Pastime Bowling Alley | Byron Thomas |
| 1939 | Window at Vers | Andr |
| 1940 | Self-Portrait | Oskar Kokoschka |
| 1940 | Expectation | Richard Oelze |
| 1940 | Flowers in a Vase | Frederick Papsdorf |
| 1940 | Tribulations of Saint Anthony | James Ensor |
| 1940 | Leaves and Navels | Jean (Hans) Arp |
| 1940 | Hopscotch | Loren MacIver |
| 1941 | Posing for the First Time | Richard Munsell |
| 1941 | A-Hunting He Would Go | Patrick J. Sullivan |
| 1941 | The Ancient Form | Balcomb Greene |
| 1941 | Girl in a Mirror | Morris Hirshfield |
| 1941 | Kangaroo Hunt | Peter Purves-Smith |
| 1942 | The Bride | Hyman Bloom |
| 1942 | Napoleon in the Wilderness | Max Ernst |
| 1942 | The Passing Scene | Jack Levine |
| 1942 | Christmas Eve | John Atherton |
| 1942 | Boots | Marsden Hartley |
| 1942 | The Tranquility of Previous Existence | Walter Quirt |
| 1942 | Vertical Sequence, Op. 137 | Thomas Wilfred |
| 1942 | Promenade | Christian B |
| 1942 | Melancholy of a Rooftop | Arthur Osver |
| 1942 | Open Door | Evsa Model |
| 1943 | The Flying Dutchman | Jimmy Ernst |
| 1943 | Fallen Angel | Paul Burlin |
| 1943 | The Little Presser | Mervin Jules |
| 1944 | Composition | Virginia Admiral |
| 1944 | The She-Wolf | Jackson Pollock |
| 1944 | Don’t Cry Mother | Philip Evergood |
| 1944 | Portrait of Suba | Julian E. Levi |
| 1945 | Transparency | James Edward Davis |
| 1945 | The First Communication | Attilio Salemme |
| 1945 | The Passage from Virgin to Bride | Marcel Duchamp |
| 1947 | Space Modulator L3 | L |
| 1947 | Liquor Store Window | Fannie Hillsmith |
| 1948 | Composition VIII (The Cow) | Theo van Doesburg (Christian Emil Marie K |
| 1948 | Painting | Francis Bacon |
| 1948 | Painting | Willem de Kooning |
| 1949 | The Fitting | Francisco Bor |
| 1949 | Tower and Tank | Herman Rose |
| 1949 | Christina’s World | Andrew Wyeth |
| 1949 | Relational Painting | Fritz Glarner |
| 1949 | Speeding Automobile | Giacomo Balla |
| 1949 | Swifts: Paths of Movement + Dynamic Sequences | Giacomo Balla |
| 1949 | Island of Statues | Salvatore Fiume |
| 1949 | Man with a Melon | Karl Hofer |
| 1949 | Bull | Marcello Muccini |
| 1949 | Still Life | Giorgio Morandi |
| 1949 | Melon Eaters | Renato Guttuso |
| 1950 | Composition in Oval with Color Planes 1 | Piet Mondrian |
| 1950 | Western Air | Robert Motherwell |
| 1950 | Number 1A, 1948 | Jackson Pollock |
| 1950 | Composition in Brown and Gray | Piet Mondrian |
| 1950 | Truncated View of the Broekzijder Mill on the Gein, Wings Facing West | Piet Mondrian |
| 1951 | Street, Dresden | Ernst Ludwig Kirchner |
| 1951 | Cwn Tryfan Rock | John Piper |
| 1951 | Two Persons at a Table | Raoul Ubac |
| 1951 | Forms and Red | A. E. Gallatin |
| 1951 | Red and Blue Disks | Frantisek Kupka |
| 1951 | Phases of the Moon | Paul Delvaux |
| 1952 | The Poet Max Herrmann-Neisse | George Grosz |
| 1952 | Composition July | Alan Reynolds |
| 1953 | Woman with a Daffodil | Lucian Freud |
| 1953 | Dalmatian Scene | Antonio Zoran Music |
| 1953 | Woman I | Willem de Kooning |
| 1954 | Edge of August | Mark Tobey |
| 1955 | Enamored Tomcat | Leonardo Cremonini |
| 1955 | Hyphen | Kay Sage |
| 1956 | Painting, II | Pierre Clerk |
| 1956 | Fires | Robert Kabak |
| 1956 | Number 11 | Stanley Twardowicz |
| 1956 | Incident 13 R | Edmondo Bacci |
| 1956 | Winter | Sandra Blow |
| 1957 | Faust, I | Jan M |
| 1958 | Lunar Landscape | Albert Tucker |
| 1958 | The Baker’s Dream | Zvi Gali |
| 1958 | Two Snakes | Nagwaraba |
| 1959 | Kabuki | Kumi Suga |
| 1959 | Painting | Albert Urban |
| 1959 | Reason and Instinct - Sun and Moon | Renato Cristiano |
| 1960 | Running White | Ellsworth Kelly |
| 1960 | Untitled (Light Work) | Paul van Hoeydonck |
| 1961 | Broken Blossom | Gandy Brodie |
| 1961 | Ladybug | Joan Mitchell |
| 1963 | West 23rd | Jack Tworkov |
| 1963 | Abstract Painting | Ad Reinhardt |
| 1964 | Studio with Plaster Head | Pablo Picasso |
| 1965 | Untitled | Shuji Mukai |
| 1966 | Karel Appel | |
| 1966 | Ruin by the Sea | Lyonel Feininger |
| 1966 | Micrography | Juan Genov |
| 1967 | Anthracite Minuet | Gene Davis |
| 1967 | Bottles Planted in the Ground | Dimitri Mikhailovich Krasnopevtsev |
| 1967 | Cards on a Marquetry Table | Vladimir Nikolaevich Nemukhin |
| 1967 | Voices of Silence | Dimitri Petrovich Plavinsky |
| 1967 | Coelacanth | Dimitri Petrovich Plavinsky |
| 1967 | Emotional Sign | Alexei Alexandrovich Tyapushkin |
| 1969 | Abstract Painting | Ad Reinhardt |
| 1969 | Black on White | Henry Pearson |
| 1970 | Tree of Paradise | S |
| 1971 | Ring-A-Lingling | Richard Smith |
| 1971 | Twin | Robert Ryman |
| 1974 | Ex. 4-Trinity’s Trine | Jess |
| 1974 | Golden Section Painting: Square Separated by Parallelogram | Dorothea Rockburne |
| 1975 | Untitled | Bruce Boice |
| 1975 | The Adieu, III | Ger van Elk |
| 1975 | Leonardo’s Lady | Audrey Flack |
| 1975 | AAYH 74 | Lynton Wells |
| 1975 | Untitled Number 2 | James Bishop |
| 1976 | Sherwin Williams Chevy | Ralph Goings |
| 1977 | Axes | Susan Rothenberg |
| 1978 | Untitled | Michael Venezia |
| 1978 | Firuzabad | Frank Stella |
| 1979 | Distant Warmth | Alan Cote |
| 1979 | Ice Bridge | Hap Tivey |
| 1980 | Untitled | Raymond Parker |
| 1980 | There Were Seven in Eight | Jackson Pollock |
| 1981 | Red Star | Red Grooms |
| 1981 | The Idleness of Sisyphus | Sandro Chia |
| 1981 | Abstract Painting (Blue) | Ad Reinhardt |
| 1982 | South Orange | Ralph Humphrey |
| 1985 | Celadon | Gregory Amenoff |
| 1985 | Clouds | Gerhard Richter |
| 1989 | Chronic Hollow | Ida Applebroog |
| 1994 | Views & Vistas | Douglas Blau |
| 1997 | Odol | Stuart Davis |
| 1999 | Untitled (Asheville Citizen) | Robert Rauschenberg |
| 1999 | Rorschach | Andy Warhol |
| 2000 | Portrait of a Couple | Francis Picabia |
| 2001 | Untitled 8-17 | Thomas Nozkowski |
| 2001 | Untitled 8-19 | Thomas Nozkowski |
| 2004 | Large Check: 1 | Sherrie Levine |
| 2004 | Large Check: 2 | Sherrie Levine |
| 2004 | Large Check: 3 | Sherrie Levine |
| 2004 | Large Check: 4 | Sherrie Levine |
| 2004 | Large Check: 5 | Sherrie Levine |
| 2004 | Large Check: 6 | Sherrie Levine |
| 2004 | Large Check: 7 | Sherrie Levine |
| 2004 | Large Check: 8 | Sherrie Levine |
| 2004 | Large Check: 9 | Sherrie Levine |
| 2004 | Large Check: 10 | Sherrie Levine |
| 2004 | Large Check: 11 | Sherrie Levine |
| 2004 | Large Check: 12 | Sherrie Levine |
| 2005 | Energy | Mangelos (Dimitrije Basicevic) |
| 2015 | Art and Language II | Richard Aldrich |
| 2016 | EM 1 (Telephone Picture) | L |
Atividade 3: Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?
A pintura mais antiga é a Landscape at daybreak, criada em 1872, por Odilon Redon.
Banco_Moma %>% filter(year_created == min(year_created, na.rm = TRUE)) %>%
group_by(year_created) %>% summarise(year_created,title,artist) %>% kable()| year_created | title | artist |
|---|---|---|
| 1872 | Landscape at Daybreak | Odilon Redon |
Atividade 4: Quantos artistas distintos existem?
Existem 989 artistas distintos
Banco_Moma %>% group_by(artist) %>% summarise(Contagem = length(unique(artist))) %>% nrow()## [1] 989Atividade 5: Qual artista tem mais pinturas na coleção?
Atividade 6: Quantas pinturas existem por este artista?
Pablo Picasso é o artista com mais pinturas na coleção do museu. Existem 55 pinturas dele.
Banco_Moma %>% count(artist) %>% arrange(-n) ## # A tibble: 989 x 2
## artist n
## <chr> <int>
## 1 Pablo Picasso 55
## 2 Henri Matisse 32
## 3 On Kawara 32
## 4 Jacob Lawrence 30
## 5 Batiste Madalena 25
## 6 Jean Dubuffet 25
## 7 Odilon Redon 25
## 8 Ben Vautier 24
## 9 Frank Stella 23
## 10 Philip Guston 23
## # ... with 979 more rowsAtividade 7: Quantas pinturas de artistas masculinos e femininos?
Existem 255 pinturas feitas por artistas do gênero feminino e 1999 pinturas de artistas masculinos.
count(Banco_Moma, n_female_artists)## # A tibble: 3 x 2
## n_female_artists n
## <dbl> <int>
## 1 0 1998
## 2 1 254
## 3 2 1count(Banco_Moma, n_male_artists)## # A tibble: 5 x 2
## n_male_artists n
## <dbl> <int>
## 1 0 254
## 2 1 1992
## 3 2 2
## 4 3 4
## 5 9 1Atividade 8: Quantos artistas de cada gênero existem?
São 143 artistas do gênero feminino e 837 do gênero masculino Os classificados como “NA” devem se dar por conta de algumas pinturas terem mais de um artista.
Banco_Moma %>% group_by(artist_gender) %>% summarise(Contagem = length(unique(artist))) %>% kable()| artist_gender | Contagem |
|---|---|
| Female | 143 |
| Male | 837 |
| NA | 9 |
Atividade 9: Em que ano foram adquiridas mais pinturas?
Foram adquiridas mais pinturas no ano de 1985, 86 no total.
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 rowsAtividade 10: Em que ano foram Criada mais pinturas?
Foram criadas mais pinturas em 1977, 57 no total.
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 rowsAtividade 11: Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)? Quando essa pintura foi criada? Qual artista? Qual título?
A primeira pintura de uma artista mulher foi Landscape, adquirida em 1937, da artista Natalia Goncharova e criada em 1912.
Banco_Moma %>% group_by(year_acquired) %>%
filter(year_acquired == min(year_acquired))%>%
filter(artist_gender=="Female") %>% summarise(year_acquired,title,artist,year_created)%>% kable()## `summarise()` has grouped output by 'year_acquired'. You can override using the `.groups` argument.| year_acquired | title | artist | year_created |
|---|---|---|---|
| 1937 | Landscape, 47 | Natalia Goncharova | 1912 |
| 1938 | Shack | Loren MacIver | 1934 |
| 1940 | Hopscotch | Loren MacIver | 1940 |
| 1941 | Shadows with Painting | Irene Rice Pereira | 1940 |
| 1941 | Figure | Varvara Stepanova | 1921 |
| 1942 | Still Life in Red | Amelia Pel |
1938 |
| 1942 | White Lines | Irene Rice Pereira | 1942 |
| 1942 | Musical Squash | Maud Morgan | 1942 |
| 1942 | Desolation | Raquel Forner | 1942 |
| 1943 | Self-Portrait with Cropped Hair | Frida Kahlo | 1940 |
| 1944 | Workers and Paintings | Honor |
1943 |
| 1944 | Composition | Virginia Admiral | 1942 |
| 1944 | Fishes | Amelia Pel |
1943 |
| 1945 | Red Votive Lights | Loren MacIver | 1943 |
| 1945 | Farmhouse Window and Door | Georgia O’Keeffe | 1929 |
| 1947 | Liquor Store Window | Fannie Hillsmith | 1946 |
| 1949 | Abstract Portrait of Marcel Duchamp | Katherine S. Dreier | 1918 |
| 1950 | Father D’Arcy | Elsa Schmid | 1948 |
| 1951 | A Good Circular God | Jeanne Reynal | 1948 |
| 1953 | The Persian Jacket | Grace Hartigan | 1952 |
| 1954 | River Bathers | Grace Hartigan | 1953 |
| 1954 | Dance | Maria Helena Vieira da Silva | 1938 |
| 1954 | The Day the Bosque Froze Over | Clara McDonald Williamson | 1953 |
| 1954 | New York, VIII | Hedda Sterne | 1954 |
| 1955 | Florida Bark | Ida E. Fischer | 1951 |
| 1955 | The Vision | Theora Hamblett | 1954 |
| 1955 | Portuguese Market | Sonia Delaunay-Terk | 1915 |
| 1955 | Hyphen | Kay Sage | 1954 |
| 1956 | Family Portrait, II | Florine Stettheimer | 1933 |
| 1956 | Trojan Gates | Helen Frankenthaler | 1955 |
| 1956 | Winter | Sandra Blow | 1956 |
| 1958 | Painterly Architectonic | Lyubov Popova | 1917 |
| 1958 | Girl with Bare Shoulders | Gwen John | 1909 |
| 1960 | Shinnecock Canal | Grace Hartigan | 1957 |
| 1960 | Bear Cat | Sarai Sherman | 1959 |
| 1960 | Thanksgiving Turkey | Joan Brown | 1959 |
| 1960 | Jacob’s Ladder | Helen Frankenthaler | 1957 |
| 1960 | The Open Scene | Jane Wilson | 1960 |
| 1961 | Actress Dressing | Eugenie Baizerman | 1945 |
| 1961 | Pomegranate | Pamela Bianco | 1957 |
| 1961 | Ladybug | Joan Mitchell | 1957 |
| 1961 | Painting | Nina Tryggvadottir | 1960 |
| 1962 | Hummingbird | Sally Hazelet Drummond | 1961 |
| 1963 | Girl with a Blue Scarf | Gwen John | 1915 |
| 1964 | Untitled | Kirsten Kraa | 1964 |
| 1964 | Startled Woman | Elizabeth Sparhawk-Jones | 1956 |
| 1964 | Current | Bridget Riley | 1964 |
| 1964 | Portrait of Mme Zamaron | Suzanne Valadon | 1922 |
| 1965 | The Tree | Agnes Martin | 1964 |
| 1965 | Tablet Number 84 | Eleanore Mikus | 1964 |
| 1965 | The City | Maria Helena Vieira da Silva | 1950 |
| 1965 | Untitled | Atsuko Tanaka | 1964 |
| 1966 | Seven Minus Twenty-One Equals Seven | Marina Stern | 1966 |
| 1968 | Milky Way | Janet Sobel | 1945 |
| 1968 | Jimmy Savo’s Shoes | Loren MacIver | 1944 |
| 1968 | Mauve District | Helen Frankenthaler | 1966 |
| 1969 | Number 3 (Untitled) | Lee Krasner | 1951 |
| 1969 | Primary Light Group: Red, Green, Blue | Jo Baer | 1964 |
| 1969 | Untitled | Lee Krasner | 1949 |
| 1969 | Fission | Bridget Riley | 1962 |
| 1969 | Schematic Composition | Sophie Taeuber-Arp | 1933 |
| 1970 | Tree of Paradise | S |
1928 |
| 1970 | Red Bird | Agnes Martin | 1964 |
| 1970 | Commune | Helen Frankenthaler | 1969 |
| 1971 | A, C And D From Group/And | Dorothea Rockburne | 1970 |
| 1971 | Girl Reading at a Window | Gwen John | 1911 |
| 1971 | Portrait of My Mother | Florine Stettheimer | 1925 |
| 1974 | Golden Section Painting: Square Separated by Parallelogram | Dorothea Rockburne | 1974 |
| 1975 | Leonardo’s Lady | Audrey Flack | 1974 |
| 1976 | My Grandparents, My Parents, and I (Family Tree) | Frida Kahlo | 1936 |
| 1976 | Untitled Number 5 | Agnes Martin | 1975 |
| 1977 | Axes | Susan Rothenberg | 1976 |
| 1977 | Gaea | Lee Krasner | 1966 |
| 1979 | Abstraction Blue | Georgia O’Keeffe | 1927 |
| 1979 | Sweet Cathy’s Song (For Cathy Elzea) | Joan Snyder | 1978 |
| 1979 | Beautiful Painting with Color | Pat Steir | 1978 |
| 1979 | Tree | Loren MacIver | 1945 |
| 1979 | Skylight | Loren MacIver | 1948 |
| 1979 | “For Greg” | Joanna Pousette-Dart | 1977 |
| 1979 | Watching the Clock | Kay Sage | 1958 |
| 1980 | Untitled | Lois Lane | 1979 |
| 1981 | The Turning Door | Alice Baber | 1960 |
| 1982 | I am an American… Uneasy Dreams | Katherine Porter | 1981 |
| 1982 | Untitled No. 1 | Agnes Martin | 1981 |
| 1983 | Double-Bar, Grey (Green Line) | Jo Baer | 1968 |
| 1983 | Untitled (You Invest in the Divinity of the Masterpiece) | Barbara Kruger | 1982 |
| 1983 | Painters Progress | Elizabeth Murray | 1981 |
| 1983 | Memories of Underdevelopment | Joan Witek | 1981 |
| 1983 | Construction | Alexandra Exter | 1922 |
| 1983 | This I | Edda Renouf | 1973 |
| 1984 | Nazca Lines Star Chart and Nazca Lines Southern Hemisphere Constellation Chart Correlation | Michelle Stuart | 1981 |
| 1984 | Friendship | Agnes Martin | 1963 |
| 1984 | Nabaye Tabastan for L.T. & R. | Pat Steir | 1974 |
| 1985 | Rayonism, Blue-Green Forest | Natalia Goncharova | 1913 |
| 1985 | Construction | Gertrude Greene | 1935 |
| 1985 | White with Rope | Marlow Moss | 1940 |
| 1985 | Composition in Black and White Number 4 | Marlow Moss | 1949 |
| 1985 | Subject from a Dyer’s Shop | Lyubov Popova | 1914 |
| 1985 | The Factory and the Bridge | Olga Rozanova | 1913 |
| 1985 | Composition of Circles and Overlapping Angles | Sophie Taeuber-Arp | 1930 |
| 1985 | Sanctuary of the Four Directions | Charmion von Wiegand | 1959 |
| 1985 | On III | Edda Renouf | 1973 |
| 1986 | Biker | Susan Rothenberg | 1985 |
| 1986 | Shinjuku Pleasure District, Tokyo II | Yvonne Jacquette | 1985 |
| 1987 | Untitled | Janet Sobel | 1946 |
| 1987 | Hop and Skip | Shirley Jaffe | 1987 |
| 1987 | Fulang-Chang and I | Frida Kahlo | 1937 |
| 1987 | Keeper | Annette Lemieux | 1987 |
| 1988 | Benny and Mary Ellen Andrews | Alice Neel | 1972 |
| 1988 | Kenneth Fearing | Alice Neel | 1935 |
| 1988 | Of Previous Dissipations | Ree Morton | 1974 |
| 1989 | Chronic Hollow | Ida Applebroog | 1989 |
| 1990 | Dis Pair | Elizabeth Murray | 1989 |
| 1990 | Untitled #6 | Agnes Martin | 1989 |
| 1990 | Taillade | Joan Mitchell | 1990 |
| 1991 | Red Head, Blue Body | Meret Oppenheim | 1936 |
| 1991 | Untitled | Eva Hesse | 1960 |
| 1991 | Untitled | Eva Hesse | 1960 |
| 1991 | Cubist Nude | Alexandra Exter | 1912 |
| 1991 | Theatrical Composition | Alexandra Exter | 1925 |
| 1992 | GHOSTS. Composed of GHOST (de Chirico: The Enigma of the Day), GHOST (Hopper: House by the Railroad), GHOST (Magritte: The Menaced Assasin) | Sophie Calle | 1991 |
| 1992 | Mountain I | Agnes Martin | 1966 |
| 1992 | Scalar | Dorothea Rockburne | 1971 |
| 1994 | Beam | Elizabeth Murray | 1982 |
| 1994 | Remover | Elizabeth Murray | 1977 |
| 1994 | Wallpiece 24 x 18" | Karin Sander | 1994 |
| 1994 | Grandes Carri |
Joan Mitchell | 1961 |
| 1994 | No Rain | Joan Mitchell | 1976 |
| 1994 | Untitled | Joan Mitchell | 1964 |
| 1994 | Wood, Wind, No Tuba | Joan Mitchell | 1980 |
| 1994 | From a Day with Juan II | Georgia O’Keeffe | 1977 |
| 1994 | Chairman of the Board | Helen Frankenthaler | 1971 |
| 1995 | Lake George, Coat and Red | Georgia O’Keeffe | 1919 |
| 1996 | Harbor Number 1 | Agnes Martin | 1957 |
| 1996 | Woman Walks into Bar - Is Raped by Four Men on the Pool Table - While 20 Watch | Sue Coe | 1983 |
| 1997 | Signs III | Hedda Sterne | 1981 |
| 1997 | Yikes | Elizabeth Murray | 1982 |
| 1997 | Oh! Susanna | Ellen Gallagher | 1995 |
| 1997 | Mom’s Foot Blue and Orange | Sue Williams | 1997 |
| 1997 | No. F | Yayoi Kusama | 1959 |
| 1998 | With My Back to the World | Agnes Martin | 1997 |
| 2000 | Jake at the New Viet Huong | Elizabeth Peyton | 1995 |
| 2001 | They Could Still Serve | Ellen Gallagher | 2001 |
| 2001 | Presence | Shirazeh Houshiary | 2000 |
| 2002 | Wired | Christina Ramberg | 1974 |
| 2002 | Night Sky #5 | Vija Celmins | 1992 |
| 2002 | Southern California | Elizabeth Murray | 1976 |
| 2002 | 1, 2, 3, 4, 5, 6 | Susan Rothenberg | 1988 |
| 2002 | Dogs Killing Rabbit | Susan Rothenberg | 1991 |
| 2002 | Succulent Eggplants | Beatriz Milhazes | 1996 |
| 2002 | Light in Far Field | Ellen Phelan | 2001 |
| 2004 | Untitled | Lee Lozano | 1963 |
| 2004 | Large Check: 1 | Sherrie Levine | 1987 |
| 2004 | Large Check: 2 | Sherrie Levine | 1987 |
| 2004 | Large Check: 3 | Sherrie Levine | 1987 |
| 2004 | Large Check: 4 | Sherrie Levine | 1987 |
| 2004 | Large Check: 5 | Sherrie Levine | 1987 |
| 2004 | Large Check: 6 | Sherrie Levine | 1987 |
| 2004 | Large Check: 7 | Sherrie Levine | 1987 |
| 2004 | Large Check: 8 | Sherrie Levine | 1987 |
| 2004 | Large Check: 9 | Sherrie Levine | 1987 |
| 2004 | Large Check: 10 | Sherrie Levine | 1987 |
| 2004 | Large Check: 11 | Sherrie Levine | 1987 |
| 2004 | Large Check: 12 | Sherrie Levine | 1987 |
| 2004 | Craig | Elizabeth Peyton | 1997 |
| 2004 | Empirical Construction, Istanbul | Julie Mehretu | 2003 |
| 2004 | Wrist Corsage | Lisa Yuskavage | 1996 |
| 2005 | More than You Know | Elizabeth Murray | 1983 |
| 2005 | Blue About | Bridget Riley | 1983 |
| 2005 | Creative Artists Agency (Los Angeles) | Sarah Morris | 2005 |
| 2005 | Ringaround Arosie | Eva Hesse | 1965 |
| 2005 | Presentation | Dana Schutz | 2005 |
| 2005 | Rhapsody | Jennifer Bartlett | 1975 |
| 2005 | Gun with Hand #1 | Vija Celmins | 1964 |
| 2005 | Flying Fortress | Vija Celmins | 1966 |
| 2005 | Web #3 | Vija Celmins | 2000 |
| 2005 | Breaking | Sue Coe | 1984 |
| 2005 | Triphammer Bridge | Susan Rothenberg | 1974 |
| 2005 | Black in Place | Susan Rothenberg | 1976 |
| 2005 | Smoker | Susan Rothenberg | 1978 |
| 2005 | Untitled | Carmen Herrera | 1952 |
| 2005 | The Painter | Marlene Dumas | 1994 |
| 2006 | Do the Dance | Elizabeth Murray | 2005 |
| 2006 | Untitled | Mira Schendel | 1963 |
| 2006 | Jen | Marlene Dumas | 2005 |
| 2007 | The Bricks | Reena Spaulings | 2006 |
| 2007 | Psychology Today | Amy Sillman | 2006 |
| 2007 | Untitled | Lucy McKenzie | 2002 |
| 2007 | Untitled | Lucy McKenzie | 2002 |
| 2008 | Untitled | Rosemarie Trockel | 1987 |
| 2008 | Planes in Modulated Surface 4 | Lygia Clark | 1957 |
| 2008 | Pilgrim | Sandra Gamarra | 2008 |
| 2008 | Guano-Round | Judit Reigl | 1958 |
| 2008 | Painting To Be Stepped On | Yoko Ono | 1961 |
| 2009 | Rionegro, Santander | Beatriz Gonz |
1967 |
| 2009 | iamb (blind smile): Chapter 12 | R. H. Quaytman | 2008 |
| 2009 | The Sun: Chapter 1 | R. H. Quaytman | 2001 |
| 2009 | iamb (The Limbo of Vanity): Chapter 12 | R. H. Quaytman | 2008 |
| 2009 | iamb (lateral inhibitions in the perceptual field): Chapter 12 | R. H. Quaytman | 2008 |
| 2009 | iamb (lateral inhibitions in the perceptual field): Chapter 12 | R. H. Quaytman | 2009 |
| 2009 | Optima: Chapter 3 | R. H. Quaytman | 2004 |
| 2009 | Green Bar | Susan Rothenberg | 2008 |
| 2009 | Beat the Devil | Jacqueline Humphries | 2008 |
| 2010 | On Time Off Time | Dorothea Tanning | 1948 |
| 2010 | Wall Wailing | Marlene Dumas | 2009 |
| 2010 | Bitches Brew | Jutta Koether | 2010 |
| 2010 | Igitur | Charline von Heyl | 2008 |
| 2010 | Drawing and Painting | Jennifer Bartlett | 1974 |
| 2011 | Vibrational Structure from a Circle, Series B | Lidy Prati | 1951 |
| 2011 | Winter Group 3: Red, Green, Blue, and Gold | Pat Steir | 2009 |
| 2011 | Keffieh | Mona Hatoum | 1993 |
| 2011 | Blocked Radiant (for Ioana) | Kerstin Br |
2011 |
| 2012 | Uphe | Tomma Abts | 2011 |
| 2012 | 36 by 36 | Sylvia Plimack Mangold | 1975 |
| 2012 | Untitled | Tauba Auerbach | 2012 |
| 2013 | Coney Island II | Mary Weatherford | 2012 |
| 2013 | “Keep for Old Memiors” | Betye Saar | 1976 |
| 2013 | The Invitation | Betye Saar | 1991 |
| 2013 | Medea’s Hypostases II | Geta Bratescu | 1980 |
| 2013 | Medea’s Hypostases III | Geta Bratescu | 1980 |
| 2013 | Medea’s Hypostases IV | Geta Bratescu | 1980 |
| 2013 | Untitled | Laura Owens | 2013 |
| 2014 | MLR | Isa Genzken | 1992 |
| 2014 | Sciencia | Maria Lassnig | 1998 |
| 2014 | Memory: Past | Howardena Pindell | 1980 |
| 2014 | Trap #1 | Denise Green | 1976 |
| 2014 | To the Last | Lynette Yiadom-Boakye | 2013 |
| 2014 | Where It Had Been | Lynette Yiadom-Boakye | 2013 |
| 2014 | The Myriad Motives of Men | Lynette Yiadom-Boakye | 2014 |
| 2015 | Untitled | Lee Bontecou | 1963 |
| 2015 | Beach Runner (Clara) | Nicole Eisenman | 2014 |
| 2015 | Invisible Sun (algorithm 5, second letter form) | Julie Mehretu | 2014 |
| 2015 | Fiery Sunset | Alma Woodsey Thomas | 1973 |
| 2015 | Untitled | Etel Adnan | 1965 |
| 2015 | Little Three for Two: Red, Yellow, Blue | Mary Heilmann | 1976 |
| 2015 | Tehachapi II | Mary Heilmann | 1979 |
| 2016 | Still Life | Mira Schendel | 1953 |
| 2016 | Add | Sarah Grilo | 1965 |
| 2016 | Duns Scotus | Michaela Eichwald | 2015 |
| 2016 | American People Series #20: Die | Faith Ringgold | 1967 |
| 2016 | Untitled, from the series Refrigerators (Geladeiras) | Mira Schendel | 1960 |
| 2016 | Visual Chess | Antonieta Sosa | 1965 |
| 2016 | THE CHAIRMAN, JOINT CHIEFS OF STAFF WHITE | Jenny Holzer | 2006 |
| 2017 | Antigone | Zilia S |
1970 |
| 2017 | Self-Portrait with Two Flowers in Her Raised Left Hand | Paula Modersohn-Becker | 1907 |
| 2017 | David Bourdon | Sylvia Sleigh | 1969 |
| 2017 | Bitmap Gradient Ray III | Tauba Auerbach | 2015 |
| 2017 | Hold your Fire (Men and Machines) | Rosalyn Drexler | 1966 |
| 2017 | Tableau (preparing) | Silke Otto-Knapp | 2017 |
| 2017 | The Bicentennial Champion | Joan Brown | 1976 |
| 2017 | Night Light | Joan Semmel | 1978 |
| 2017 | Skylark | Lynette Yiadom-Boakye | 2010 |
Atividade 12: Qual o artista ficou mais tempo vivo?
O artista, nesse caso a artista, que viveu mais tempo foi Dorothea Tanning, 102 anos.
idade <- Banco_Moma$artist_death_year - Banco_Moma$artist_birth_year
Banco_Moma["idade"] <- Banco_Moma$artist_death_year - Banco_Moma$artist_birth_year
Banco_Moma %>% select(idade,artist) %>% arrange(desc(idade))## # A tibble: 2,253 x 2
## idade artist
## <dbl> <chr>
## 1 102 Dorothea Tanning
## 2 101 Will Barnet
## 3 101 Clara McDonald Williamson
## 4 101 Theodore Lux Feininger
## 5 99 Georgia O'Keeffe
## 6 99 Georgia O'Keeffe
## 7 99 Enrico Donati
## 8 99 Enrico Donati
## 9 99 Georgia O'Keeffe
## 10 99 Georgia O'Keeffe
## # ... with 2,243 more rowsAtividade 13: Qual a idade média de um artista?
A idade média de um artista é 74,7 anos, arredondando = 75 anos.
Banco_Moma %>% summarise(media=mean(idade,na.rm=TRUE)) %>% kable()| media |
|---|
| 74.66379 |
Atividade 14: Artistas homens vivem mais do que as mulheres?
Sim, em média artistas homens vivem mais que as mulheres.
Banco_Moma %>% group_by(artist_gender) %>% summarise(media=mean(idade,na.rm=TRUE))%>% kable()| artist_gender | media |
|---|---|
| Female | 74.02439 |
| Male | 74.72163 |
| NA | 72.00000 |
Conclusão
Diante das questões analisadas, pode-se notar que desde sua constituição, isto é, seu início, o Museu sempre deu preferência às obras de artistas do gênero masculino em detrimento das artistas do gênero feminino, visto que a primeira obra adquirida foi de um homem (a primeira obra de pintada por uma mulher só foi adquirada 7 anos depois!), o artista que possui
mais pinturas no Museu também é um homem, a maior parte das pinturas também são de artistas do gênero masculino e os homens são a maioria dentre os artistas em geral (que o moma possui obras). Óbvio que tal realidade deve ter sido influenciada pelo preconceito e desigualdade de gênero que era bem maior na época em que o museu iniciou suas atividades. Portanto, deveria o museu começar um projeto visando a aquisição de mais obras criadas por artistas mulheres (obras contemporâneas mesmo, como forma de enaltecer e incentivar essa carreira para as mulheres), dessa forma, mostraria que o trabalho das mulheres tem igual relevância e qualidade frente aos dos homens.