Carregamento da base de dados

arte_MOMA <- read.csv2("C:/Users/Lenovo/Desktop/Base_de_dados-master/arte_MOMA.csv")
colnames(arte_MOMA)[1]<-'paintings_order'

A base de dados

library(DT)
datatable(arte_MOMA)

Conhecendo os dados

Atividade 1 Existem 24 variáveis e 2253 pinturas, sendo o número de pinturas representado pela quantidade de linhas o e o número de variáveis pela quantidade de colunas.

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
data.frame(colnames(arte_MOMA))
##    colnames.arte_MOMA.
## 1      paintings_order
## 2                title
## 3               artist
## 4           artist_bio
## 5    artist_birth_year
## 6    artist_death_year
## 7          num_artists
## 8     n_female_artists
## 9       n_male_artists
## 10       artist_gender
## 11       year_acquired
## 12        year_created
## 13    circumference_cm
## 14            depth_cm
## 15         diameter_cm
## 16           height_cm
## 17           length_cm
## 18            width_cm
## 19      seat_height_cm
## 20            purchase
## 21                gift
## 22            exchange
## 23      classification
## 24          department
arte_MOMA %>% group_by(arte_MOMA$X) %>% summarise(linhas=n())
## # A tibble: 1 x 1
##   linhas
##    <int>
## 1   2253

Atividade 2 Por meio do resumo abaixo, é possível perceber que a obra mais antiga foi adquirida em 1930.

summary(arte_MOMA$year_acquired)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    1930    1957    1975    1976    1996    2017       9

Ao buscar na base de dados, duas pinturas foram adquiridas nessa data. A primeira se chama “House by the Railroad”, criada por Edward Hopper. A segunda se chama “Seated Nude”, criada por Bernard Karfiol.

data.frame(arte_MOMA[33,2:3])
##                    title        artist
## 33 House by the Railroad Edward Hopper
data.frame(arte_MOMA[42,2:3])
##          title          artist
## 42 Seated Nude Bernard Karfiol
data.frame(arte_MOMA[33,11])
##   arte_MOMA.33..11.
## 1              1930
data.frame(arte_MOMA[42,11])
##   arte_MOMA.42..11.
## 1              1930

Atividade 3 A pintura mais antiga é de 1872.

summary(arte_MOMA$year_created)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    1872    1933    1956    1954    1972    2017       5
data.frame(arte_MOMA[697,2:3])
##                     title       artist
## 697 Landscape at Daybreak Odilon Redon
data.frame(arte_MOMA[697,12])
##   arte_MOMA.697..12.
## 1               1872

Análise descritiva dos dados

Atividade 4 São ao todo 2253 artistas.

summary(arte_MOMA$artist)
##    Length     Class      Mode 
##      2253 character character