Atividade Moma

Neste trabalho, irei responder algumas questões relacionadas a base de dados “arte_MOMA”, disponibilizada pelo professor Steven Dutt-Ross, em seu curso de Estatística da UNIRIO.

Primeiro, irei carregar a base de dados

library(readr)
arte_MOMA <- read_delim("C:/Users/Arthur/Desktop/Base_de_dados-master/arte_MOMA.csv",
                        ";", escape_double = FALSE, trim_ws = FALSE)

## 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.

1) Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados? Resposta: 2253 pinturas e 24 variáveis.

2) Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título? R: Seriam duas pinturas, “House by the railroad” e “Seated Nude”, de Edward Hopper e Bernard Karfiol, respectivamente, ambas foram adquiridas em 1930.

Como cheguei a resposta:

summary(arte_MOMA$year_acquired)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    1930    1957    1975    1976    1996    2017       9

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, union

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

summary(arte_MOMA$year_created)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    1872    1933    1956    1954    1972    2017       5

arte_MOMA$year_created_antiga <- ifelse(arte_MOMA$year_created=="1872", "Mais_Antiga","Outro")
tabelaantiga<-table(arte_MOMA$year_created_antiga)
tabelaantiga

## 
## Mais_Antiga       Outro 
##           1        2247

arte_MOMA %>%
filter(year_created_antiga == "Mais_Antiga") %>% 
pull(title) %>% 
first()

## [1] "Landscape at Daybreak"

arte_MOMA %>%
filter(year_created_antiga == "Mais_Antiga") %>% 
pull(artist) %>% 
first()

## [1] "Odilon Redon"

Resposta: A pintura mais antiga do MOMA foi pintada em 1872, por Odylon Redon, se chama “Landscape at daybreak”.

4) Quantos artistas distintos existem?

class(arte_MOMA$artist)

## [1] "character"

arte_MOMA$artist<- as.factor(arte_MOMA$artist)
str(arte_MOMA$artist)

##  Factor w/ 989 levels "\"Edward C. (\"\"Pa\"\") Hunt\"",..: 455 728 728 712 98 280 135 752 723 245 ...

head(arte_MOMA$artist)

## [1] Joan Mir<f3>    Paul Klee       Paul Klee       Pablo Picasso  
## [5] Arthur Dove     Francis Picabia
## 989 Levels: "Edward C. (""Pa"") Hunt" \xc9douard Vuillard ... Zvi Gali

tail(arte_MOMA$artist)

## [1] Henry Taylor          Joan Semmel           Lynette Yiadom-Boakye
## [4] Wade Guyton           Mark Bradford         Chris Ofili          
## 989 Levels: "Edward C. (""Pa"") Hunt" \xc9douard Vuillard ... Zvi Gali

Resposta: São 989 artistas.

Qual artista tem mais pinturas na coleção? Resposta: Pablo Picasso.

summary(arte_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

####6) Quantas pinturas existem por este artista? Resposta: 55

7) Quantas pinturas de artistas masculinos e femininos?

arte_MOMA$artist_gender<-as.factor(arte_MOMA$artist_gender)
class(arte_MOMA$artist_gender)

## [1] "factor"

table(arte_MOMA$department,arte_MOMA$artist_gender)

##                             
##                              Female Male
##   Film                            0   25
##   Fluxus Collection               1    4
##   Media and Performance Art       0    3
##   Painting & Sculpture          251 1935
##   Prints & Illustrated Books      0   24

Masculinos: 1935; Femininos: 251

8) Quantos artistas de cada gênero existem? Não consegui chegar ao resultado da questão.

9) Em que ano foram adquiridas mais pinturas?

class(arte_MOMA$year_acquired)

## [1] "numeric"

table(arte_MOMA$classification, arte_MOMA$year_acquired)

##           
##            1930 1931 1932 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943
##   Painting    2    2    1   14   22   18   19    8   31   18   39   71   22
##           
##            1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956
##   Painting   17   15    5   14   11   29   23   27   20   22   30   36   42
##           
##            1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969
##   Painting   18   39   37   34   45   21   33   36   38   23   65   20   45
##           
##            1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982
##   Painting   37   28    7   16   11   24   19   17   21   71   20   23   20
##           
##            1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995
##   Painting   30   15   86   15   11    8    7   26   67   30    7   41   13
##           
##            1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008
##   Painting   33   21   26   24   29   11   25    4   27   67   21   13   55
##           
##            2009 2010 2011 2012 2013 2014 2015 2016 2017
##   Painting   21   18   27   27   22   20   21   33   17

Resposta: 1985

10) Em que ano foram Criada mais pinturas?

table(arte_MOMA$classification, arte_MOMA$year_created)

##           
##            1872 1875 1879 1882 1883 1885 1886 1887 1888 1889 1890 1891 1892
##   Painting    1    6    2    1    2    2    1    2    4    5    2    1    2
##           
##            1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905
##   Painting    3    2    3    1    2    1    2    6    1    2    1    1   11
##           
##            1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918
##   Painting    6   15   14   12   18   19   33   21   37   18   11   14   13
##           
##            1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931
##   Painting    9   11   13   13   11   14   25   23   27   32   22   21   13
##           
##            1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944
##   Painting   21   13   13   16   15   18   24   26   56   24   31   18   28
##           
##            1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957
##   Painting   13   22   18   25   32   37   16   27   27   23   28   34   32
##           
##            1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970
##   Painting   26   42   39   50   49   44   56   36   36   26   40   29   17
##           
##            1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983
##   Painting   13   19   16   26   19   26   57   13   23   10   27   13   13
##           
##            1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996
##   Painting   31   15   12   24   11   12    5    9    9    6    9    5    6
##           
##            1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009
##   Painting   10    4    3   10    8    7    5    6   19    6    4   22    6
##           
##            2010 2011 2012 2013 2014 2015 2016 2017
##   Painting    4   11    5   13    7    6    2    2

Resposta: 1977

11) Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)? Quando essa pintura foi criada? Qual artista? Qual título?

table(arte_MOMA$classification, arte_MOMA$n_female_artists, arte_MOMA$year_acquired)

## , ,  = 1930
## 
##           
##             0  1  2
##   Painting  2  0  0
## 
## , ,  = 1931
## 
##           
##             0  1  2
##   Painting  2  0  0
## 
## , ,  = 1932
## 
##           
##             0  1  2
##   Painting  1  0  0
## 
## , ,  = 1934
## 
##           
##             0  1  2
##   Painting 14  0  0
## 
## , ,  = 1935
## 
##           
##             0  1  2
##   Painting 22  0  0
## 
## , ,  = 1936
## 
##           
##             0  1  2
##   Painting 18  0  0
## 
## , ,  = 1937
## 
##           
##             0  1  2
##   Painting 18  1  0
## 
## , ,  = 1938
## 
##           
##             0  1  2
##   Painting  7  1  0
## 
## , ,  = 1939
## 
##           
##             0  1  2
##   Painting 31  0  0
## 
## , ,  = 1940
## 
##           
##             0  1  2
##   Painting 17  1  0
## 
## , ,  = 1941
## 
##           
##             0  1  2
##   Painting 37  2  0
## 
## , ,  = 1942
## 
##           
##             0  1  2
##   Painting 67  4  0
## 
## , ,  = 1943
## 
##           
##             0  1  2
##   Painting 21  1  0
## 
## , ,  = 1944
## 
##           
##             0  1  2
##   Painting 14  3  0
## 
## , ,  = 1945
## 
##           
##             0  1  2
##   Painting 13  2  0
## 
## , ,  = 1946
## 
##           
##             0  1  2
##   Painting  5  0  0
## 
## , ,  = 1947
## 
##           
##             0  1  2
##   Painting 13  1  0
## 
## , ,  = 1948
## 
##           
##             0  1  2
##   Painting 11  0  0
## 
## , ,  = 1949
## 
##           
##             0  1  2
##   Painting 28  1  0
## 
## , ,  = 1950
## 
##           
##             0  1  2
##   Painting 22  1  0
## 
## , ,  = 1951
## 
##           
##             0  1  2
##   Painting 26  1  0
## 
## , ,  = 1952
## 
##           
##             0  1  2
##   Painting 20  0  0
## 
## , ,  = 1953
## 
##           
##             0  1  2
##   Painting 21  1  0
## 
## , ,  = 1954
## 
##           
##             0  1  2
##   Painting 26  4  0
## 
## , ,  = 1955
## 
##           
##             0  1  2
##   Painting 32  4  0
## 
## , ,  = 1956
## 
##           
##             0  1  2
##   Painting 39  3  0
## 
## , ,  = 1957
## 
##           
##             0  1  2
##   Painting 18  0  0
## 
## , ,  = 1958
## 
##           
##             0  1  2
##   Painting 37  2  0
## 
## , ,  = 1959
## 
##           
##             0  1  2
##   Painting 37  0  0
## 
## , ,  = 1960
## 
##           
##             0  1  2
##   Painting 29  5  0
## 
## , ,  = 1961
## 
##           
##             0  1  2
##   Painting 41  4  0
## 
## , ,  = 1962
## 
##           
##             0  1  2
##   Painting 20  1  0
## 
## , ,  = 1963
## 
##           
##             0  1  2
##   Painting 32  1  0
## 
## , ,  = 1964
## 
##           
##             0  1  2
##   Painting 32  4  0
## 
## , ,  = 1965
## 
##           
##             0  1  2
##   Painting 34  4  0
## 
## , ,  = 1966
## 
##           
##             0  1  2
##   Painting 22  1  0
## 
## , ,  = 1967
## 
##           
##             0  1  2
##   Painting 65  0  0
## 
## , ,  = 1968
## 
##           
##             0  1  2
##   Painting 17  3  0
## 
## , ,  = 1969
## 
##           
##             0  1  2
##   Painting 40  5  0
## 
## , ,  = 1970
## 
##           
##             0  1  2
##   Painting 34  3  0
## 
## , ,  = 1971
## 
##           
##             0  1  2
##   Painting 25  3  0
## 
## , ,  = 1972
## 
##           
##             0  1  2
##   Painting  7  0  0
## 
## , ,  = 1973
## 
##           
##             0  1  2
##   Painting 16  0  0
## 
## , ,  = 1974
## 
##           
##             0  1  2
##   Painting 10  1  0
## 
## , ,  = 1975
## 
##           
##             0  1  2
##   Painting 23  1  0
## 
## , ,  = 1976
## 
##           
##             0  1  2
##   Painting 17  2  0
## 
## , ,  = 1977
## 
##           
##             0  1  2
##   Painting 15  2  0
## 
## , ,  = 1978
## 
##           
##             0  1  2
##   Painting 21  0  0
## 
## , ,  = 1979
## 
##           
##             0  1  2
##   Painting 64  7  0
## 
## , ,  = 1980
## 
##           
##             0  1  2
##   Painting 19  1  0
## 
## , ,  = 1981
## 
##           
##             0  1  2
##   Painting 22  1  0
## 
## , ,  = 1982
## 
##           
##             0  1  2
##   Painting 18  2  0
## 
## , ,  = 1983
## 
##           
##             0  1  2
##   Painting 24  6  0
## 
## , ,  = 1984
## 
##           
##             0  1  2
##   Painting 12  3  0
## 
## , ,  = 1985
## 
##           
##             0  1  2
##   Painting 77  9  0
## 
## , ,  = 1986
## 
##           
##             0  1  2
##   Painting 13  2  0
## 
## , ,  = 1987
## 
##           
##             0  1  2
##   Painting  7  4  0
## 
## , ,  = 1988
## 
##           
##             0  1  2
##   Painting  4  4  0
## 
## , ,  = 1989
## 
##           
##             0  1  2
##   Painting  6  1  0
## 
## , ,  = 1990
## 
##           
##             0  1  2
##   Painting 23  3  0
## 
## , ,  = 1991
## 
##           
##             0  1  2
##   Painting 62  5  0
## 
## , ,  = 1992
## 
##           
##             0  1  2
##   Painting 27  3  0
## 
## , ,  = 1993
## 
##           
##             0  1  2
##   Painting  7  0  0
## 
## , ,  = 1994
## 
##           
##             0  1  2
##   Painting 32  9  0
## 
## , ,  = 1995
## 
##           
##             0  1  2
##   Painting 12  1  0
## 
## , ,  = 1996
## 
##           
##             0  1  2
##   Painting 31  2  0
## 
## , ,  = 1997
## 
##           
##             0  1  2
##   Painting 16  5  0
## 
## , ,  = 1998
## 
##           
##             0  1  2
##   Painting 25  1  0
## 
## , ,  = 1999
## 
##           
##             0  1  2
##   Painting 24  0  0
## 
## , ,  = 2000
## 
##           
##             0  1  2
##   Painting 28  1  0
## 
## , ,  = 2001
## 
##           
##             0  1  2
##   Painting  9  2  0
## 
## , ,  = 2002
## 
##           
##             0  1  2
##   Painting 18  7  0
## 
## , ,  = 2003
## 
##           
##             0  1  2
##   Painting  4  0  0
## 
## , ,  = 2004
## 
##           
##             0  1  2
##   Painting 11 16  0
## 
## , ,  = 2005
## 
##           
##             0  1  2
##   Painting 52 15  0
## 
## , ,  = 2006
## 
##           
##             0  1  2
##   Painting 18  3  0
## 
## , ,  = 2007
## 
##           
##             0  1  2
##   Painting  9  4  0
## 
## , ,  = 2008
## 
##           
##             0  1  2
##   Painting 49  6  0
## 
## , ,  = 2009
## 
##           
##             0  1  2
##   Painting 12  9  0
## 
## , ,  = 2010
## 
##           
##             0  1  2
##   Painting 13  5  0
## 
## , ,  = 2011
## 
##           
##             0  1  2
##   Painting 22  4  1
## 
## , ,  = 2012
## 
##           
##             0  1  2
##   Painting 24  3  0
## 
## , ,  = 2013
## 
##           
##             0  1  2
##   Painting 15  7  0
## 
## , ,  = 2014
## 
##           
##             0  1  2
##   Painting 13  7  0
## 
## , ,  = 2015
## 
##           
##             0  1  2
##   Painting 14  7  0
## 
## , ,  = 2016
## 
##           
##             0  1  2
##   Painting 26  7  0
## 
## , ,  = 2017
## 
##           
##             0  1  2
##   Painting  8  9  0

arte_MOMA %>%
  filter(year_acquired=="1937", n_female_artists == "1") %>% 
  pull(title) %>% 
  first()

## [1] "Landscape, 47"

arte_MOMA %>%
  filter(year_acquired=="1937", n_female_artists == "1") %>% 
  pull(artist) %>% 
  first()

## [1] Natalia Goncharova
## 989 Levels: "Edward C. (""Pa"") Hunt" \xc9douard Vuillard ... Zvi Gali

Resposta : 1947. A pintura em questão é “Landscape”, de Natalia Goncharova, foi pintada em 1937.

12) Qual o artista ficou mais tempo vivo?

arte_MOMA$idade <- arte_MOMA$artist_death_year - arte_MOMA$artist_birth_year

summary(arte_MOMA$idade)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   27.00   67.00   77.00   74.66   85.00  102.00     629

table(arte_MOMA$idade=="102")

## 
## FALSE  TRUE 
##  1623     1

arte_MOMA %>%
  filter(arte_MOMA$idade=="102") %>% 
  pull(artist) %>% 
  first()

## [1] Dorothea Tanning
## 989 Levels: "Edward C. (""Pa"") Hunt" \xc9douard Vuillard ... Zvi Gali

Resposta: O artista que mais viveu foi Dorothea Tanning, que viveu 102 anos.

13) Qual a idade média de um artista?

summary(arte_MOMA$idade)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   27.00   67.00   77.00   74.66   85.00  102.00     629

Resposta: 74.66 anos.

14) Artistas homens vivem mais do que as mulheres?

table(arte_MOMA$idade, arte_MOMA$artist_gender)

##      
##       Female Male
##   27       0    2
##   28       0    1
##   29       0    1
##   30       0    2
##   31       1    0
##   32       1    4
##   34       3   12
##   35       2    2
##   36       0    6
##   37       0    4
##   38       0    3
##   39       0    1
##   40       0    7
##   41       1    3
##   42       0    1
##   43       0    2
##   44       0   31
##   45       0    1
##   46       0    1
##   47       3    6
##   48       0    6
##   49       1    0
##   50       1   11
##   51       0   14
##   52       3   15
##   53       0    3
##   54       3   20
##   55       1   17
##   56       0   10
##   57       0   12
##   58       0    9
##   59       0   28
##   60       0    3
##   61       0   18
##   62       0    7
##   63       3    8
##   64       3   12
##   65       2   29
##   66       0   34
##   67      17   55
##   68       3   15
##   69       4   29
##   70       0   20
##   71       0   33
##   72       3   43
##   73       6   23
##   74       2   75
##   75       1   38
##   76       3   61
##   77       0   30
##   78       1   47
##   79       0   27
##   80       1   45
##   81       3   28
##   82       1   29
##   83       5   79
##   84       5   41
##   85       1   81
##   86       5   67
##   87       2   22
##   88       2   26
##   89       8   25
##   90       0   50
##   91       1   26
##   92       9   79
##   93       1   20
##   94       2   13
##   95       1    4
##   96       2    8
##   97       0    2
##   98       0    7
##   99       4    2
##   101      1    2
##   102      1    0

Reposta: Nota-se que artistas do sexo masculino vivem mais doque artistas do sexo feminino.

Considerações finais: Após a realização das atividade proposta, e da análise um pouco mais detalhada dos dados presentes nesta base de dados, é possível concluir a priori que o MOMA possui um vasto acervo de pinturas, e também de Esculturas. Possui obras de diversos artistas, de diversos períodos da história. Possui também obras de grandes artistas de grande nome, como Pablo Picasso, grande expoente do cubismo e do expressionismo. Analizando os dados disponíveis, é possível concluir também que o MOMA adquire novas obras com grande frequência, havendo anos aonde foram mais de 50 pinturas, oque faz com que mesmo que alguém já o tenha visitado, sempre vale a pena mais uma visita para apreciar novas obras de arte adquiridas pelo museu. O MOMA, Museum of Modern Art, fica localizado em Nova York,NY, nos Estados Unidos da América.

Atividade Moma

Arthur Hansen

14/04/2021

Neste trabalho, irei responder algumas questões relacionadas a base de dados “arte_MOMA”, disponibilizada pelo professor Steven Dutt-Ross, em seu curso de Estatística da UNIRIO.

Primeiro, irei carregar a base de dados

1) Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados? Resposta: 2253 pinturas e 24 variáveis.

2) Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual título? R: Seriam duas pinturas, “House by the railroad” e “Seated Nude”, de Edward Hopper e Bernard Karfiol, respectivamente, ambas foram adquiridas em 1930.

Como cheguei a resposta:

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

Resposta: A pintura mais antiga do MOMA foi pintada em 1872, por Odylon Redon, se chama “Landscape at daybreak”.

4) Quantos artistas distintos existem?

Resposta: São 989 artistas.

Qual artista tem mais pinturas na coleção? Resposta: Pablo Picasso.

7) Quantas pinturas de artistas masculinos e femininos?

Masculinos: 1935; Femininos: 251

8) Quantos artistas de cada gênero existem? Não consegui chegar ao resultado da questão.

9) Em que ano foram adquiridas mais pinturas?

Resposta: 1985

10) Em que ano foram Criada mais pinturas?

Resposta: 1977

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 : 1947. A pintura em questão é “Landscape”, de Natalia Goncharova, foi pintada em 1937.

12) Qual o artista ficou mais tempo vivo?

Resposta: O artista que mais viveu foi Dorothea Tanning, que viveu 102 anos.

13) Qual a idade média de um artista?

Resposta: 74.66 anos.

14) Artistas homens vivem mais do que as mulheres?

Reposta: Nota-se que artistas do sexo masculino vivem mais doque artistas do sexo feminino.