In the plots below, I want the labels to be at the center. However, they are misplaced. How to fix it? Also: is the same plot possible to reproduce with highcharter? Below is a dummy data:
library(tidyverse)
library(plotly)
df = tibble(category = c('A', 'A', 'B', 'B', 'C', 'C', 'A', 'A', 'B', 'B', 'C', 'C'),
targeting = c('Automatic', 'Manual','Automatic', 'Manual','Automatic', 'Manual', 'Automatic', 'Manual','Automatic', 'Manual','Automatic', 'Manual'),
spend_percentage = c(
35.3, 64.7, 12.9, 87.1, 73.9, 26.1, 73.3, 26.7, 50.4, 49.6, 35, 65),
type = c('Unoptimized', 'Unoptimized', 'Unoptimized','Unoptimized', 'Unoptimized', 'Unoptimized','Optimized', 'Optimized', 'Optimized', 'Optimized', 'Optimized', 'Optimized')
)
Here is the code I tried to generate the plots with their labels:
gg1 = df %>%
ggplot(aes(x = spend_percentage, y = category, fill = targeting)) +
geom_col() +
facet_grid(~type) +
ggtitle('Budget Percentage by Targetig Type ') +
theme(axis.title.y = element_text(colour="gray20", size=12,
angle=90, hjust=.5, vjust=1),
axis.title.x = element_text(colour="gray20"),
plot.title = element_text(hjust=-0.5, size = 14),
axis.text.x = element_text(size=12, angle=0, hjust=.5, vjust=-1.5)) +
xlab('Spend Percentage') +
geom_text(aes(x = spend_percentage, label = spend_percentage),
hjust = -1)
ggplotly(gg1)
>Solution :
Replace hjust = 1 in your geom_text() line with position = position_stack(vjust = 0.5) should do the job.
gg1 = df %>%
ggplot(aes(x = spend_percentage, y = category, fill = targeting)) +
geom_col() +
facet_grid(~type) +
ggtitle('Budget Percentage by Targetig Type ') +
theme(axis.title.y = element_text(colour="gray20", size=12,
angle=90, hjust=.5, vjust=1),
axis.title.x = element_text(colour="gray20"),
plot.title = element_text(hjust=-0.5, size = 14),
axis.text.x = element_text(size=12, angle=0, hjust=.5, vjust=-1.5)) +
xlab('Spend Percentage') +
geom_text(aes(x = spend_percentage, label = spend_percentage),
position = position_stack(vjust = 0.5))
ggplotly(gg1)
