MHM24 Preliminary Visualizations

ggplot(community_counts_df, aes(x = community_type, y = count, fill = community_type)) +
  geom_bar(stat = "identity") +  # Each bar will be filled with a different color based on community_type
  labs(title = "Different Communities Served in MHM", x = "Community Type", y = "Clinics") +
  theme_minimal()

ggplot(counts_care_df, aes(x = community_care_type, y = count, fill = community_care_type)) +
  geom_bar(stat = "identity") +  # Each bar will be filled with a different color based on community_type
  labs(title = "Types Of Care Delivered in MHM", x = "Type of Care", y = "Clinics") +
  theme_minimal()

ggplot(counts_funding_source_df, aes(x = source_of_funding, y = count, fill = source_of_funding)) +
  geom_bar(stat = "identity") +  # Each bar will be filled with a different color based on community_type
  labs(title = "MHM Clinic Funding Sources", x = "Funding Source", y = "Clinics") +
  theme_minimal()

# bar plot is interesting, but noisy because if NA bar

ggplot(counts_funding_source_df, aes(x = source_of_funding, y = count, fill = source_of_funding)) +
  geom_bar(stat = "identity") +  # Each bar will be filled with a different color based on community_type
  labs(title = "MHM Clinic Funding Sources", x = "Funding Source", y = "Clinics") +
  theme_minimal()

NA
NA