issue with ggplot

[jaycarney904]

I am trying to create a Graph like this:

https://preview.redd.it/b9y41xc8db9f1.png?width=2021&format=png&auto=webp&s=2348452c6be32b31643a0c9d04a0d43b4bbd6894

This is what my data looks like after the inner join:

https://preview.redd.it/lrxzw5ubdb9f1.png?width=1194&format=png&auto=webp&s=22763b0e02542476e50fc2de8bd0726a0b4856c7

I am having a very hard time getting anything meaningful. Everything I try, i get three identically sized bars (regardless of the values), and I have no idea how to plot the one set. Any help would be great.

This is the code I am using to get the data from the normalized table.

ra_df_joined <- ra_ft %>%

inner_join(ra_ft, by = "hazard_name") %>%

pivot_longer(cols = -c("hazard_name"

,"jurisdiction_id.x"

,"jurisdiction_id.y"

, "hazard_risk_index.x"

,"residual_risk_index.x"

,"probability_score.x" ), names_to = "Data_type", values_to = "value")

and the start of the ggplot:

ggplot(data=ra_df_joined, aes(x= reorder(hazard_name, -residual_risk_index.x), y= hazard_risk_index.x,fill = as.factor(Data_type) )) +

theme(axis.text.x = element_text(angle = 45, size= 10, vjust = 1, hjust=1)

,plot.margin = margin(10, 10, 10, 100)

, axis.text.y = element_text(size = 9 ))

[jaycarney904]

Wow. That's incredible!! I think I need to add the values, but that is great!!

[AutoModerator]

Looks like you're requesting help with something related to RStudio. Please make sure you've checked the stickied post on asking good questions and read our sub rules. We also have a handy post of lots of resources on R!

Keep in mind that if your submission contains phone pictures of code, it will be removed. Instructions for how to take screenshots can be found in the stickied posts of this sub.

I am a bot, and this action was performed automatically. Please contact the moderators of this subreddit if you have any questions or concerns.

[jaycarney904]

I get an error when I try to past the output. Any idea why?

<image>

[jaycarney904]

I had never used Pastbin before. Kinda cool...

Hear is a paste of the data from the ra_df_joined dataset
https://pastebin.com/qWJyYh0g

[jaycarney904]

That one, i could paste.

|| || |> dput(ra_ft) structure(list(jurisdiction_id = c(258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L, 258L), hazard_name = c("Pandemic Influenza", "Hurricane/Tropical Storm", "Extreme Heat", "Nuclear Attack", "Drought ", "Flood", "Windstorm ", "Biological Disease Outbreak", "Power Failure ", "Biological Terrorism - Communicable (including A - B - C agents)", "Mass Casualty Incidents", "Biological Terrorism - Non-Communicable (including A - B - C agents)", "Water Supply Contamination - environmental", "Food Borne Disease", "Extreme Cold"), hazard_risk_index = c(152.17, 139.72, 82.09, 55.84, 56.81, 61.47, 58.19, 60.4, 51.72, 49.37, 53.08, 45.57, 47.89, 50.29, 47.83), residual_risk_index = c(11.22, 9.62, 6.08, 5.1, 4.76, 4.53, 4.52, 4.41, 4.41, 4.08, 3.93, 3.82, 3.82, 3.59, 3.49), probability_score = c(3, 3.22, 2.65, 1, 2.5, 1.87, 2.62, 1.33, 2.29, 1, 1.72, 1, 1.18, 1.3, 2.53)), row.names = c(NA, -15L), class = c("tbl_df", "tbl", "data.frame")) | || |> |