R: geom aesthetic only for one level or category

Question

I am trying to control geom aesthetic for some category or level, example

    set.seed(123)
    Cases = round(rnorm(16, 500, 22))
    Country = LETTERS[seq( f