ggrepel | : round_pushpin : Repel overlapping text labels | Data Visualization library

hjust = 0.5 should work better. Using hjust = 0 aligns your labels a little to the right, with the top edge of the text aligned with the middle of each peak.

Here's a reproducible example that doesn't rely on external data that might not remain available at that link. (See bottom for application to the OP dataset.)

I guess it's more a typo- you were very much on the right track. Your code doesn't run as posted (there is a large gap in your data, but that's fine).

Avoid $ in aes, and I am not quite sure why you're using levels...

Don't! Just use as.factor(variable). Or also possible as.character.

After trial and error I solved the problem.

My mistake was trying to execute the app.R script including the deploy script altogether.

When I run the deploy script separately as bellow, it works:

Ok, I finally found some time to figure this out with help from this terrific post. To start, let's load the revised list of packages:

Here's one option for how you could do that. Basically, you would want the size of the text to scale according to the length of the text. I would store your text in a data frame structure, with one column for text and the other for length:

A legend is created in ggplot2 when one or more columns in your dataset are mapped via aes() to one of the aesthetic modifiers (for example, fill, shape, size, color, alpha...). In your plot code, you are specifying a list of color values, but ggplot2 has no idea what that should be linked to in your data. Consequently, the colors are mapped according to the observations in your data frame tiny_countries line by line, without actually generating a link between your data and the color.

When you put color inside aes(), you indicate this modifier should be mapped to a particular column in your data. ggplot2 will then assign colors to each "different" value in your dataframe. If you just want ggplot2 to specify each tiny country is a different color, then, you need to pick a label for each country. We would naturally want the label to correspond to the name, since... that makes sense, so we would create the mapping via aes(color=name).

Note that this does not specify the color. Be default, ggplot2 will use it's default coloring scheme, but as you have already specified a list of proper number of values for the color... we can tell ggplot2 we want to override the default coloring and use your own specific colors manually. We do that using a scale_*_manual() function, where * corresponds to the particular aesthetic modifier in question. Putting this together you get this:

It is not working as you are inserting the vectors directly into your aes_string.

If you want yours to be working you need to be strict with your aes_string and really should only use strings:

I was asked in the comments to explain the thinking here, so I thought I would expand on the original answer, which shows up below the horizontal rule below.

The main question is how to do some operation on an unknown number of groups. There are lots of different ways to do that. In any of the ways, you need the function to be able to identify the number of groups and adapt to that number. For example, you could do something like the code below. There, I identify the unique groups in the data, initialize the required result and then loop over all of the groups. I didn't use this strategy because the for loop feels a bit clunky compared to the dplyr code.

Here is a lazy but consistent trick: Plot two geom_text_repel(). The first one with (a) an space (" ") for text, and (1) the links in color, the second one with the (b) actual label text, and (2) the links with complete transparency (i.e. segment.alpha = 0). This trick will force the rightmost end of the link towards the position of the first letter of the second label.

Replicating your code up to the geom_repels: