germany_quota <- tibble(name = c("Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany",
"Germany", "Germany"),
age = c("0-4", "5-9", "10-14", "15-19",
"20-24", "25-29", "30-34", "35-39", "40-44", "45-49", "50-54",
"55-59", "60-64", "65-69", "70-74", "75-79", "80-84", "85-89",
"90-94", "95-99", "100+", "0-4", "5-9", "10-14", "15-19", "20-24",
"25-29", "30-34", "35-39", "40-44", "45-49", "50-54", "55-59",
"60-64", "65-69", "70-74", "75-79", "80-84", "85-89", "90-94",
"95-99", "100+"),
gender = c("female", "female", "female",
"female", "female", "female", "female", "female", "female", "female",
"female", "female", "female", "female", "female", "female", "female",
"female", "female", "female", "female", "male", "male", "male",
"male", "male", "male", "male", "male", "male", "male", "male",
"male", "male", "male", "male", "male", "male", "male", "male",
"male", "male"),
value = c(1976.336, 1851.88, 1832.305, 1968.75,
2170.94, 2302.127, 2619.021, 2655.7, 2507.865, 2576.014, 3328.288,
3413.966, 2965.997, 2532.358, 2042.707, 2005.707, 1899.975, 1022.253,
521.588, 158.529, 15.728, 2082.343, 1970.345, 1979.34, 2150.221,
2382.496, 2521.798, 2822.844, 2774.455, 2551.802, 2607.67, 3352.933,
3393.206, 2854.706, 2291.081, 1791.116, 1631.884, 1359.119, 612.796,
236.559, 45.63, 3.567)
)
usethis::use_data(germany_quota)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.