adding geom_point to a geom_rect chart in ggplot2-CodePudding

I have the following dataframe and chart created using ggplot2

library(tidyverse)

df <- structure(list(Key = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 
6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 10L, 10L, 
10L, 10L, 11L, 11L, 11L, 11L), levels = c("GC23", "GC24", "GC25", 
"GC26", "GC27", "GC28", "GC30", "GC35", "GC45", "GC48", "GC50"
), class = "factor"), Quartile = structure(c(1L, 2L, 3L, 4L, 
1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 
1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 
1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), levels = c("1", "2", "3", "4"
), class = "factor"), min = c(0.800000000000001, 70.2, 102.9, 
124.4, -108.1, -0.200000000000067, 63.2, 124.4, -70.9999999999999, 
5.29999999999999, 67.0999999999999, 144.3, -52.1000000000001, 
16, 37.1, 51.6999999999999, -19.2, 75.0999999999999, 92.7999999999999, 
161.8, -45.5, -3.80000000000003, 12.7000000000001, 31.3000000000001, 
3.30000000000013, 107.9, 120.2, 143.4, 29.7000000000001, 102.1, 
138.3, 172.3, 83.9, 183.6, 216.6, 240.3, 202.1, 258.6, 290.9, 
321.9, 107.5, 201.1, 247.1, 290.1), max = c(70.1, 102.8, 124.3, 
342.6, -0.200000000000067, 63.1, 124.4, 190.2, 4.79999999999992, 
67.0999999999999, 144.2, 209.7, 16, 37.1, 51.3999999999999, 131.7, 
75, 92.7000000000001, 161.3, 250.3, -4.70000000000006, 12.5999999999999, 
30.1, 62.9, 107.8, 119.8, 143.2, 192.3, 102, 138.2, 172.3, 258, 
183.5, 216.6, 240.3, 349.4, 258.5, 290.9, 321.9, 374.5, 201.1, 
247, 289.6, 400.9)), row.names = c(NA, -44L), class = c("tbl_df", 
"tbl", "data.frame"))

p <- ggplot()  
  geom_rect(data = df, aes(xmin = (as.numeric(Key) -0.25), xmax = (as.numeric(Key)   0.25), ymin = min, ymax = max, fill = Quartile))  
  scale_x_continuous(breaks = seq(from = min(as.numeric(df$Key)), to = max(as.numeric(df$Key))), labels = unique(df$Key))  
  theme_bw()  
  labs(y = 'Basis Points')  
  scale_fill_manual(values = c('red','orange', 'yellow', 'green'))

p

I have an additional dataframe with point values for each of the variables in Key that I would like to add as a geom_point

df2 <- structure(list(Key = structure(1:11, levels = c("GC23", "GC24", 
"GC25", "GC26", "GC27", "GC28", "GC30", "GC35", "GC45", "GC48", 
"GC50"), class = "factor"), max = c(131.8, -47.2, -12.2, 36.1000000000001, 
67.3, 27.4999999999999, 119, 133, 235.3, 287.6, 303.3), Quartile = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = "Today", class = "factor")), row.names = c(NA, 
-11L), class = c("tbl_df", "tbl", "data.frame"))

p   geom_point(data = df2, aes(x = Key, y = max, col = 'black'))

However that gives me the following error.

Error: Discrete value supplied to continuous scale

Any way around this? Ultimately, I'm trying to replicate this chart

CodePudding user response：

You need to also apply as.numeric() to Key when using df2

p   geom_point(data = df2, aes(x = as.numeric(Key), y = max), col = 'black')