Atividade 7 - Análise do MoMA
Natália Simões
01/12/2022
Base de dados:
library(readr)
Banco_Moma <- read_delim("https://raw.githubusercontent.com/DATAUNIRIO/Base_de_dados/master/arte_MOMA.csv", delim = ";")## New names:
## 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,...
## i Use `spec()` to retrieve the full column specification for this data. i
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## * `` -> `...1`Bibliotecas:
library(readr)
library(dplyr)
library(ggplot2)
library(ggthemes)
library(flextable)Atividade 1: Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?
R: No MoMA existem 2.253 pinturas, e 24 variáveis.
str(Banco_Moma)## spc_tbl_ [2,253 x 24] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ ...1 : num [1:2253] 1 2 3 4 5 6 7 8 9 10 ...
## $ title : chr [1:2253] "Rope and People, I" "Fire in the Evening" "Portrait of an Equilibrist" "Guitar" ...
## $ artist : chr [1:2253] "Joan Mir<f3>" "Paul Klee" "Paul Klee" "Pablo Picasso" ...
## $ artist_bio : chr [1:2253] "(Spanish, 1893-1983)" "(German, born Switzerland. 1879-1940)" "(German, born Switzerland. 1879-1940)" "(Spanish, 1881-1973)" ...
## $ artist_birth_year: num [1:2253] 1893 1879 1879 1881 1880 ...
## $ artist_death_year: num [1:2253] 1983 1940 1940 1973 1946 ...
## $ num_artists : num [1:2253] 1 1 1 1 1 1 1 1 1 1 ...
## $ n_female_artists : num [1:2253] 0 0 0 0 0 0 0 0 0 0 ...
## $ n_male_artists : num [1:2253] 1 1 1 1 1 1 1 1 1 1 ...
## $ artist_gender : chr [1:2253] "Male" "Male" "Male" "Male" ...
## $ year_acquired : num [1:2253] 1936 1970 1966 1955 1939 ...
## $ year_created : num [1:2253] 1935 1929 1927 1919 1925 ...
## $ circumference_cm : logi [1:2253] NA NA NA NA NA NA ...
## $ depth_cm : num [1:2253] NA NA NA NA NA NA NA NA NA NA ...
## $ diameter_cm : logi [1:2253] NA NA NA NA NA NA ...
## $ height_cm : num [1:2253] 1048 338 603 2159 508 ...
## $ length_cm : logi [1:2253] NA NA NA NA NA NA ...
## $ width_cm : num [1:2253] 746 333 368 787 54 ...
## $ seat_height_cm : logi [1:2253] NA NA NA NA NA NA ...
## $ purchase : logi [1:2253] FALSE FALSE FALSE FALSE FALSE FALSE ...
## $ gift : logi [1:2253] TRUE FALSE FALSE TRUE TRUE FALSE ...
## $ exchange : logi [1:2253] FALSE FALSE FALSE FALSE TRUE FALSE ...
## $ classification : chr [1:2253] "Painting" "Painting" "Painting" "Painting" ...
## $ department : chr [1:2253] "Painting & Sculpture" "Painting & Sculpture" "Painting & Sculpture" "Painting & Sculpture" ...
## - attr(*, "spec")=
## .. cols(
## .. ...1 = col_double(),
## .. title = col_character(),
## .. artist = col_character(),
## .. artist_bio = col_character(),
## .. artist_birth_year = col_double(),
## .. artist_death_year = col_double(),
## .. num_artists = col_double(),
## .. n_female_artists = col_double(),
## .. n_male_artists = col_double(),
## .. artist_gender = col_character(),
## .. year_acquired = col_double(),
## .. year_created = col_double(),
## .. 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()
## .. )
## - attr(*, "problems")=<externalptr>Atividade 2: Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título?
R: A primeira pintura adquirida pelo MoMA foi em 1930, se chamada “House by the Railroad” e foi criada pelo pintor Edward Hopper em 1925.
summary(Banco_Moma$title)## Length Class Mode
## 2253 character characterBanco_Moma %>% arrange(year_acquired)## # A tibble: 2,253 x 24
## ...1 title artist artis~1 artis~2 artis~3 num_a~4 n_fem~5 n_mal~6 artis~7
## <dbl> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 33 House b~ "Edwa~ (Ameri~ 1882 1967 1 0 1 Male
## 2 42 Seated ~ "Bern~ (Ameri~ 1886 1952 1 0 1 Male
## 3 8 Dayligh~ "Pier~ (Frenc~ 1880 1950 1 0 1 Male
## 4 16 Plums o~ "Pres~ (Ameri~ 1889 1930 1 0 1 Male
## 5 34 Dr. May~ "Otto~ (Germa~ 1891 1969 1 0 1 Male
## 6 9 The Bat~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 7 124 Pines a~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 8 134 Still L~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 9 147 Still L~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 10 208 Italian~ "Arth~ (Ameri~ 1862 1928 1 0 1 Male
## # ... with 2,243 more rows, 14 more variables: year_acquired <dbl>,
## # year_created <dbl>, circumference_cm <lgl>, depth_cm <dbl>,
## # diameter_cm <lgl>, height_cm <dbl>, length_cm <lgl>, width_cm <dbl>,
## # seat_height_cm <lgl>, purchase <lgl>, gift <lgl>, exchange <lgl>,
## # classification <chr>, department <chr>, and abbreviated variable names
## # 1: artist_bio, 2: artist_birth_year, 3: artist_death_year, 4: num_artists,
## # 5: n_female_artists, 6: n_male_artists, 7: artist_genderAtividade 3: Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual título?
R: A pintura mais antiga da coleção do MoMA se chama “Landscape at Daybreak” do pintor Odilon Redon, criada em 1872 e adquirada em 2000.
Banco_Moma %>% arrange(year_created)## # A tibble: 2,253 x 24
## ...1 title artist artis~1 artis~2 artis~3 num_a~4 n_fem~5 n_mal~6 artis~7
## <dbl> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 697 Landsca~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 2 666 Apache ~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 3 668 Apache ~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 4 673 Fishing~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 5 703 Rocky P~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 6 708 The Roc~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 7 713 Landsca~ "Odil~ (Frenc~ 1840 1916 1 0 1 Male
## 8 288 Still L~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 9 1483 L'Estaq~ "Paul~ (Frenc~ 1839 1906 1 0 1 Male
## 10 966 On the ~ "Clau~ (Frenc~ 1840 1926 1 0 1 Male
## # ... with 2,243 more rows, 14 more variables: year_acquired <dbl>,
## # year_created <dbl>, circumference_cm <lgl>, depth_cm <dbl>,
## # diameter_cm <lgl>, height_cm <dbl>, length_cm <lgl>, width_cm <dbl>,
## # seat_height_cm <lgl>, purchase <lgl>, gift <lgl>, exchange <lgl>,
## # classification <chr>, department <chr>, and abbreviated variable names
## # 1: artist_bio, 2: artist_birth_year, 3: artist_death_year, 4: num_artists,
## # 5: n_female_artists, 6: n_male_artists, 7: artist_genderAtividade 4: Quantos artistas distintos existem?
R: Existem 989 artistas distintos.
Banco_Moma %>% select(artist) %>% count(artist) %>% count() %>% pull(n) ## [1] 989Atividade 5: Qual artista tem mais pinturas na coleção?
R: Pablo Picasso.
tabela = table(Banco_Moma$artist)
tabela##
## <c9>douard Vuillard
## 4
## <c9>mile Bernard
## 1
## <d6>yvind Fahlstr<f6>m
## 1
## 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<ed>n Fern<e1>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<e9>d<e9>e Ozenfant
## 1
## Amedeo Modigliani
## 2
## Amelia Pel<e1>ez Del Casal
## 2
## Amy Sillman
## 1
## Andr<e9> Bauchant
## 2
## Andr<e9> Derain
## 10
## Andr<e9> Lanskoy
## 1
## Andr<e9> Marchand
## 1
## Andr<e9> Masson
## 9
## Andrew Wyeth
## 1
## Andy Warhol
## 15
## Annette Lemieux
## 1
## Anselm Kiefer
## 5
## Antoine Pevsner
## 1
## Anton Refregier
## 1
## Antoni T<e0>pies
## 3
## Antonieta Sosa
## 1
## Antonio Berni
## 1
## Antonio Corpora
## 1
## Antonio L<f3>pez Garc<ed>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<f3>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<e1>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
## C<e2>ndido Portinari
## 1
## C<e9>sar Paternosto
## 1
## Camille Bombois
## 1
## Camille Graeser
## 2
## Carl-Henning Pedersen
## 1
## Carl Buchheister
## 1
## Carlo Carr<e0>
## 2
## Carlos Cruz-Diez
## 1
## Carlos Gonz<e1>lez Bogen
## 1
## Carlos Zilio
## 1
## Carmen Herrera
## 1
## Carroll Cloar
## 1
## Carroll Dunham
## 2
## Ch<e9>ri Samba
## 1
## Chaim Soutine
## 4
## Charles Hinman
## 1
## Charles Seliger
## 1
## Charles Sheeler
## 2
## Charline von Heyl
## 1
## Charmion von Wiegand
## 1
## Check Boterf
## 1
## Cheyney Thompson
## 1
## Chris Ofili
## 3
## Christian B<e9>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<fa>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
## 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
## Emilio Pettoruti
## 1
## Emilio Rodr<ed>guez Larra<ed>n
## 1
## Emilio Vedova
## 2
## Enrico Donati
## 2
## Enrico Prampolini
## 1
## Enrique Za<f1>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
## Eug<e8>ne Carri<e8>re
## 1
## Eugene Berman
## 5
## 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<e9>ger
## 15
## Fernando Botero
## 2
## Fidelio Ponce De Le<f3>n
## 1
## Fletcher Martin
## 1
## Florine Stettheimer
## 2
## Forrest Bess
## 2
## Fran<e7>ois Morellet
## 1
## Francesco Clemente
## 2
## Francis Al<ff>s
## 4
## Francis Bacon
## 5
## Francis Celentano
## 1
## Francis Picabia
## 9
## Francisco Bor<e8>s
## 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
## G<e9>rard Schneider
## 1
## G<fc>nther F<f6>rg
## 2
## 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
## 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
## Gr<e9>goire M<fc>ller
## 1
## Grace Hartigan
## 3
## Graham Coughtry
## 1
## Graham Sutherland
## 2
## Gregory Amenoff
## 1
## Guido Molinari
## 1
## Guillermo Kuitca
## 2
## Gustaf Oscar Dalstr<f6>m
## 1
## Gustav Klimt
## 2
## Guy P<e8>ne du Bois
## 1
## Guyton\\Walker, Wade Guyton, Kelley Walker
## 1
## Gwen John
## 3
## H<e9>lio Oiticica
## 1
## 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
## 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<e9> 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
## J<f3>hannes Sveinsson Kjarval
## 1
## J<f6>rg Immendorff
## 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<fc>ller
## 1
## Jane Wilson
## 1
## Janet Sobel
## 2
## Jankel Adler
## 1
## Jasper Johns
## 12
## Jean-Paul Riopelle
## 1
## Jean (Hans) Arp
## 3
## Jean <c8>ve
## 1
## Jean Bazaine
## 1
## Jean Charlot
## 2
## Jean Dubuffet
## 25
## Jean Fautrier
## 1
## Jean H<e9>lion
## 3
## Jean Lur<e7>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
## Jes<fa>s Rafael Soto
## 2
## Jess
## 1
## Jewett Campbell
## 1
## Jim Dine
## 5
## Jim Nutt
## 2
## Jimmy Ernst
## 2
## Jo Baer
## 2
## Joan Brown
## 2
## Joan Josep Tharrats
## 1
## Joan Mir<f3>
## 19
## Joan Mitchell
## 6
## Joan Semmel
## 1
## Joan Snyder
## 1
## Joan Witek
## 1
## Joanna Pousette-Dart
## 1
## Joaqu<ed>n Torres-Garc<ed>a
## 7
## Joe Bradley
## 2
## Joe Goode
## 1
## Johannes Itten
## 2
## 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
## Jorge Damiani
## 2
## Jorge Eielson
## 1
## Jos<e9> Clemente Orozco
## 4
## Jos<e9> Mar<ed>a Sicilia
## 1
## Jos<e9> Pancetti
## 1
## Jose Antonio Fern<e1>ndez-Muro
## 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<e9>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<e4>tsch
## 1
## Kerstin Br<e4>tsch, Adele R<f6>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<ef>
## 1
## Kurt Roesch
## 1
## Kurt Schwitters
## 1
## Kurt Seligmann
## 1
## L<e1>szl<f3> Moholy-Nagy
## 8
## Lajos D'Ebneth
## 1
## Lari Pittman
## 1
## Larry Poons
## 1
## Larry Rivers
## 5
## Larry Zox
## 1
## Laura Owens
## 1
## Lawrence Calcagno
## 1
## Lawrence Lebduska
## 2
## Lawrence Stephen Lowry
## 1
## Lawrence Weiner
## 2
## Le Corbusier (Charles-<c9>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<ed>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<ed>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<fc>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<eb>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<f1>o
## 1
## On Kawara
## 32
## Onofrio A. Pacenza
## 1
## Oscar Dom<ed>nguez
## 1
## Oskar Kokoschka
## 4
## Oskar Schlemmer
## 1
## Otto Dix
## 3
## Otto Freundlich
## 2
## Otto Mueller
## 1
## Otto Piene
## 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-<c9>mile Borduas
## 1
## Paul (Pavel Mansurov) Mansouroff
## 1
## Paul Burlin
## 2
## Paul C<e9>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<e9> 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
## Ra<fa>l Anguiano
## 1
## 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
## Raymond Parker
## 2
## Red Grooms
## 1
## Ree Morton
## 1
## Reena Spaulings
## 1
## Reginald Marsh
## 1
## Ren<e9> Br<f4>
## 1
## Ren<e9> Magritte
## 7
## Ren<e9> Pierre Tal-Coat
## 2
## Ren<e9> Robert Bouch<e9>
## 1
## Ren<e9> Vincent
## 1
## Renato Cristiano
## 1
## Renato Guttuso
## 2
## 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<e8>re
## 1
## Roger Brown
## 1
## Roger de La Fresnaye
## 1
## Roger van Rogger
## 1
## Roland Dorc<e9>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<e9>n N<fa><f1>ez
## 2
## Rudolf Baranik
## 1
## Rufino Tamayo
## 4
## Ryan Sullivan
## 1
## S<e1>ndor (Alexander) Bortnyik
## 1
## S<e9>raphine Louis
## 1
## Saburo Murakami
## 1
## Saliba Douaihy
## 1
## Sally Hazelet Drummond
## 1
## Salvador Dal<ed>
## 4
## Salvatore Fiume
## 1
## Salvatore Scarpitta
## 1
## Sam Francis
## 3
## Sam Gilliam
## 2
## Sam Joseph Ntiro
## 1
## Sandra Blow
## 1
## Sandra Gamarra
## 1
## Sandro Chia
## 1
## Santiago C<e1>rdenas
## 1
## Sarah Grilo
## 1
## Sarah Morris
## 1
## Sarai Sherman
## 1
## Satish Gujral
## 1
## Sean Scully
## 3
## Seiji Chokai
## 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<ef>
## 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 K<fc>rten
## 1
## Stefan Knapp
## 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<fc>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<e9> 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<e1>r
## 1
## Vincent Canad<e9>
## 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<e1>nchez
## 1
## Zvi Gali
## 1Atividade 6: Quantas pinturas existem por este artista?
R: Existem 55 pinturas.
max(tabela)## [1] 55Banco_Moma %>% filter(artist=="Pablo Picasso")## # A tibble: 55 x 24
## ...1 title artist artis~1 artis~2 artis~3 num_a~4 n_fem~5 n_mal~6 artis~7
## <dbl> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 4 Guitar Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 2 18 Girl be~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 3 106 Pierrot Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 4 110 Night F~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 5 211 Woman b~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 6 219 Violin ~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 7 253 Three M~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 8 308 Harlequ~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 9 326 The Res~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## 10 329 Seated ~ Pablo~ (Spani~ 1881 1973 1 0 1 Male
## # ... with 45 more rows, 14 more variables: year_acquired <dbl>,
## # year_created <dbl>, circumference_cm <lgl>, depth_cm <dbl>,
## # diameter_cm <lgl>, height_cm <dbl>, length_cm <lgl>, width_cm <dbl>,
## # seat_height_cm <lgl>, purchase <lgl>, gift <lgl>, exchange <lgl>,
## # classification <chr>, department <chr>, and abbreviated variable names
## # 1: artist_bio, 2: artist_birth_year, 3: artist_death_year, 4: num_artists,
## # 5: n_female_artists, 6: n_male_artists, 7: artist_genderAtividade 7: Quantas pinturas de artistas masculinos e femininos?
R: Existem 252 de artistas do sexo feminino, 1991 pinturas de artistas do sexo masculino e mais 10 artistas com dados faltantes.
Banco_Moma %>% count(artist_gender)## # A tibble: 3 x 2
## artist_gender n
## <chr> <int>
## 1 Female 252
## 2 Male 1991
## 3 <NA> 10Atividade 8: Quantos artistas de cada gênero existem?
R: Existem 143 artistas do sexo feminino, 837 artistas do sexo masculino e 9 artistas com dados faltantes.
Banco_Moma %>% select(artist, artist_gender) %>% count(artist, artist_gender) %>% count(artist_gender) %>% mutate(n = as.character(paste(n, "artistas")))## # A tibble: 3 x 2
## artist_gender n
## <chr> <chr>
## 1 Female 143 artistas
## 2 Male 837 artistas
## 3 <NA> 9 artistasAtividade 9: Em que ano foram adquiridas mais pinturas?
R: Em 1985.
tabela = table(Banco_Moma$year_acquired)
tabela##
## 1930 1931 1932 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946
## 2 2 1 14 22 18 19 8 31 18 39 71 22 17 15 5
## 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962
## 14 11 29 23 27 20 22 30 36 42 18 39 37 34 45 21
## 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978
## 33 36 38 23 65 20 45 37 28 7 16 11 24 19 17 21
## 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994
## 71 20 23 20 30 15 86 15 11 8 7 26 67 30 7 41
## 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010
## 13 33 21 26 24 29 11 25 4 27 67 21 13 55 21 18
## 2011 2012 2013 2014 2015 2016 2017
## 27 27 22 20 21 33 17Atividade 10: Em que ano foram criadas mais pinturas?
R: Em 1977.
tabela = table(Banco_Moma$year_created)
tabela##
## 1872 1875 1879 1882 1883 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895
## 1 6 2 1 2 2 1 2 4 5 2 1 2 3 2 3
## 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911
## 1 2 1 2 6 1 2 1 1 11 6 15 14 12 18 19
## 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927
## 33 21 37 18 11 14 13 9 11 13 13 11 14 25 23 27
## 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943
## 32 22 21 13 21 13 13 16 15 18 24 26 56 24 31 18
## 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959
## 28 13 22 18 25 32 37 16 27 27 23 28 34 32 26 42
## 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975
## 39 50 49 44 56 36 36 26 40 29 17 13 19 16 26 19
## 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991
## 26 57 13 23 10 27 13 13 31 15 12 24 11 12 5 9
## 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007
## 9 6 9 5 6 10 4 3 10 8 7 5 6 19 6 4
## 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017
## 22 6 4 11 5 13 7 6 2 2Atividade 11: Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)? Quando essa pintura foi criada? Qual artista? Qual título?
R: A primeira pintura de uma artista feminina adquirida pelo MoMA foi em 1937, chamada “Landscape, 47” e criada em 1912, da artista Natalia Goncharova.
Banco_Moma %>% select(artist_gender, year_acquired, artist, title) %>% filter(artist_gender== "Female") %>% arrange(year_acquired) %>% flextable()artist_gender | year_acquired | artist | title |
|---|---|---|---|
Female | 1,937 | Natalia Goncharova | Landscape, 47 |
Female | 1,938 | Loren MacIver | Shack |
Female | 1,940 | Loren MacIver | Hopscotch |
Female | 1,941 | Irene Rice Pereira | Shadows with Painting |
Female | 1,941 | Varvara Stepanova | Figure |
Female | 1,942 | Amelia Pel攼㸱ez Del Casal | Still Life in Red |
Female | 1,942 | Irene Rice Pereira | White Lines |
Female | 1,942 | Maud Morgan | Musical Squash |
Female | 1,942 | Raquel Forner | Desolation |
Female | 1,943 | Frida Kahlo | Self-Portrait with Cropped Hair |
Female | 1,944 | Honor攼㸹 Sharrer | Workers and Paintings |
Female | 1,944 | Virginia Admiral | Composition |
Female | 1,944 | Amelia Pel攼㸱ez Del Casal | Fishes |
Female | 1,945 | Loren MacIver | Red Votive Lights |
Female | 1,945 | Georgia O'Keeffe | Farmhouse Window and Door |
Female | 1,947 | Fannie Hillsmith | Liquor Store Window |
Female | 1,949 | Katherine S. Dreier | Abstract Portrait of Marcel Duchamp |
Female | 1,950 | Elsa Schmid | Father D'Arcy |
Female | 1,951 | Jeanne Reynal | A Good Circular God |
Female | 1,953 | Grace Hartigan | The Persian Jacket |
Female | 1,954 | Grace Hartigan | River Bathers |
Female | 1,954 | Maria Helena Vieira da Silva | Dance |
Female | 1,954 | Clara McDonald Williamson | The Day the Bosque Froze Over |
Female | 1,954 | Hedda Sterne | New York, VIII |
Female | 1,955 | Ida E. Fischer | Florida Bark |
Female | 1,955 | Theora Hamblett | The Vision |
Female | 1,955 | Sonia Delaunay-Terk | Portuguese Market |
Female | 1,955 | Kay Sage | Hyphen |
Female | 1,956 | Florine Stettheimer | Family Portrait, II |
Female | 1,956 | Helen Frankenthaler | Trojan Gates |
Female | 1,956 | Sandra Blow | Winter |
Female | 1,958 | Lyubov Popova | Painterly Architectonic |
Female | 1,958 | Gwen John | Girl with Bare Shoulders |
Female | 1,960 | Grace Hartigan | Shinnecock Canal |
Female | 1,960 | Sarai Sherman | Bear Cat |
Female | 1,960 | Joan Brown | Thanksgiving Turkey |
Female | 1,960 | Helen Frankenthaler | Jacob's Ladder |
Female | 1,960 | Jane Wilson | The Open Scene |
Female | 1,961 | Eugenie Baizerman | Actress Dressing |
Female | 1,961 | Pamela Bianco | Pomegranate |
Female | 1,961 | Joan Mitchell | Ladybug |
Female | 1,961 | Nina Tryggvadottir | Painting |
Female | 1,962 | Sally Hazelet Drummond | Hummingbird |
Female | 1,963 | Gwen John | Girl with a Blue Scarf |
Female | 1,964 | Kirsten Kraa | Untitled |
Female | 1,964 | Elizabeth Sparhawk-Jones | Startled Woman |
Female | 1,964 | Bridget Riley | Current |
Female | 1,964 | Suzanne Valadon | Portrait of Mme Zamaron |
Female | 1,965 | Agnes Martin | The Tree |
Female | 1,965 | Eleanore Mikus | Tablet Number 84 |
Female | 1,965 | Maria Helena Vieira da Silva | The City |
Female | 1,965 | Atsuko Tanaka | Untitled |
Female | 1,966 | Marina Stern | Seven Minus Twenty-One Equals Seven |
Female | 1,968 | Janet Sobel | Milky Way |
Female | 1,968 | Loren MacIver | Jimmy Savo's Shoes |
Female | 1,968 | Helen Frankenthaler | Mauve District |
Female | 1,969 | Lee Krasner | Number 3 (Untitled) |
Female | 1,969 | Jo Baer | Primary Light Group: Red, Green, Blue |
Female | 1,969 | Lee Krasner | Untitled |
Female | 1,969 | Bridget Riley | Fission |
Female | 1,969 | Sophie Taeuber-Arp | Schematic Composition |
Female | 1,970 | S攼㸹raphine Louis | Tree of Paradise |
Female | 1,970 | Agnes Martin | Red Bird |
Female | 1,970 | Helen Frankenthaler | Commune |
Female | 1,971 | Dorothea Rockburne | A, C And D From Group/And |
Female | 1,971 | Gwen John | Girl Reading at a Window |
Female | 1,971 | Florine Stettheimer | Portrait of My Mother |
Female | 1,974 | Dorothea Rockburne | Golden Section Painting: Square Separated by Parallelogram |
Female | 1,975 | Audrey Flack | Leonardo's Lady |
Female | 1,976 | Frida Kahlo | My Grandparents, My Parents, and I (Family Tree) |
Female | 1,976 | Agnes Martin | Untitled Number 5 |
Female | 1,977 | Susan Rothenberg | Axes |
Female | 1,977 | Lee Krasner | Gaea |
Female | 1,979 | Georgia O'Keeffe | Abstraction Blue |
Female | 1,979 | Joan Snyder | Sweet Cathy's Song (For Cathy Elzea) |
Female | 1,979 | Pat Steir | Beautiful Painting with Color |
Female | 1,979 | Loren MacIver | Tree |
Female | 1,979 | Loren MacIver | Skylight |
Female | 1,979 | Joanna Pousette-Dart | "For Greg" |
Female | 1,979 | Kay Sage | Watching the Clock |
Female | 1,980 | Lois Lane | Untitled |
Female | 1,981 | Alice Baber | The Turning Door |
Female | 1,982 | Katherine Porter | I am an American... Uneasy Dreams |
Female | 1,982 | Agnes Martin | Untitled No. 1 |
Female | 1,983 | Jo Baer | Double-Bar, Grey (Green Line) |
Female | 1,983 | Barbara Kruger | Untitled (You Invest in the Divinity of the Masterpiece) |
Female | 1,983 | Elizabeth Murray | Painters Progress |
Female | 1,983 | Joan Witek | Memories of Underdevelopment |
Female | 1,983 | Alexandra Exter | Construction |
Female | 1,983 | Edda Renouf | This I |
Female | 1,984 | Michelle Stuart | Nazca Lines Star Chart and Nazca Lines Southern Hemisphere Constellation Chart Correlation |
Female | 1,984 | Agnes Martin | Friendship |
Female | 1,984 | Pat Steir | Nabaye Tabastan for L.T. & R. |
Female | 1,985 | Natalia Goncharova | Rayonism, Blue-Green Forest |
Female | 1,985 | Gertrude Greene | Construction |
Female | 1,985 | Marlow Moss | White with Rope |
Female | 1,985 | Marlow Moss | Composition in Black and White Number 4 |
Female | 1,985 | Lyubov Popova | Subject from a Dyer's Shop |
Female | 1,985 | Olga Rozanova | The Factory and the Bridge |
Female | 1,985 | Sophie Taeuber-Arp | Composition of Circles and Overlapping Angles |
Female | 1,985 | Charmion von Wiegand | Sanctuary of the Four Directions |
Female | 1,985 | Edda Renouf | On III |
Female | 1,986 | Susan Rothenberg | Biker |
Female | 1,986 | Yvonne Jacquette | Shinjuku Pleasure District, Tokyo II |
Female | 1,987 | Janet Sobel | Untitled |
Female | 1,987 | Shirley Jaffe | Hop and Skip |
Female | 1,987 | Frida Kahlo | Fulang-Chang and I |
Female | 1,987 | Annette Lemieux | Keeper |
Female | 1,988 | Alice Neel | Benny and Mary Ellen Andrews |
Female | 1,988 | Alice Neel | Kenneth Fearing |
Female | 1,988 | Ree Morton | Of Previous Dissipations |
Female | 1,989 | Ida Applebroog | Chronic Hollow |
Female | 1,990 | Elizabeth Murray | Dis Pair |
Female | 1,990 | Agnes Martin | Untitled #6 |
Female | 1,990 | Joan Mitchell | Taillade |
Female | 1,991 | Meret Oppenheim | Red Head, Blue Body |
Female | 1,991 | Eva Hesse | Untitled |
Female | 1,991 | Eva Hesse | Untitled |
Female | 1,991 | Alexandra Exter | Cubist Nude |
Female | 1,991 | Alexandra Exter | Theatrical Composition |
Female | 1,992 | Sophie Calle | GHOSTS. Composed of GHOST (de Chirico: The Enigma of the Day), GHOST (Hopper: House by the Railroad), GHOST (Magritte: The Menaced Assasin) |
Female | 1,992 | Agnes Martin | Mountain I |
Female | 1,992 | Dorothea Rockburne | Scalar |
Female | 1,994 | Elizabeth Murray | Beam |
Female | 1,994 | Elizabeth Murray | Remover |
Female | 1,994 | Karin Sander | Wallpiece 24 x 18" |
Female | 1,994 | Joan Mitchell | Grandes Carri攼㸸res |
Female | 1,994 | Joan Mitchell | No Rain |
Female | 1,994 | Joan Mitchell | Untitled |
Female | 1,994 | Joan Mitchell | Wood, Wind, No Tuba |
Female | 1,994 | Georgia O'Keeffe | From a Day with Juan II |
Female | 1,994 | Helen Frankenthaler | Chairman of the Board |
Female | 1,995 | Georgia O'Keeffe | Lake George, Coat and Red |
Female | 1,996 | Agnes Martin | Harbor Number 1 |
Female | 1,996 | Sue Coe | Woman Walks into Bar - Is Raped by Four Men on the Pool Table - While 20 Watch |
Female | 1,997 | Hedda Sterne | Signs III |
Female | 1,997 | Elizabeth Murray | Yikes |
Female | 1,997 | Ellen Gallagher | Oh! Susanna |
Female | 1,997 | Sue Williams | Mom's Foot Blue and Orange |
Female | 1,997 | Yayoi Kusama | No. F |
Female | 1,998 | Agnes Martin | With My Back to the World |
Female | 2,000 | Elizabeth Peyton | Jake at the New Viet Huong |
Female | 2,001 | Ellen Gallagher | They Could Still Serve |
Female | 2,001 | Shirazeh Houshiary | Presence |
Female | 2,002 | Christina Ramberg | Wired |
Female | 2,002 | Vija Celmins | Night Sky #5 |
Female | 2,002 | Elizabeth Murray | Southern California |
Female | 2,002 | Susan Rothenberg | 1, 2, 3, 4, 5, 6 |
Female | 2,002 | Susan Rothenberg | Dogs Killing Rabbit |
Female | 2,002 | Beatriz Milhazes | Succulent Eggplants |
Female | 2,002 | Ellen Phelan | Light in Far Field |
Female | 2,004 | Lee Lozano | Untitled |
Female | 2,004 | Sherrie Levine | Large Check: 1 |
Female | 2,004 | Sherrie Levine | Large Check: 2 |
Female | 2,004 | Sherrie Levine | Large Check: 3 |
Female | 2,004 | Sherrie Levine | Large Check: 4 |
Female | 2,004 | Sherrie Levine | Large Check: 5 |
Female | 2,004 | Sherrie Levine | Large Check: 6 |
Female | 2,004 | Sherrie Levine | Large Check: 7 |
Female | 2,004 | Sherrie Levine | Large Check: 8 |
Female | 2,004 | Sherrie Levine | Large Check: 9 |
Female | 2,004 | Sherrie Levine | Large Check: 10 |
Female | 2,004 | Sherrie Levine | Large Check: 11 |
Female | 2,004 | Sherrie Levine | Large Check: 12 |
Female | 2,004 | Elizabeth Peyton | Craig |
Female | 2,004 | Julie Mehretu | Empirical Construction, Istanbul |
Female | 2,004 | Lisa Yuskavage | Wrist Corsage |
Female | 2,005 | Elizabeth Murray | More than You Know |
Female | 2,005 | Bridget Riley | Blue About |
Female | 2,005 | Sarah Morris | Creative Artists Agency (Los Angeles) |
Female | 2,005 | Eva Hesse | Ringaround Arosie |
Female | 2,005 | Dana Schutz | Presentation |
Female | 2,005 | Jennifer Bartlett | Rhapsody |
Female | 2,005 | Vija Celmins | Gun with Hand #1 |
Female | 2,005 | Vija Celmins | Flying Fortress |
Female | 2,005 | Vija Celmins | Web #3 |
Female | 2,005 | Sue Coe | Breaking |
Female | 2,005 | Susan Rothenberg | Triphammer Bridge |
Female | 2,005 | Susan Rothenberg | Black in Place |
Female | 2,005 | Susan Rothenberg | Smoker |
Female | 2,005 | Carmen Herrera | Untitled |
Female | 2,005 | Marlene Dumas | The Painter |
Female | 2,006 | Elizabeth Murray | Do the Dance |
Female | 2,006 | Mira Schendel | Untitled |
Female | 2,006 | Marlene Dumas | Jen |
Female | 2,007 | Reena Spaulings | The Bricks |
Female | 2,007 | Amy Sillman | Psychology Today |
Female | 2,007 | Lucy McKenzie | Untitled |
Female | 2,007 | Lucy McKenzie | Untitled |
Female | 2,008 | Rosemarie Trockel | Untitled |
Female | 2,008 | Lygia Clark | Planes in Modulated Surface 4 |
Female | 2,008 | Sandra Gamarra | Pilgrim |
Female | 2,008 | Judit Reigl | Guano-Round |
Female | 2,008 | Yoko Ono | Painting To Be Stepped On |
Female | 2,009 | Beatriz Gonz攼㸱lez | Rionegro, Santander |
Female | 2,009 | R. H. Quaytman | iamb (blind smile): Chapter 12 |
Female | 2,009 | R. H. Quaytman | The Sun: Chapter 1 |
Female | 2,009 | R. H. Quaytman | iamb (The Limbo of Vanity): Chapter 12 |
Female | 2,009 | R. H. Quaytman | iamb (lateral inhibitions in the perceptual field): Chapter 12 |
Female | 2,009 | R. H. Quaytman | iamb (lateral inhibitions in the perceptual field): Chapter 12 |
Female | 2,009 | R. H. Quaytman | Optima: Chapter 3 |
Female | 2,009 | Susan Rothenberg | Green Bar |
Female | 2,009 | Jacqueline Humphries | Beat the Devil |
Female | 2,010 | Dorothea Tanning | On Time Off Time |
Female | 2,010 | Marlene Dumas | Wall Wailing |
Female | 2,010 | Jutta Koether | Bitches Brew |
Female | 2,010 | Charline von Heyl | Igitur |
Female | 2,010 | Jennifer Bartlett | Drawing and Painting |
Female | 2,011 | Lidy Prati | Vibrational Structure from a Circle, Series B |
Female | 2,011 | Pat Steir | Winter Group 3: Red, Green, Blue, and Gold |
Female | 2,011 | Mona Hatoum | Keffieh |
Female | 2,011 | Kerstin Br攼㸴tsch | Blocked Radiant (for Ioana) |
Female | 2,012 | Tomma Abts | Uphe |
Female | 2,012 | Sylvia Plimack Mangold | 36 by 36 |
Female | 2,012 | Tauba Auerbach | Untitled |
Female | 2,013 | Mary Weatherford | Coney Island II |
Female | 2,013 | Betye Saar | "Keep for Old Memiors" |
Female | 2,013 | Betye Saar | The Invitation |
Female | 2,013 | Geta Bratescu | Medea's Hypostases II |
Female | 2,013 | Geta Bratescu | Medea's Hypostases III |
Female | 2,013 | Geta Bratescu | Medea's Hypostases IV |
Female | 2,013 | Laura Owens | Untitled |
Female | 2,014 | Isa Genzken | MLR |
Female | 2,014 | Maria Lassnig | Sciencia |
Female | 2,014 | Howardena Pindell | Memory: Past |
Female | 2,014 | Denise Green | Trap #1 |
Female | 2,014 | Lynette Yiadom-Boakye | To the Last |
Female | 2,014 | Lynette Yiadom-Boakye | Where It Had Been |
Female | 2,014 | Lynette Yiadom-Boakye | The Myriad Motives of Men |
Female | 2,015 | Lee Bontecou | Untitled |
Female | 2,015 | Nicole Eisenman | Beach Runner (Clara) |
Female | 2,015 | Julie Mehretu | Invisible Sun (algorithm 5, second letter form) |
Female | 2,015 | Alma Woodsey Thomas | Fiery Sunset |
Female | 2,015 | Etel Adnan | Untitled |
Female | 2,015 | Mary Heilmann | Little Three for Two: Red, Yellow, Blue |
Female | 2,015 | Mary Heilmann | Tehachapi II |
Female | 2,016 | Mira Schendel | Still Life |
Female | 2,016 | Sarah Grilo | Add |
Female | 2,016 | Michaela Eichwald | Duns Scotus |
Female | 2,016 | Faith Ringgold | American People Series #20: Die |
Female | 2,016 | Mira Schendel | Untitled, from the series Refrigerators (Geladeiras) |
Female | 2,016 | Antonieta Sosa | Visual Chess |
Female | 2,016 | Jenny Holzer | THE CHAIRMAN, JOINT CHIEFS OF STAFF WHITE |
Female | 2,017 | Zilia S攼㸱nchez | Antigone |
Female | 2,017 | Paula Modersohn-Becker | Self-Portrait with Two Flowers in Her Raised Left Hand |
Female | 2,017 | Sylvia Sleigh | David Bourdon |
Female | 2,017 | Tauba Auerbach | Bitmap Gradient Ray III |
Female | 2,017 | Rosalyn Drexler | Hold your Fire (Men and Machines) |
Female | 2,017 | Silke Otto-Knapp | Tableau (preparing) |
Female | 2,017 | Joan Brown | The Bicentennial Champion |
Female | 2,017 | Joan Semmel | Night Light |
Female | 2,017 | Lynette Yiadom-Boakye | Skylark |
Atividade 12: Qual o artista ficou mais tempo vivo?
R: Foi Robert Goodnough, com 93 anos.
plot(Banco_Moma$artist_birth_year,Banco_Moma$artist_death_year, main = "Diagrama de Dispersão de Idade dos Artistas",ylab = "Morte",xlab = "Nascimento", abline(lsfit(Banco_Moma$artist_birth_year,Banco_Moma$artist_death_year), col="red"))
Atividade 13: Qual a idade média de um artista?
R: 70 anos.
boxplot(Banco_Moma$artist_birth_year ~ Banco_Moma$artist_death_year, ylab = "Ano de nascimento", xlab = "Ano de morte")
Atividade 14: Artistas homens vivem mais do que as mulheres?
R: Sim, pois o número de homens é superior ao número de mulheres.
tabela_nascimento = table(Banco_Moma$artist_birth_year,Banco_Moma$artist_gender)
tabela_nascimento##
## Female Male
## 1839 0 9
## 1840 0 30
## 1844 0 2
## 1848 0 4
## 1849 0 1
## 1853 0 3
## 1858 0 1
## 1859 0 5
## 1860 0 10
## 1861 0 3
## 1862 0 5
## 1863 0 3
## 1864 1 4
## 1865 1 0
## 1866 0 7
## 1867 0 9
## 1868 0 6
## 1869 0 32
## 1870 0 2
## 1871 2 16
## 1872 0 25
## 1873 0 2
## 1874 0 8
## 1875 1 6
## 1876 4 2
## 1877 1 12
## 1878 0 12
## 1879 0 27
## 1880 0 26
## 1881 2 84
## 1882 3 28
## 1883 1 18
## 1884 0 11
## 1885 2 13
## 1886 1 25
## 1887 4 27
## 1888 0 28
## 1889 4 15
## 1890 2 14
## 1891 1 22
## 1892 0 13
## 1893 0 39
## 1894 3 14
## 1895 1 10
## 1896 2 25
## 1897 1 5
## 1898 2 23
## 1899 2 23
## 1900 2 26
## 1901 0 39
## 1902 1 43
## 1903 2 38
## 1904 1 35
## 1905 0 21
## 1906 1 15
## 1907 5 5
## 1908 5 18
## 1909 6 16
## 1910 3 13
## 1911 1 18
## 1912 9 38
## 1913 2 44
## 1914 0 16
## 1915 2 16
## 1916 1 11
## 1917 0 41
## 1918 0 6
## 1919 5 12
## 1920 2 15
## 1921 1 20
## 1922 4 28
## 1923 2 49
## 1924 2 25
## 1925 8 22
## 1926 7 17
## 1927 1 18
## 1928 7 56
## 1929 4 8
## 1930 2 45
## 1931 5 28
## 1932 5 31
## 1933 1 47
## 1934 1 11
## 1935 0 43
## 1936 4 38
## 1937 0 33
## 1938 9 38
## 1939 0 22
## 1940 15 17
## 1941 4 20
## 1942 0 9
## 1943 5 7
## 1944 0 9
## 1945 9 16
## 1946 2 4
## 1947 13 6
## 1948 2 5
## 1949 0 12
## 1950 1 1
## 1951 2 3
## 1952 2 8
## 1953 4 3
## 1954 1 9
## 1955 2 7
## 1956 0 2
## 1957 2 5
## 1958 1 7
## 1959 0 7
## 1960 3 2
## 1961 6 5
## 1962 1 4
## 1963 1 2
## 1965 5 1
## 1966 0 5
## 1967 3 4
## 1968 0 7
## 1969 0 3
## 1970 4 0
## 1972 1 3
## 1973 0 6
## 1974 0 1
## 1975 0 6
## 1976 1 6
## 1977 6 0
## 1978 0 1
## 1979 1 0
## 1981 2 0
## 1982 0 1
## 1983 0 1
## 1984 0 1
## 1987 0 0tabela_morte = table(Banco_Moma$artist_death_year,Banco_Moma$artist_gender)
tabela_morte##
## Female Male
## 1890 0 3
## 1891 0 4
## 1903 0 3
## 1906 0 10
## 1907 1 0
## 1910 0 2
## 1914 0 1
## 1916 0 33
## 1918 1 4
## 1920 0 2
## 1924 2 1
## 1925 0 2
## 1926 0 5
## 1927 0 6
## 1928 0 3
## 1930 0 4
## 1931 0 4
## 1932 0 1
## 1934 0 7
## 1935 0 9
## 1936 0 3
## 1938 1 3
## 1939 3 0
## 1940 0 19
## 1941 0 10
## 1942 1 2
## 1943 2 11
## 1944 2 24
## 1946 0 25
## 1947 0 7
## 1948 0 10
## 1949 4 21
## 1950 0 7
## 1951 0 2
## 1952 1 9
## 1953 0 21
## 1954 3 50
## 1955 0 36
## 1956 2 31
## 1957 0 19
## 1958 3 13
## 1959 0 7
## 1960 0 7
## 1961 0 12
## 1962 2 17
## 1963 2 21
## 1964 0 17
## 1965 0 23
## 1966 0 29
## 1967 0 27
## 1968 5 20
## 1969 0 9
## 1970 4 23
## 1971 3 6
## 1972 0 16
## 1973 0 60
## 1974 0 23
## 1975 0 9
## 1976 1 42
## 1977 2 7
## 1978 1 28
## 1979 1 9
## 1980 0 38
## 1981 0 15
## 1982 1 12
## 1983 2 23
## 1984 5 4
## 1985 1 37
## 1986 4 3
## 1987 0 33
## 1988 5 32
## 1989 0 7
## 1990 2 12
## 1991 0 20
## 1992 8 27
## 1993 0 12
## 1994 1 16
## 1995 1 9
## 1996 0 10
## 1997 0 30
## 1998 6 12
## 1999 2 20
## 2000 1 38
## 2001 0 12
## 2002 0 19
## 2003 0 5
## 2004 9 21
## 2005 1 16
## 2006 1 14
## 2007 10 11
## 2008 4 16
## 2009 1 11
## 2010 1 22
## 2011 5 18
## 2012 1 12
## 2013 0 21
## 2014 1 15
## 2015 1 14
## 2016 1 5
## 2017 1 13
## 2018 0 4par(mfrow=c(1,2))
barplot(tabela_nascimento,beside = T, main = "Gráfico de Nascimentos",)
barplot(tabela_morte,beside = T, main = "Gráfico de Mortes")
Atividade 15: Recriar o gráfico do fivethirtyeight:
grafico_moma <- 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(grafico_moma, aes(x = width_cm, y = height_cm, colour = hw_cat)) +
geom_point(alpha = .5) +
ggtitle("Altura e largura das pinturas do MoMA") +
scale_colour_manual(name = "",
values = c("gray50", "#FF9900", "#B14CF0")) +
theme_fivethirtyeight() +
theme(axis.title = element_text()) +
labs(x = "Largura", y = "Altura")