Как я могу остановить смещение boxplot вправо, когда я использую geom_text? - PullRequest
Новая
       11

Как я могу остановить смещение boxplot вправо, когда я использую geom_text?

0 голосов
/ 01 мая 2018

Я создаю один boxplot, используя ggplot, и все в порядке, пока я не использую geom_text, чтобы добавить метку к горизонтальной линии.

Это код, который я использую без geom_text и соответствующий вывод: 

ggplot(data = x_frame, aes(x = '', y = x_frame)) +
  scale_y_log10(labels = comma, name='Transaction (GBP)') +
  geom_boxplot() +
  ggtitle('Box & Whisker')+
  geom_hline(aes(yintercept = SE, colour = 'Tukey'), linetype='dashed') +
  geom_hline(aes(yintercept = mean(x),colour = 'Mean'),linetype='dashed') +
  geom_hline(aes(yintercept = mean_std,colour = 'Mean & 1Std'),linetype='dashed')+
  scale_colour_manual(name = 'Thresholds', values=c(Tukey='red', Mean='blue', 'Mean & 1Std'='darkred'))+
  guides(colour = guide_legend(override.aes = list(shape = c('Tukey','Mean','Mean & 1Std'), size = 3)))

imagegeom_text ">

А вот код после использования geom_text и вывода: 

ggplot(data = x_frame, aes(x = '', y = x_frame)) +
  scale_y_log10(labels = comma, name='Transaction (GBP)') +
  geom_boxplot() +
  ggtitle('Box & Whisker')+
  geom_hline(aes(yintercept = SE, colour = 'Tukey'), linetype='dashed') +
  geom_hline(aes(yintercept = mean(x),colour = 'Mean'),linetype='dashed') +
  geom_hline(aes(yintercept = mean_std,colour = 'Mean & 1Std'),linetype='dashed')+
  scale_colour_manual(name = 'Thresholds', values=c(Tukey='red', Mean='blue', 'Mean & 1Std'='darkred'))+
  geom_text(aes(y=SE, label=prettyNum(round(SE),big.mark=","), x=0.1), colour='red', hjust=-0.1 , vjust = 1) +
  geom_text(aes(y=mean(x), label=prettyNum(round(mean(x)),big.mark=","), x=0.1), colour='blue', hjust=-0.1 , vjust = -0.5 ) +
  geom_text(aes(y=mean_std, label=prettyNum(round(mean_std),big.mark=","), x=0.1), colour='darkred', hjust=-0.1 , vjust = -0.5) +
  guides(colour = guide_legend(override.aes = list(shape = c('Tukey','Mean','Mean & 1Std'), size = 3)))

imagegeom_text ">

Извините, я не могу опубликовать данные, но это просто вектор чисел с высоким стандартным отклонением (следовательно, почему я использую преобразование журнала).

Большое спасибо

...