R/worksjanson.R

In arthistory: Art History Textbook Data

#' Works of art from Janson's History of Art from 1963 until 2011
#'
#'
#' @name worksjanson
#' @docType data
#' @format A data frame with 1,634 observations on 25 variables.
#' \describe{
#'   \item{artist_name}{The name of a given artist in a given edition of
#'   *Janson's Art Through the Ages* who has created a two-dimensional work
#'   after c. 1750.}
#'   \item{artist_unique_id}{A unique number assigned to each artist included
#'   in *Janson's History of Art* 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{title_of_work}{The title of the work as listed in
#'   .*Janson's History of Art*}
#'   \item{edition_number}{The number of the edition of
#'   *Janson's History of Art*.}
#'   \item{publication_year}{The year of publication.}
#'   \item{part_in_text}{The number of the part in the text. In this case,
#'   every work is from part 4, "The Modern World."}
#'   \item{chapter_title}{The title of the chapter a given work is in.}
#'   \item{start_date}{The year the artist began creating the work.}
#'   \item{end_date}{The year the artist finished the work.}
#'   \item{circa}{1 if the date of the work was labeled with a circa (around)
#'   and 0 if the date of the work was not labeled with a circa}
#'   \item{medium}{The medium of the work.}
#'   \item{height_of_work_in_book}{The height in centimeters of the work in
#'   a given edition of *Janson's History of Art*}
#'   \item{width_of_work_in_book}{The width in centimeters of the work in
#'   a given edition of *Janson's History of Art*}
#'   \item{height_of_text}{The height of text in centimeters of the text written
#'   about the work in a given edition of *Janson's History of Art*}
#'   \item{width_of_text}{The width of text in centimeters of the text written
#'   about the work in a given edition of *Janson's History of Art*}
#'   \item{area_actual_work}{The area in centimeters squared of the actual work
#'   itself.}
#'   \item{area_of_work_in_book}{The area in centimeter's squared of a given
#'   work in a given edition of *Janson's History of Art*}
#'   \item{area_of_text}{The area in centimeter's squared of the text of given
#'   work in a given edition of *Janson's History of Art*}
#'   \item{work_to_figure_ratio}{The size of the actual work divided by the
#'   size of the work in the book}
#'   \item{work_in_text_in_color}{If the figure of the work in
#'    *Janson's History of Art* was in color, such is denoted by a 1, if the
#'    figure of the work is not in color, such is denoted by a 0.}
#'   \item{location_as_catalogued_in_janson}{The location of the work as
#'   catalogued in a given edition of *Janson's History of Art.*}
#'   }
#' @source
#' Stam, H. (2022). Quantifying art historical narratives. \doi{10.7924/r4dn48h0w}. Duke Research Data Repository.
#' @examples
#' library(ggplot2)
#' library(dplyr)
#'
#' worksjanson %>%
#'   filter(artist_name == "Pablo Picasso") %>%
#'   ggplot(aes(x = publication_year)) +
#'   geom_bar() +
#'   labs(
#'     title = "Count of Works by Pablo Picasso Through Editions of
#'     Janson's History of Art",
#'     x = "Year",
#'     y = "Number of Works by Picasso"
#'     )
"worksjanson"