2022-15-03: Since this was posted the CDC has updated how county level diabetes prevalance is calculated. The data presented here is using previous calcualtions and may no longer be correct. More can be read here
Diabetes is growing at an epidemic rate in the United States. In North Carolina alone, diabetes and prediabetes cost an estimated $10.9 billion each year (American Diabetes Asssociation, 2015). This post introduces the exploration of the Diabetes epidemic in North Carolina. Through a series of posts this project will examine various public data available on diabetes and explore possible solutions to address the rise of diabetes in North Carolina. This investigation stems from the Capstone project of my Health Care Informatics Masters program. This post will answer the following questions:
- What is the overall trend of diabetes prevalence in the United States?
- What is the trend of diabetes at a State Level and how does diabetes prevalence vary by state and region?
- How do trends in diabetes prevalence vary across counties of North Carolina?
- In which counties of North Carolina does the largest change in diabetes prevalence occur?
- How does change in diabetes prevalence compare between rural and urban counties?
This section contains technical information for deeper analysis and reproduction. Casual readers are invited to skip it.
Packages used in this report.
# Attach these packages so their functions don't need to be qualified: http://r-pkgs.had.co.nz/namespace.html#search-path
library(magrittr) # enables piping : %>%
library(dplyr) # data wrangling
library(ggplot2) # graphs
library(tidyr) # data tidying
library(maps)
library(mapdata)
library(sf)
library(readr)Definitions of global object (file paths, factor levels, object groups ) used throughout the report.
#set ggplot theme
ggplot2::theme_set(theme_bw())The data for this exploration comes from several sources:
The Diabetes data set for state and county levels were sourced from the US Diabetes Surveillance System; Division of Diabetes Translation - Centers for Disease Control and Prevention. The data was downloaded one year per file, and compiled into a single data set for analysis.
The Diabetes data set for National level data were sourced from the CDC’s National Health Interview Survey (NHIS)
The list of rural counties was taken from The Office of Rural Health Policy, the list is available here
# load the data, and have all column names in lowercase
nc_diabetes_data_raw <- read_csv("https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/derived/nc-diabetes-data.csv") %>%
rename_all(tolower)
us_diabetes_data_raw <- read_csv("https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/raw/us_diabetes_totals.csv"
,skip = 2)
rural_counties <- read_csv("https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/rural-counties.csv")
county_centers_raw <- read_csv("https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/nc_county_centers.csv", col_names = c("county", "lat","long"))
diabetes_atlas_data_raw <- read_csv("https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/DiabetesAtlasData.csv"
,col_types = cols(LowerLimit = col_skip(),
UpperLimit = col_skip(),
Percentage = col_double()), skip = 2)# load in both US State Map and NC County Map
nc_counties_map_raw <- st_as_sf(map("county",region = "north carolina", plot = FALSE,fill = TRUE)) %>%
mutate_at("ID", ~stringr::str_remove(.,"north carolina,"))
state_map_raw <- st_as_sf(map("state",plot = FALSE,fill = TRUE ))
nc_cities <- st_as_sf(read_csv("https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/nc_cities.csv"),
coords = c("long", "lat")
,remove = FALSE
,agr = "constant"
,crs = 4326)The combined data used in this anaylsis can be downloaded here. The only tweaks done here are to combine the rural counties column, and the data for creating maps.
county_centers <- county_centers_raw %>%
mutate_all(~stringr::str_replace_all(.,
c("\\°" = ""
,"\\+" = ""
,"\\–" = "-"
)
)
) %>%
mutate(across(c("lat","long"), ~iconv(.,from = 'UTF-8', to = 'ASCII//TRANSLIT'))
,across(c("lat","long"),~stringr::str_remove_all(.,"\\?"))) %>%
mutate_at(c("lat","long"),as.numeric) %>%
mutate(across("long", ~(. * -1))) %>%
mutate_at("county", tolower)
us_diabetes_data <- us_diabetes_data_raw %>%
filter(Year >= 2000) %>%
select( "Year","Total - Percentage") %>%
rename(year = Year , us_pct = `Total - Percentage`)
diabetes_atlas_data <- diabetes_atlas_data_raw %>%
mutate_at("State", tolower) %>%
filter(Year >= 2000)
state_map_abb <- state_map_raw %>%
left_join(read_csv("https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/state-abb.csv") %>%
mutate_at("state", tolower)
,by = c("ID" = "state") )#join US totals to NC data
nc_diabetes_data <- nc_diabetes_data_raw %>%
mutate_at("county", ~stringr::str_replace_all(.,"Mcdowell","McDowell")) %>%
mutate(
rural = county %in% rural_counties$rural_counties
) %>%
mutate_at("county",tolower) %>%
left_join(us_diabetes_data)
nc_counties_map <- nc_counties_map_raw %>%
left_join(nc_diabetes_data, by = c("ID" = "county")) %>%
left_join(county_centers, by = c("ID" = "county")) %>%
rename(
center_long = long
,center_lat = lat)
state_map <- state_map_abb %>%
left_join(diabetes_atlas_data, by = c("ID" = "State")) %>%
rename_all(tolower)us_diabetes_data <- us_diabetes_data %>%
mutate(
change = lead(us_pct) - us_pct
,change = if_else(change > 0, TRUE, FALSE)
) %>%
mutate_at("change", ~stringr::str_replace_na(.,"NA"))
o_g1 <- us_diabetes_data %>%
ggplot(aes(x = year, y = us_pct)) +
geom_line(color= "#D95F02") +
# geom_line(aes(color = change, group = 1)) +
geom_point(shape = 21, size = 3,color= "#D95F02") +
# geom_point(aes(color = change),shape = 21, size = 3) +
scale_color_manual(values = c(
"TRUE" = "#D95F02"
,"FALSE" = "#7570B3"
), guide = FALSE) +
labs(
title = "Percentage of Diagnosed Diabetes in Adults (18+), National Level"
,x = NULL
,y = NULL
,caption = "Note: Data from the CDC's National Health Interview Survey (NHIS)"
)
o_g1
Overall, the national average for diagnosed diabetes sharply rose through the early 2000’s, leveling off around 2010. These numbers however, are estimates based on the self-reported response to the CDC’s National Health Interview Survey, and do not represent the actual confirmed diagnoses. The CDC estimates that 1 in 5 adults have undiagnosed diabetes, therefore the numbers reported by the NHIS are likely to underestimate the true prevalence (Centers for Disease Control and Prevention, 2020).
State and County level data on diabetes prevalence are taken from the CDC’s Behavioral Risk Factor Surveillance System (BRFSS). These results are based on the question “Has a doctor, nurse, or other health professional ever told you that you have diabetes?”. Women who only experienced diabetes during pregnancy were excluded from the counts. The BRFSS is an ongoing, monthly telephone survey of the non-institutionalized adults (aged 18 years or older) in each state. The year 2011 saw a major change to the methodology of the survey, which started to include homes without a landline phone. This change was expected to increase coverage of lower income, lower educational levels, and younger age groups, because these groups often exclusively rely on cellular telephones for personal communication.(Pierannunzi et al., 2012)
s_g1 <- state_map %>%
st_drop_geometry() %>%
ggplot(aes(x = year, y = percentage, color = region)) +
geom_line(aes(group = id ),alpha = 0.3,na.rm = TRUE) +
geom_smooth(method = "lm", se = FALSE) +
ggpmisc::stat_poly_eq(formula = y ~ + x ,
aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
parse = TRUE) +
geom_vline(xintercept = 2011, linetype = "dashed", color = "gray") +
scale_color_brewer(palette = "Dark2"
,direction = -1
,labels = snakecase::to_title_case
) +
labs(
title = "Percentage of Diagnosed Diabetes in Adults (18+) \nby State and Region"
,x = NULL
,y = NULL
,color = "Region"
,caption = "Regions from US Census Bureau"
)
s_g1
The above graph shows diabetes prevalence trends by state, grouped into regions based on the US Census classification regions. While all regions of the United states show positive growth in diabetes prevalence, the south exhibits a slightly higher growth rate, as well as the highest prevalence.
s_g2 <- state_map %>%
st_drop_geometry() %>%
filter(region == "south") %>%
mutate_at("id", ~snakecase::to_title_case(.)) %>%
ggplot(aes(x = year, y = percentage)) +
geom_line(aes(group = id ),na.rm = TRUE, color= "#D95F02") +
gghighlight::gghighlight(id == "North Carolina", label_params = list(vjust = 3)) +
scale_y_continuous(breaks = seq(5,13,2)) +
scale_x_continuous(minor_breaks = seq(2000,2016,1)) +
labs(
title = "Percentage of Diagnosed Diabetes in Adults (18+) \nSouth Region"
,x = NULL
,y = NULL
,caption = "Regions from US Census Bureau"
) +
theme()
s_g2
When focusing on the south region, North Carolina falls close to the middle of diabetes prevalence.
When examining the trajectory for North Carolina, we can see that it has been consistently higher than national average . We see that in 2016 there was a large spike in diagnosed cases; unfortunately this is the last available year so it is unclear whether the upward trend continues. The graph below compares state-level average to the national average. Notice that the trend line is slightly higher than in the previous graphs: this is due to the age cut offs used for National and State level data vs County Level data. Previous data used 18 years of age as a cutoff for classifying adults, whereas the county level data uses 20. Due to removing 18- and 19-year-olds from the population, who typically have less diagnosed cases of diabetes than those of older ages, the computed prevalence increases slightly.
d1 <- nc_diabetes_data %>%
group_by(year) %>%
summarise(
pct = mean(percentage)
,us_pct = mean(us_pct)
) %>%
pivot_longer(
cols = c("pct", "us_pct")
,names_to = "metric"
,values_to = "values"
) %>%
mutate(
metric = factor(metric
,levels = c("pct","us_pct")
,labels = c("NC", "National"))
)
nc_g1 <- d1 %>%
ggplot(aes(x = year, y = values, color = metric)) +
geom_line() +
geom_point(shape = 21, size = 3) +
geom_vline(xintercept = 2011, linetype = "dashed", color = "gray") +
scale_y_continuous(labels = function(x) paste0(x, "%")) +
scale_color_brewer(palette = "Dark2") +
labs(
x = NULL
,y = NULL
,color = NULL
,title = "Percent of Adults (20+) with Diagnosed Diabetes"
)
nc_g1 
We see a spike in 2016, the last year for which the data are available. However, we should be careful with our interpretation of this pattern, because the examination of the county-level trajectories reveals an aberration in the trend that requires a more rigorous investigation.
nc_g1a <- nc_diabetes_data %>%
ggplot(aes(x = year, y = percentage)) +
geom_line(aes(group = county),alpha = 0.4) +
labs(
x = NULL
,y = NULL
,color = NULL
)
nc_g1a
While all of North Carolina has a higher prevalence than the national average, rural counties have systematically higher prevalence of diabetes than urban counties. Note that after 2011 both Urban and Rural counties break the upward trend exhibited in the previous 5 years. This could be explained by the addition of cell phones to the BRFS Survey as many rural areas are often lower income areas and may only rely on a cell phone for communication. As mentioned previously there is an odd spike in case in 2016 that can’t be explained by current documentation. For the purpose of this evaluation 2016 will be excluded from the county level data since the odd trend can not be explained and no further data is available to determine if this is a real spike or could be attributed to methodology change or data quality.
d2 <- nc_diabetes_data %>%
select(-us_pct) %>%
mutate(
pct_rural = if_else(rural == TRUE, percentage, FALSE)
,pct_urban = if_else(rural == FALSE, percentage, FALSE)
) %>%
select(-countyfips,-percentage) %>%
group_by(year) %>%
summarise(
pct_rural = mean(pct_rural,na.rm = TRUE)
,pct_urban = mean(pct_urban,na.rm = TRUE)
) %>% left_join(us_diabetes_data) %>%
pivot_longer(
cols = c("us_pct", "pct_rural","pct_urban")
,names_to = "metric"
,values_to = "value"
,values_drop_na = TRUE
) %>%
mutate(
metric = factor(metric,
levels = c("pct_rural","pct_urban","us_pct")
,labels = c("Rural","Urban","US")
)
)
nc_g2 <- d2 %>% ggplot(aes(x = year, y = value, color = metric)) +
geom_line() +
geom_point(shape = 21, size = 3) +
geom_vline(xintercept = 2011, linetype = "dashed", color = "gray") +
scale_y_continuous(labels = function(x) paste0(x, "%")) +
scale_color_brewer(palette = "Dark2") +
labs(
x = NULL
,y = NULL
,color = NULL
,title = "Percent of Adults (20+) with Diagnosed Diabetes \nDisplaying Rural vs Urban"
)
nc_g2
County level data first became available in 2004, three years of data is used to arrive at these estimates. For example, the 2006 estimates were computed using the data from 2005, 2006, and 2007 BRFS survey rounds. The county-level estimates were based on indirect model-dependent estimates using Bayesian multilevel modeling techniques(Barker et al., 2013; JNK, 2003). This model-dependent approach employs a statistical model that “borrows strength” in making an estimate for one county from BRFSS data collected in other counties and states. Multilevel Binomial regression models with random effects of demographic variables (age 20-44, 45-64, >=65; race/ethnicity; sex) at the county-level were developed. Estimates were adjusted for age to the 2000 US standard population using age groups of 20-44, 45-64, and 65 or older(Klein & Schoenborn, 2001).
g50 <- nc_diabetes_data %>%
filter(year < 2015) %>%
mutate(
rural = factor(rural
,levels = c(TRUE,FALSE)
,labels = c("Rural", "Urban")
)
) %>%
ggplot(aes(x = year, y = percentage, color = rural)) +
geom_line(aes(group = county),alpha = 0.3) +
geom_smooth(aes(group = rural), method = "loess", se= FALSE, size = 1.1) +
scale_color_brewer(palette = "Dark2") +
labs(
title = "Percent of Adults (20+) with Diagnosed Diabetes \nAll North Carolina Counties"
,x = NULL
,y = NULL
,color = NULL
)
g50
When viewing all county trend lines together, we see that the loess line for both urban and rural follows a similar trend for the time period.
The following graphs displays the total estimated prevalence of Diabetes in each off the 100 North Carolina counties. To keep the scaling consistent between the graphs, we binned the estimates into 6 intervals of the same size. Rural counties are highlighted with a stronger border line as well as a letter “R” in respective geographic centers. These graphs allow us to view geographical clusters of diabetes prevalence.
nc_counties_map_binned <- nc_counties_map %>%
filter(year < 2015) %>%
mutate(
bin = dlookr::binning(.$percentage, nbins = 6 ,type = "equal")
,bin = forcats::fct_recode(bin
,"6.5 - 7.9" = "[6.5,7.97]"
,"8.0 - 9.4" = "(7.97,9.43]"
,"9.5 - 10.9" = "(9.43,10.9]"
,"11.0 - 12.4" = "(10.9,12.4]"
,"12.5 - 13.8" = "(12.4,13.8]"
,"13.9 - 15.3" = "(13.8,15.3]"
)
)
c_g1 <- nc_counties_map_binned %>%
filter(year %in% c(2006,2014)) %>%
ggplot() +
geom_sf() + #blank geom_sf keeps gridlines from overlapping map
geom_sf(aes(fill = bin,color = rural)) +
geom_sf(data = nc_cities) +
ggrepel::geom_text_repel(data = nc_cities,
aes(x = long, y = lat, label = city)
,nudge_y = c(-1,1,1,-1,1)
,nudge_x = c(0,0,0,-1,0)
) +
geom_text(data = . %>% filter(rural == TRUE)
,aes(x = center_long, y = center_lat)
,label = "R"
,color = "#696969"
) +
coord_sf(xlim = c(-84.5,-75.5), ylim = c(33.75,37)) +
facet_wrap(~year) +
scale_fill_viridis_d(alpha = 0.6, direction = -1) +
scale_color_manual(
values = c(
"FALSE" = "gray"
,"TRUE" = "black"
),guide = 'none') +
labs(
title = "Estimated Diabetes in Adults (20+) by County"
,fill = "Percentage"
,y = NULL
,x = NULL
) +
theme(
panel.background = element_rect(fill = "aliceblue")
,panel.grid.major = element_line(color = "#D4D4D4", linetype = "dashed",
size = 0.5)
,legend.position = "bottom"
,plot.title = element_text(hjust = 0.5)
)
c_g1
The following box plot displays the distribution of estimated cases by county from 2006 to 2014. For all years of current data the mean of rural counties is higher then that of their Urban counterparts.
c_g1c <- nc_counties_map %>%
mutate(
rural = factor(rural
,levels = c(TRUE,FALSE)
,labels = c("Rural", "Urban")
)) %>%
filter(year < 2015) %>%
ggplot(aes(x = year, y = percentage, group = interaction(year,rural), fill = rural)) +
geom_boxplot(alpha = 0.5) +
scale_fill_brewer(palette = "Dark2") +
scale_x_continuous(breaks = seq(2004,2014,2)) +
labs(
x = NULL
,y = NULL
,fill = NULL
,title = "Distribution of Estimated Cases by County 2006 - 2014"
)
c_g1c
The following graphs display the overall change in estimated prevalence between 2006 to 2014.
d3 <- nc_counties_map %>%
st_drop_geometry() %>%
filter(year %in% c(2006,2014)) %>%
select(-countyfips,-us_pct) %>%
pivot_wider(names_from = "year"
,values_from = "percentage") %>%
mutate(
pct_p = `2014` - `2006`
,pct_c = ((`2014` - `2006`)/`2006`) * 100
) %>%
left_join(nc_counties_map_raw) %>%
st_as_sf()
c_g4 <- d3 %>%
ggplot() +
geom_sf() + #blank geom_sf keeps gridlines from overlapping map
geom_sf(aes(fill = pct_c ,color = rural)) +
geom_sf(data = nc_cities) +
ggrepel::geom_text_repel(data = nc_cities,
aes(x = long, y = lat, label = city)
,nudge_y = c(-1,1,1,-1,1)
,nudge_x = c(0,0,0,-1,0)
) +
geom_text(data = . %>% filter(rural == TRUE)
,aes(x = center_long, y = center_lat)
,label = "R"
,color = "#696969"
) +
# scale_fill_viridis_c(alpha = 0.6, direction = -1) +
scale_fill_gradient2(
low = "#d01c8b"
,mid = "#f7f7f7"
,high = "#4dac26"
,midpoint = 0
) +
scale_color_manual(
values = c(
"FALSE" = "gray"
,"TRUE" = "black"
),guide = 'none') +
labs(
title = "Percentage Change of Diagnosed Diabetes 2006-2014"
,fill = "Percentage"
,y = NULL
,x = NULL
) +
theme(
panel.background = element_rect(fill = "aliceblue")
,panel.grid.major = element_line(color = "#D4D4D4", linetype = "dashed",
size = 0.5)
)
c_g4
The following chart displays the density curve of the percentage change for both rural and urban counties. It is notable that the mean of change for Urban counties is actually higher than the mean for rural counties. However, we also see that most change for both regions is positive growth. In fact only 16 rural, and 10 Urban counties experienced negative change in the given time frame. While 35 rural and 34 urban counties experience growth in the same period.
d4 <- d3 %>%
st_drop_geometry() %>%
mutate(
rural = factor(rural
,levels = c(TRUE,FALSE)
,labels = c("Rural", "Urban")
)
)
mean_d4 <- d4 %>%
group_by(rural) %>%
summarise(.groups = "keep"
,pct_c = mean(pct_c)
)
g51 <- d4 %>%
ggplot(aes(x = pct_c, fill = rural, y = ..density.., color = rural)) +
geom_histogram(binwidth = 5, position = "identity", alpha = 0.3) +
geom_density(alpha = 0.5) +
facet_wrap(~rural, ncol = 1) +
geom_vline(aes(xintercept = pct_c), data = mean_d4) +
geom_text(aes(x = pct_c, y = 0.038, label = round(pct_c, 2))
,data = mean_d4
,hjust = -0.15
,size = 5
,color = "#000000") +
geom_vline(xintercept = 0, linetype = "dashed", color = "#696969") +
scale_color_brewer(palette = "Dark2", guide = NULL) +
scale_fill_brewer(palette = "Dark2", guide = NULL) +
labs(
x = "Percentage Change"
,y = "Density"
,fill = NULL
)
g51
The original hypothesis of this report was that rural counties were growing at a higher rate then there urban counterparts. Through out this post it has been shown that this hypothesis is incorrect, just being a rural county does not indicate diabetes growth, in fact the growth rate throughout North Carolina has been consistent. Further posts will explore other reasons for these trends, as the current post merely explores the trends and differences using data visualizations, a more rigorous and formal evaluation of these comparison is in order.
===========================================================================
For the sake of documentation and reproducibility, the current report was rendered in the following environment. Click the line below to expand.
if( requireNamespace("devtools", quietly = TRUE) ) {
devtools::session_info()
} else {
sessionInfo()
} ─ Session info ───────────────────────────────────────────────────────────────
setting value
version R version 4.4.1 (2024-06-14 ucrt)
os Windows 11 x64 (build 22621)
system x86_64, mingw32
ui RTerm
language (EN)
collate English_United States.utf8
ctype English_United States.utf8
tz America/New_York
date 2024-08-27
pandoc 3.2 @ C:/Users/belangew/AppData/Local/Pandoc/ (via rmarkdown)
─ Packages ───────────────────────────────────────────────────────────────────
package * version date (UTC) lib source
bit 4.0.5 2022-11-15 [1] CRAN (R 4.4.1)
bit64 4.0.5 2020-08-30 [1] CRAN (R 4.4.1)
cachem 1.1.0 2024-05-16 [1] CRAN (R 4.4.1)
class 7.3-22 2023-05-03 [1] CRAN (R 4.4.1)
classInt 0.4-10 2023-09-05 [1] CRAN (R 4.4.1)
cli 3.6.3 2024-06-21 [1] CRAN (R 4.4.1)
colorspace 2.1-1 2024-07-26 [1] CRAN (R 4.4.1)
confintr 1.0.2 2023-06-04 [1] CRAN (R 4.4.1)
crayon 1.5.3 2024-06-20 [1] CRAN (R 4.4.1)
crul 1.5.0 2024-07-19 [1] CRAN (R 4.4.1)
curl 5.2.1 2024-03-01 [1] CRAN (R 4.4.1)
DBI 1.2.3 2024-06-02 [1] CRAN (R 4.4.1)
devtools 2.4.5 2022-10-11 [1] CRAN (R 4.4.1)
digest 0.6.36 2024-06-23 [1] CRAN (R 4.4.1)
dlookr 0.6.3 2024-02-07 [1] CRAN (R 4.4.1)
dplyr * 1.1.4 2023-11-17 [1] CRAN (R 4.4.1)
e1071 1.7-14 2023-12-06 [1] CRAN (R 4.4.1)
ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.4.1)
evaluate 0.24.0 2024-06-10 [1] CRAN (R 4.4.1)
extrafont 0.19 2023-01-18 [1] CRAN (R 4.4.0)
extrafontdb 1.0 2012-06-11 [1] CRAN (R 4.4.0)
fansi 1.0.6 2023-12-08 [1] CRAN (R 4.4.1)
farver 2.1.2 2024-05-13 [1] CRAN (R 4.4.1)
fastmap 1.2.0 2024-05-15 [1] CRAN (R 4.4.1)
fontBitstreamVera 0.1.1 2017-02-01 [1] CRAN (R 4.4.0)
fontLiberation 0.1.0 2016-10-15 [1] CRAN (R 4.4.0)
fontquiver 0.2.1 2017-02-01 [1] CRAN (R 4.4.1)
forcats 1.0.0 2023-01-29 [1] CRAN (R 4.4.1)
fs 1.6.4 2024-04-25 [1] CRAN (R 4.4.1)
gdtools 0.3.7 2024-03-05 [1] CRAN (R 4.4.1)
generics 0.1.3 2022-07-05 [1] CRAN (R 4.4.1)
gfonts 0.2.0 2023-01-08 [1] CRAN (R 4.4.1)
gghighlight 0.4.1 2023-12-16 [1] CRAN (R 4.4.1)
ggplot2 * 3.5.1 2024-04-23 [1] CRAN (R 4.4.1)
ggpmisc 0.6.0 2024-06-28 [1] CRAN (R 4.4.1)
ggpp 0.5.8-1 2024-07-01 [1] CRAN (R 4.4.1)
ggrepel 0.9.5 2024-01-10 [1] CRAN (R 4.4.1)
glue 1.7.0 2024-01-09 [1] CRAN (R 4.4.1)
gridExtra 2.3 2017-09-09 [1] CRAN (R 4.4.1)
gtable 0.3.5 2024-04-22 [1] CRAN (R 4.4.1)
hms 1.1.3 2023-03-21 [1] CRAN (R 4.4.1)
hrbrthemes 0.8.7 2024-03-04 [1] CRAN (R 4.4.1)
htmltools 0.5.8.1 2024-04-04 [1] CRAN (R 4.4.1)
htmlwidgets 1.6.4 2023-12-06 [1] CRAN (R 4.4.1)
httpcode 0.3.0 2020-04-10 [1] CRAN (R 4.4.1)
httpuv 1.6.15 2024-03-26 [1] CRAN (R 4.4.1)
jsonlite 1.8.8 2023-12-04 [1] CRAN (R 4.4.1)
kableExtra 1.4.0 2024-01-24 [1] CRAN (R 4.4.1)
KernSmooth 2.23-24 2024-05-17 [1] CRAN (R 4.4.1)
knitr 1.48 2024-07-07 [1] CRAN (R 4.4.1)
labeling 0.4.3 2023-08-29 [1] CRAN (R 4.4.0)
later 1.3.2 2023-12-06 [1] CRAN (R 4.4.1)
lattice 0.22-6 2024-03-20 [1] CRAN (R 4.4.1)
lifecycle 1.0.4 2023-11-07 [1] CRAN (R 4.4.1)
magrittr * 2.0.3 2022-03-30 [1] CRAN (R 4.4.1)
mapdata * 2.3.1 2022-11-01 [1] CRAN (R 4.4.1)
maps * 3.4.2 2023-12-15 [1] CRAN (R 4.4.1)
MASS 7.3-60.2 2024-04-26 [1] CRAN (R 4.4.1)
Matrix 1.7-0 2024-04-26 [1] CRAN (R 4.4.1)
MatrixModels 0.5-3 2023-11-06 [1] CRAN (R 4.4.1)
memoise 2.0.1 2021-11-26 [1] CRAN (R 4.4.1)
mgcv 1.9-1 2023-12-21 [1] CRAN (R 4.4.1)
mime 0.12 2021-09-28 [1] CRAN (R 4.4.0)
miniUI 0.1.1.1 2018-05-18 [1] CRAN (R 4.4.1)
munsell 0.5.1 2024-04-01 [1] CRAN (R 4.4.1)
nlme 3.1-164 2023-11-27 [1] CRAN (R 4.4.1)
pagedown 0.20 2022-12-13 [1] CRAN (R 4.4.1)
pillar 1.9.0 2023-03-22 [1] CRAN (R 4.4.1)
pkgbuild 1.4.4 2024-03-17 [1] CRAN (R 4.4.1)
pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.4.1)
pkgload 1.4.0 2024-06-28 [1] CRAN (R 4.4.1)
polynom 1.4-1 2022-04-11 [1] CRAN (R 4.4.1)
profvis 0.3.8 2023-05-02 [1] CRAN (R 4.4.1)
promises 1.3.0 2024-04-05 [1] CRAN (R 4.4.1)
proxy 0.4-27 2022-06-09 [1] CRAN (R 4.4.1)
purrr 1.0.2 2023-08-10 [1] CRAN (R 4.4.1)
quantreg 5.98 2024-05-26 [1] CRAN (R 4.4.1)
R6 2.5.1 2021-08-19 [1] CRAN (R 4.4.1)
RColorBrewer 1.1-3 2022-04-03 [1] CRAN (R 4.4.0)
Rcpp 1.0.13 2024-07-17 [1] CRAN (R 4.4.1)
reactable 0.4.4 2023-03-12 [1] CRAN (R 4.4.1)
readr * 2.1.5 2024-01-10 [1] CRAN (R 4.4.1)
remotes 2.5.0 2024-03-17 [1] CRAN (R 4.4.1)
rlang 1.1.4 2024-06-04 [1] CRAN (R 4.4.1)
rmarkdown 2.28 2024-08-17 [1] CRAN (R 4.4.1)
rstudioapi 0.16.0 2024-03-24 [1] CRAN (R 4.4.1)
Rttf2pt1 1.3.12 2023-01-22 [1] CRAN (R 4.4.0)
scales 1.3.0 2023-11-28 [1] CRAN (R 4.4.1)
sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.4.1)
sf * 1.0-16 2024-03-24 [1] CRAN (R 4.4.1)
shiny 1.9.1 2024-08-01 [1] CRAN (R 4.4.1)
showtext 0.9-7 2024-03-02 [1] CRAN (R 4.4.1)
showtextdb 3.0 2020-06-04 [1] CRAN (R 4.4.1)
snakecase 0.11.1 2023-08-27 [1] CRAN (R 4.4.1)
SparseM 1.84-2 2024-07-17 [1] CRAN (R 4.4.1)
stringi 1.8.4 2024-05-06 [1] CRAN (R 4.4.0)
stringr 1.5.1 2023-11-14 [1] CRAN (R 4.4.1)
survival 3.6-4 2024-04-24 [1] CRAN (R 4.4.1)
svglite 2.1.3 2023-12-08 [1] CRAN (R 4.4.1)
sysfonts 0.8.9 2024-03-02 [1] CRAN (R 4.4.1)
systemfonts 1.1.0 2024-05-15 [1] CRAN (R 4.4.1)
tibble 3.2.1 2023-03-20 [1] CRAN (R 4.4.1)
tidyr * 1.3.1 2024-01-24 [1] CRAN (R 4.4.1)
tidyselect 1.2.1 2024-03-11 [1] CRAN (R 4.4.1)
tzdb 0.4.0 2023-05-12 [1] CRAN (R 4.4.1)
units 0.8-5 2023-11-28 [1] CRAN (R 4.4.1)
urlchecker 1.0.1 2021-11-30 [1] CRAN (R 4.4.1)
usethis 3.0.0 2024-07-29 [1] CRAN (R 4.4.1)
utf8 1.2.4 2023-10-22 [1] CRAN (R 4.4.1)
vctrs 0.6.5 2023-12-01 [1] CRAN (R 4.4.1)
viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.4.1)
vroom 1.6.5 2023-12-05 [1] CRAN (R 4.4.1)
withr 3.0.0 2024-01-16 [1] CRAN (R 4.4.1)
xfun 0.46 2024-07-18 [1] CRAN (R 4.4.1)
xml2 1.3.6 2023-12-04 [1] CRAN (R 4.4.1)
xtable 1.8-4 2019-04-21 [1] CRAN (R 4.4.1)
yaml 2.3.10 2024-07-26 [1] CRAN (R 4.4.1)
[1] C:/Program Files/R/R-4.4.1/library
──────────────────────────────────────────────────────────────────────────────@online{belanger2020,
author = {Belanger, Kyle},
title = {Diabetes in {Rural} {North} {Carolina} : {Exploring}
{Prevalence} {Trends}},
date = {2020-06-25},
langid = {en}
}