-
Notifications
You must be signed in to change notification settings - Fork 0
/
worksgardner.R
72 lines (72 loc) · 3.3 KB
/
worksgardner.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#' Works of art from Gardner’s Art Through the Ages from 1926 until 2020
#'
#'
#' @name worksgardner
#' @docType data
#' @format A data frame with 2,325 observations on 24 variables.
#' \describe{
#' \item{artist_name}{The name of a given artist in a given edition of
#' *Gardner's Art Through the Ages* who has created a two-dimensional work
#' after c. 1750.}
#' \item{edition_number}{The number of the edition of
#' *Gardner's Art Through the Ages*.}
#' \item{title_of_work}{The title of the work as listed in
#' .*Gardner's Art Through the Ages*}
#' \item{publication_year}{The year of publication.}
#' \item{page_number_of_image}{The page number of the figure of the image
#' in the text.}
#' \item{artist_unique_id}{A unique number assigned to each artist included
#' in *Gardner's Art Through the Ages* that has created a two-dimensional
#' work after c. 1750.}
#' \item{artist_nationality}{The nationaliity of the artist.}
#' \item{artist_gender}{The gender of the artist.}
#' \item{artist_race}{The race of the artist.}
#' \item{artist_ethnicity}{The ethnicity of the artist.}
#' \item{height_of_work_in_book}{The height in centimeters of the figure of
#' the work in the book itself.}
#' \item{width_of_work_in_book}{The width in centimeters of the figure of
#' the work in the book itself.}
#' \item{height_of_text}{The height in centimeters of the text written about
#' a given work by a given artist in a given edition.}
#' \item{width_of_text}{The width in centimeters of the text written about
#' a given work by a given artist in a given edition.}
#' \item{extra_text_height}{The height in centimeters of the extra text
#' written if the text of the work of an artist in not in a rectangular
#' shape.}
#' \item{extra_text_width}{The width in centimeters of the extra text
#' written if the text of the work of an artist in not in a rectangular
#' shape.}
#' \item{area_of_work_in_book}{The area in centimeters squared of a work in
#' the text.}
#' \item{area_of_text}{The area in centimeters squared written about a work
#' in the text.}
#' \item{extra_text_area}{The extra area in centimeters squared written about
#' a work if it is not rectangular in the text.}
#' \item{total_area_text}{The total area in centimeters squared written
#' about a given work.}
#' \item{total_space}{The area of the work in centimeters squared plus
#' the area of the text in centimeters squared given to a particular work.}
#' \item{page_area}{The area in centimeters squared of a page in a given
#' edition of *Gardner's Art Through the Ages*.}
#' \item{space_ratio_per_page}{The total space in centimeters squared
#' divided by the area of a page in a given edition.}
#' \item{book}{The name of the book,*Gardner's Art Through the Ages*,
#' but gardner for short.}
#' }
#' @source
#' Stam, H. (2022). Quantifying art historical narratives. \doi{10.7924/r4dn48h0w}. Duke Research Data Repository.
#' @examples
#' library(ggplot2)
#' library(dplyr)
#'
#' worksgardner %>%
#' filter(artist_name == "Pablo Picasso") %>%
#' ggplot(aes(x = publication_year)) +
#' geom_bar() +
#' labs(
#' title = "Count of Works by Pablo Picasso Through Editions of
#' Gardner's Art Through the Ages",
#' x = "Year",
#' y = "Number of Works by Picasso"
#' )
"worksgardner"