Atividade 6 - MoMA
Roberta A. Bastos
07/03/2021
Atividade do MoMA
Etapa 1 - Carregar base de dados
library(readr)
arte_MOMA <- read.csv2("C:/Users/roberta.bastos/Desktop/Base_de_dados-master/arte_MOMA.csv")Etapa 2 - Transformação das variáveis
arte_MOMA$artist_gender<-ifelse(arte_MOMA$n_female_artists==0,"Sim","Não")
arte_MOMA$artist<-ifelse(arte_MOMA$num_artists==1,"Sim","Não")
arte_MOMA$artist<-ifelse(arte_MOMA$artist)
summary(arte_MOMA)## X title artist artist_bio
## Min. : 1 Length:2253 Mode:logical Length:2253
## 1st Qu.: 564 Class :character NA's:2253 Class :character
## Median :1127 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.000 Mode:logical Min. : 7.00
## NA's:2253 1st Qu.: 0.000 NA's:2253 1st Qu.: 61.28
## Median : 0.000 Median : 106.60
## Mean : 10.330 Mean : 123.88
## 3rd Qu.: 6.763 3rd Qu.: 182.20
## Max. :647.700 Max. :1011.00
## NA's :1955
## length_cm width_cm seat_height_cm purchase
## Mode:logical Min. : 4.10 Mode:logical Mode :logical
## NA's:2253 1st Qu.: 60.96 NA's:2253 FALSE:2055
## Median : 99.00 TRUE :198
## Mean : 131.95
## 3rd Qu.: 170.00
## Max. :4663.45
##
## 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
##
##
##
## Etapa 3 - Respostas
1 - Quantas pinturas existem no MoMA? Quantas variáveis existem no banco de dados?
Existem 2253 pinturas e 24 variáveis.
table(arte_MOMA$classification)##
## Painting
## 2253ncol(arte_MOMA)## [1] 242 - Qual é a primeira pintura adquirida pelo MoMA? Qual ano? Qual artista? Qual tÃtulo?
Ano: 1930 Artista: Joan Miró e Paul Klee TÃtulos das obras: Rope and People (Joan Miró) e Fire in the Evening (Paul Klee)
table(arte_MOMA$year_acquired)##
## 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 173 - Qual é a pintura mais antiga da coleção? Qual ano? Qual artista? Qual tÃtulo?
Ano: 1872 Artista: Odilon Redon TÃtulo da obra: Landscape at Daybreak
table(arte_MOMA$year_created)##
## 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 2table(arte_MOMA$year_created,arte_MOMA$artist)## < table of extent 138 x 0 >View(arte_MOMA)4 - Quantos artistas distintos existem?
986 artistas
class(arte_MOMA$artist)## [1] "logical"arte_MOMA$artist<- as.factor(arte_MOMA$artist)
str(arte_MOMA$artist)## Factor w/ 0 levels: NA NA NA NA NA NA NA NA NA NA ...head(arte_MOMA$artist)## [1] <NA> <NA> <NA> <NA> <NA> <NA>
## Levels:5. Qual artista tem mais pinturas na coleção?
Pablo Picasso
table(arte_MOMA$classification,arte_MOMA$artist)## < table of extent 1 x 0 >6. Quantas pinturas existem por este artista?
São 55 pinturas
table(arte_MOMA$classification,arte_MOMA$artist)## < table of extent 1 x 0 >7. Quantas pinturas de artistas masculinos e femininos?
São 1935 pinturas do gênero masculino e 251 pinturas do gênero feminino.
table(arte_MOMA$department,arte_MOMA$artist_gender)##
## Não Sim
## Film 0 26
## Fluxus Collection 1 4
## Media and Performance Art 0 3
## Painting & Sculpture 254 1941
## Prints & Illustrated Books 0 248. Quantos artistas de cada gênero existem?
sÃO 255 artistas do gênero feminino e 261 do gênero masculino
table(arte_MOMA$n_female_artists)##
## 0 1 2
## 1998 254 1table(arte_MOMA$n_male_artists)##
## 0 1 2 3 9
## 254 1992 2 4 19. Em que ano foram adquiridas mais pinturas?
Ano de 1985, quando foram adquiridas 86 pinturas.
table(arte_MOMA$year_acquired,arte_MOMA$classification)##
## Painting
## 1930 2
## 1931 2
## 1932 1
## 1934 14
## 1935 22
## 1936 18
## 1937 19
## 1938 8
## 1939 31
## 1940 18
## 1941 39
## 1942 71
## 1943 22
## 1944 17
## 1945 15
## 1946 5
## 1947 14
## 1948 11
## 1949 29
## 1950 23
## 1951 27
## 1952 20
## 1953 22
## 1954 30
## 1955 36
## 1956 42
## 1957 18
## 1958 39
## 1959 37
## 1960 34
## 1961 45
## 1962 21
## 1963 33
## 1964 36
## 1965 38
## 1966 23
## 1967 65
## 1968 20
## 1969 45
## 1970 37
## 1971 28
## 1972 7
## 1973 16
## 1974 11
## 1975 24
## 1976 19
## 1977 17
## 1978 21
## 1979 71
## 1980 20
## 1981 23
## 1982 20
## 1983 30
## 1984 15
## 1985 86
## 1986 15
## 1987 11
## 1988 8
## 1989 7
## 1990 26
## 1991 67
## 1992 30
## 1993 7
## 1994 41
## 1995 13
## 1996 33
## 1997 21
## 1998 26
## 1999 24
## 2000 29
## 2001 11
## 2002 25
## 2003 4
## 2004 27
## 2005 67
## 2006 21
## 2007 13
## 2008 55
## 2009 21
## 2010 18
## 2011 27
## 2012 27
## 2013 22
## 2014 20
## 2015 21
## 2016 33
## 2017 1710. Em que ano foram criadas mais pinturas?
Ano de 1977, quando foram criadas 57 pinturas.
table(arte_MOMA$year_created,arte_MOMA$classification)##
## Painting
## 1872 1
## 1875 6
## 1879 2
## 1882 1
## 1883 2
## 1885 2
## 1886 1
## 1887 2
## 1888 4
## 1889 5
## 1890 2
## 1891 1
## 1892 2
## 1893 3
## 1894 2
## 1895 3
## 1896 1
## 1897 2
## 1898 1
## 1899 2
## 1900 6
## 1901 1
## 1902 2
## 1903 1
## 1904 1
## 1905 11
## 1906 6
## 1907 15
## 1908 14
## 1909 12
## 1910 18
## 1911 19
## 1912 33
## 1913 21
## 1914 37
## 1915 18
## 1916 11
## 1917 14
## 1918 13
## 1919 9
## 1920 11
## 1921 13
## 1922 13
## 1923 11
## 1924 14
## 1925 25
## 1926 23
## 1927 27
## 1928 32
## 1929 22
## 1930 21
## 1931 13
## 1932 21
## 1933 13
## 1934 13
## 1935 16
## 1936 15
## 1937 18
## 1938 24
## 1939 26
## 1940 56
## 1941 24
## 1942 31
## 1943 18
## 1944 28
## 1945 13
## 1946 22
## 1947 18
## 1948 25
## 1949 32
## 1950 37
## 1951 16
## 1952 27
## 1953 27
## 1954 23
## 1955 28
## 1956 34
## 1957 32
## 1958 26
## 1959 42
## 1960 39
## 1961 50
## 1962 49
## 1963 44
## 1964 56
## 1965 36
## 1966 36
## 1967 26
## 1968 40
## 1969 29
## 1970 17
## 1971 13
## 1972 19
## 1973 16
## 1974 26
## 1975 19
## 1976 26
## 1977 57
## 1978 13
## 1979 23
## 1980 10
## 1981 27
## 1982 13
## 1983 13
## 1984 31
## 1985 15
## 1986 12
## 1987 24
## 1988 11
## 1989 12
## 1990 5
## 1991 9
## 1992 9
## 1993 6
## 1994 9
## 1995 5
## 1996 6
## 1997 10
## 1998 4
## 1999 3
## 2000 10
## 2001 8
## 2002 7
## 2003 5
## 2004 6
## 2005 19
## 2006 6
## 2007 4
## 2008 22
## 2009 6
## 2010 4
## 2011 11
## 2012 5
## 2013 13
## 2014 7
## 2015 6
## 2016 2
## 2017 211. Em que ano foi adquirida a primeira pintura de uma artista feminina (solo)? Quando essa pintura foi criada? Qual artista? Qual tÃtulo?
Em 1937.Criada em 1912, artista Natalia Goncharova, tÃtulo Landscape,47.
table(arte_MOMA$year_acquired,arte_MOMA$artist_gender)##
## Não Sim
## 1930 0 2
## 1931 0 2
## 1932 0 1
## 1934 0 14
## 1935 0 22
## 1936 0 18
## 1937 1 18
## 1938 1 7
## 1939 0 31
## 1940 1 17
## 1941 2 37
## 1942 4 67
## 1943 1 21
## 1944 3 14
## 1945 2 13
## 1946 0 5
## 1947 1 13
## 1948 0 11
## 1949 1 28
## 1950 1 22
## 1951 1 26
## 1952 0 20
## 1953 1 21
## 1954 4 26
## 1955 4 32
## 1956 3 39
## 1957 0 18
## 1958 2 37
## 1959 0 37
## 1960 5 29
## 1961 4 41
## 1962 1 20
## 1963 1 32
## 1964 4 32
## 1965 4 34
## 1966 1 22
## 1967 0 65
## 1968 3 17
## 1969 5 40
## 1970 3 34
## 1971 3 25
## 1972 0 7
## 1973 0 16
## 1974 1 10
## 1975 1 23
## 1976 2 17
## 1977 2 15
## 1978 0 21
## 1979 7 64
## 1980 1 19
## 1981 1 22
## 1982 2 18
## 1983 6 24
## 1984 3 12
## 1985 9 77
## 1986 2 13
## 1987 4 7
## 1988 4 4
## 1989 1 6
## 1990 3 23
## 1991 5 62
## 1992 3 27
## 1993 0 7
## 1994 9 32
## 1995 1 12
## 1996 2 31
## 1997 5 16
## 1998 1 25
## 1999 0 24
## 2000 1 28
## 2001 2 9
## 2002 7 18
## 2003 0 4
## 2004 16 11
## 2005 15 52
## 2006 3 18
## 2007 4 9
## 2008 6 49
## 2009 9 12
## 2010 5 13
## 2011 5 22
## 2012 3 24
## 2013 7 15
## 2014 7 13
## 2015 7 14
## 2016 7 26
## 2017 9 812.Qual o artista ficou mais tempo vivo?
Dorothea Tanning, com 102 anos.
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 629table(arte_MOMA$idade=="102")##
## FALSE TRUE
## 1623 113.Qual a idade média de um artista?
74,66 anos.
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 62914.Artistas homens vivem mais do que as mulheres?
Sim.
table(arte_MOMA$idade, arte_MOMA$n_female_artists)##
## 0 1 2
## 27 2 0 0
## 28 1 0 0
## 29 1 0 0
## 30 2 0 0
## 31 0 1 0
## 32 4 1 0
## 34 12 3 0
## 35 2 2 0
## 36 6 0 0
## 37 4 0 0
## 38 3 0 0
## 39 1 0 0
## 40 7 0 0
## 41 3 1 0
## 42 1 0 0
## 43 2 0 0
## 44 31 0 0
## 45 1 0 0
## 46 1 0 0
## 47 6 3 0
## 48 6 0 0
## 49 0 1 0
## 50 11 1 0
## 51 14 0 0
## 52 15 3 0
## 53 3 0 0
## 54 20 3 0
## 55 17 1 0
## 56 10 0 0
## 57 12 0 0
## 58 9 0 0
## 59 28 0 0
## 60 3 0 0
## 61 18 0 0
## 62 7 1 0
## 63 8 3 0
## 64 12 3 0
## 65 29 2 0
## 66 34 0 0
## 67 55 17 0
## 68 15 4 0
## 69 29 4 0
## 70 20 0 0
## 71 33 0 0
## 72 43 3 0
## 73 23 6 0
## 74 75 2 0
## 75 38 1 0
## 76 61 3 0
## 77 30 0 0
## 78 47 1 0
## 79 27 0 0
## 80 45 1 0
## 81 28 3 0
## 82 29 1 0
## 83 79 5 0
## 84 41 5 0
## 85 81 1 0
## 86 68 5 0
## 87 22 2 0
## 88 26 2 0
## 89 25 8 0
## 90 50 0 0
## 91 26 1 0
## 92 79 9 0
## 93 20 1 0
## 94 13 2 0
## 95 4 1 0
## 96 8 2 0
## 97 2 0 0
## 98 7 0 0
## 99 2 4 0
## 101 2 1 0
## 102 0 1 0Último desafio
library(ggplot2)
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(ggthemes)
arte_MOMA <- arte_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"
))
ggplot(arte_MOMA, aes(x = width_cm, y = height_cm, colour = hw_cat)) +
geom_point(alpha = .5) +
ggtitle("Pinturas do MoMA, altas e largas") +
scale_colour_manual(name = "",
values = c("gray50", "#FF9900", "#B14CF0")) +
theme_fivethirtyeight() +
theme(axis.title = element_text()) +
labs(x = "Largura", y = "Altura")