R: метка geom_text не распознает числовой символ

Я создал график с помощью ggplot2, и у меня есть этот код, который работает достаточно хорошо.

ggp <- ggplot(data.frame(diam.split.data$"(0,10]"),aes(x=intcat))
ggp + geom_bar() + 
  geom_text(stat='count', aes(label=paste(round(..count../151*100),"%")), vjust=-1)

Однако мне нужно вручную изменять 151 (общее количество наблюдений для этого набора данных) каждый раз, когда я создаю другой график. Поэтому я придумал эту строку, которая дает мне 151 (и которая также работает с каждым другим набором данных):

f1 <- (as.numeric(substr(((unname((summary(diam.split.data$"(0,10]"))))[1,1]), 
  start=9, stop=20)))

Здесь нет проблем. f1 дает 151 так же, как f1 ‹- 151.

НО, когда я пытаюсь заменить 151 в коде ggplot2, это не удается:

Ошибка при вставке (формула = округление (количество/f1 * 100), «%»): объект «f1» не найден

Как указать R использовать f1 в качестве стандартного числового значения (то же самое, что и с 151)?