Значения графика над гистограммой

Question

Я не использовал r, но я недавно решил использовать его для построения графиков - из-за его большой возможности сделать это. Я хотел бы сделать мой график лучше. В частности, я собирал цифры над барами. Я видел Adding labels to ggplot bar chart и я пытался использовать

geom_text(aes(x=years, y=freq, ymax=freq, label=value, 
       hjust=ifelse(sign(value)>0, 1, 0)), 
      position = position_dodge(width=1)) + 

Но цифры не удалось показать.

Вот мой код:

# Load ggplot2 graphics package 
library(ggplot2) 

# Create dataset 
dat <- data.frame(years = c("1991", "1993", "1997", "2001", "2005", "2007", "2011", "2015"), 
freq = c(43.20, 52.13, 47.93, 46.29, 40.57, 53.88, 48.92, 50.92)) 

# Plot dataset with ggplot2 
ggplot(dat, aes(years, freq)) + geom_bar(stat = "identity", width=0.55) 
+ labs(x="Year",y="") + theme_classic() 

# Comma as decimal mark 
format(df, decimal.mark=",") 

Answer 1

В ggplot2 вы можете добиться этого с помощью geom_text(). aes() для этой геометрии необходимо предоставить то, что должно отображаться (label) и позиционирование.

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

ggplot(dat, aes(years, freq)) + 
    geom_bar(stat = "identity", width=0.55) + 
    geom_text(aes(label=format(freq,decimal.mark = ","), y=freq+1.1)) + 
    scale_y_continuous(breaks = seq(0,50,10)) + 
    theme_classic() 

Это немного более идиоматическое сделать:

library(scales) 

ggplot(dat, aes(years, freq)) + 
    geom_bar(stat = "identity", width=0.55) + 
    geom_text(aes(label=comma(freq), y=freq+1.1)) + 
    scale_y_continuous(breaks = seq(0,50,10)) + 
    theme_classic() 

как scales пакета имеет много удобных этикетировочные встроенные.

Надеюсь, что это поможет.