Как добавить запятую в текстовую метку в geom_text? - PullRequest
Новая
       41

Как добавить запятую в текстовую метку в geom_text?

1 голос
/ 07 июня 2019

Мне нужно изменить числовой формат в geom_text(), чтобы включить запятую.

Я видел связанные вопросы и не могу заставить эти решения работать.Я пробовал "sep =" один, тип count / sum (count) и какой-то другой код, который я только что расшифровал, не зная, что что-то значило.Мне нужна линия жизни здесь, прежде чем это сводит меня с ума.

Вот мои данные: 

 N_PASSENGERS Count Mean_Dist Mean_Time Mean_Fare
         <int> <int>     <dbl>     <dbl>     <dbl>
1            1 57216      2.16     10.2       145.
2            2  8421      1.92      9.21      213.
3            3  2022      2.01      9.67      234.
4            4   572      1.96      9.22      351.
5            5   306      2.40      9.84      505.
6            6   184      1.90      7.63      446.


ggplot(Difference, aes(x = N_PASSENGERS, y = Mean_Dist, size = Count)) + 
  geom_point() + 
  scale_size(range = c(0, 20)) + 
  xlim(0, 6) + 
  ylim(1.75, 2.5) + 
  geom_text(aes(label = Count), 
            size = 3, vjust = 4.2, 
            WHAT THE HELL GOES HERE TO MAKE SOME COMMAS HAPPEN?) +
  theme_minimal() + 
  theme(legend.position = "none") + 
  labs(x = "Number of Passengers", 
       y = "Mean Distance",
       title = "Trips by Number of Rides and Distance") + 
  theme(plot.title = element_text(hjust = .5))

Я хотел бы видеть цифры вроде 10000 рядом с моей точкой данных.Вместо этого я вижу цифры вроде 10000. Я ценю, что это по-детски простой вопрос.Я пытаюсь научить себя R, поэтому я ценю любую помощь с этим.

Ответы [ 2 ]

0 голосов
/ 07 июня 2019

Вы можете отформатировать текстовые метки в эстетическом отображении aes() в geom_text.

Вместо: 

  ... +
  geom_text(aes(label = Count), size = 3, vjust = 4.2) +
  ...

Использование: 

  ... +
  geom_text(aes(label = scales::comma(Count)), size = 3, vjust = 4.2) +
  ...

Полные данные и код: 

Difference <- read.table(text = "
                         N_PASSENGERS Count Mean_Dist Mean_Time Mean_Fare
                         1            1 57216      2.16     10.2       145.
                         2            2  8421      1.92      9.21      213.
                         3            3  2022      2.01      9.67      234.
                         4            4   572      1.96      9.22      351.
                         5            5   306      2.40      9.84      505.
                         6            6   184      1.90      7.63      446.")

ggplot(Difference, aes(x = N_PASSENGERS, y = Mean_Dist, size = Count)) + 
  geom_point() + 
  scale_size(range = c(0, 20)) + 
  xlim(0, 6) + 
  ylim(1.75, 2.5) + 
  geom_text(aes(label = scales::comma(Count)), 
            size = 3, vjust = 4.2) +
  theme_minimal() + 
  theme(legend.position = "none") + 
  labs(x = "Number of Passengers", 
       y = "Mean Distance",
       title = "Trips by Number of Rides and Distance") + 
  theme(plot.title = element_text(hjust = .5))

plot

0 голосов
/ 07 июня 2019

Вы можете использовать пакет scales, который позволяет использовать некоторые параметры форматирования, такие как comma, dollar или percent. 

df <- data.frame(a=c("a","b","c","d"), b=c(300,1000,2000,4000))
library(ggplot2)
library(scales)
ggplot(df, aes(a, b)) + 
  geom_point(size=4) +
  scale_y_continuous(labels = comma)

plot

...