Nothing
To aid users in what can be done with rdpla
, the following is one example.
Use case:
Search for all photos of churches and make a visualization through time and facet by other factors
library("rdpla")
library("data.table")
library("lubridate")
To get all data for subject:churches
and of type=image
we'd need to do about 100
requests of size 500 records, but we'll just do one that so the example runs quickly.
res <- dpla_items(subject = "churches", type = "image", page_size = 500)
df <- res$data
dates <- unlist(df$date, use.names = FALSE)
# remove 2nd part of a duration separted by " - ", just use first date
dates <- gsub("\\s-\\s.+", "", dates)
# remove 2nd part of a duration separted by "/", just use first date
dates <- gsub("/.+", "", dates)
# remove 2nd part of a duration separted by "-", just use first date
dates <- gsub("-[0-9]{4}", "", dates)
# remove any text, can't parse it
dates <- gsub("[[:alpha:]]+", "", dates)
# trim leading and trailing white space
dates <- gsub("^\\s+|\\s+$", "", dates)
# parse dates
df$date_corr <- parse_date_time(dates, c("Y", "ymd", "ym", "%Y-%m-%d%H:%M:%S%z"))
Make year column
df$year <- year(df$date_corr)
Summarize by year
df_dt <- as.data.table(df)
df_dt <- df_dt[order(year)]
df_sum <- df_dt[, list(count = length(id)), by = year]
df_sum <- as.data.frame(na.omit(df_sum))
library("ggplot2")
ggplot(df_sum, aes(x = year, y = count)) +
geom_bar(stat = "identity") +
theme_gray(base_size = 18)
Zooming in on the majority of the data
ggplot(subset(df_sum, year > 1800), aes(x = year, y = count)) +
geom_bar(stat = "identity") +
theme_gray(base_size = 18)
Looks like there's a big spike in 1930
Let's have a look at a few of the titles
sort(unique(subset(df, year == 1930)$title))[1:10]
#> [1] "Aerial view of East Liberty Presbyterian Church, Pittsburgh, Pa"
#> [2] "All Souls Church, Bangor, Maine"
#> [3] "Ancient Spanish shrine of Nuestra SeƱora de la Leche, St. Augustine, Florida, the oldest city in the United States"
#> [4] "Assumption Church, Ansonia, Conn"
#> [5] "Auditorium of St. Boniface R. C. Church, Elmont Road, Elmont, L. I., N. Y"
#> [6] "Baptist Church, Oxford, N. C"
#> [7] "Baptist Church, Smithfield, N. C"
#> [8] "Beaver St. Baptist Church, 2591 W. Beaver St., Jacksonville, Florida"
#> [9] "Bethel Methodist Church, Charleston, S. C"
#> [10] "Bruton Parish Church, Williamsburg, Va"
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.