Как я могу округлить значения в geom_text, которые содержатся в другом тексте? - PullRequest
Новая
       42

Как я могу округлить значения в geom_text, которые содержатся в другом тексте?

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

У меня есть код: 

library(dplyr)
library(tidyr)
library(ggplot2)

eu_chats %>%
  spread(type, count, fill = 0) %>%   # Spread the count column in missed and completed
  mutate(Total = Completed + Missed) %>%   # Create the Total column
  ggplot(aes(date, Total)) + 
  geom_col(aes(fill = "Total"),
           colour = "black") + # total bar (with stat = "identity")
  geom_col(aes(y = Missed, fill = "Missed"),
           colour = "black") + # missed bar
  geom_text(aes(label = paste("Total chats:", Total)), # add total label
            hjust = -0.05, vjust = 1) + 
  geom_text(aes(label = paste("Missed chats:", Missed, "(", Missed/Total*100, "%)")), # add missed label and calculate percentage
            hjust = -0.05, vjust = -0.5, color = "red") + 
  scale_fill_manual(name = "",  # Manual fill scale
                    values = c("Total" = "forestgreen", "Missed" = "red")) +
  facet_grid(retailer~.) +  # Displayed per retailer
  scale_y_continuous(limits = c(0, max(eu_chats$count) * 2))

Который производит этот график:

enter image description here

Как можно округлить значения в метке Missed chats: до двух десятичных знаков?

Другие решения, кажется, сосредоточены только на тех случаях, когда нет другого текста, кроме самого значения.

Может ли это быть достигнуто в моем случае, при этом сохраняя текст метки?

...