Какой самый простой способ заполнить область под строкой geom_freqpoly?

Question

Ось X - это время, разбитое на временные интервалы. Во фрейме данных есть столбец интервал , который указывает время для каждой строки. Столбец представляет собой фактор, где каждый интервал представляет собой отдельный уровень фактора.

Построение гистограммы или линии с использованием geom_histogram и geom_freqpoly прекрасно работает, но я бы хотел, чтобы линия, подобная предоставляемой geom_freqpoly, была заполнена.

В настоящее время я использую geom_freqpoly следующим образом:

ggplot(quake.data, aes(interval, fill=tweet.type)) + geom_freqpoly(aes(group = tweet.type, colour = tweet.type)) + opts(axis.text.x=theme_text(angle=-60, hjust=0, size = 6))

Я бы предпочел иметь заполненную область, например, предоставленную geom_density, но без сглаживания линии:

Было предложено geom_area, есть ли способ использовать сгенерированную ggplot2 статистику, такую ​​как ..count .., для значений y geom_area? Или агрегация количества должна произойти до использования ggplot2?

---

Как указано в ответе, geom_area (..., stat = "bin") является решением:

ggplot(quake.data, aes(interval)) + geom_area(aes(y = ..count.., fill = tweet.type, group = tweet.type), stat = "bin") + opts(axis.text.x=theme_text(angle=-60, hjust=0, size = 6))

производит:

Answer 1

Возможно, вы хотите:

geom_area(aes(y = ..count..), stat = "bin")

Answer 2

geom_ribbon может использоваться для создания заполненной области между двумя линиями без необходимости явного построения многоугольника. Здесь есть хорошая документация .

Answer 3

ggplot(quake.data, aes(interval, fill=tweet.type, group = 1)) + geom_density()

Но я не думаю, что это значимый рисунок.

Answer 4

Я не совсем уверен, к чему вы стремитесь. Вы хотите линию или бары. Вы должны проверить geom_bar на заполненные бары. Что-то вроде:

p <- ggplot(data, aes(x = time, y = count))
p + geom_bar(stat = "identity")

Если вы хотите, чтобы линия была заполнена снизу, вам следует взглянуть на geom_area , который я лично не использовал, но кажется, что конструкция будет почти такой же.

p <- ggplot(data, aes(x = time, y = count))
p + geom_area()

Надеюсь, это поможет. Дайте больше информации, и мы, возможно, можем быть более полезными.

На самом деле я бы добавил индекс, просто строку данных и использовал бы его как x, а затем использовал бы

p <- ggplot(data, aes(x = index, y = count))
p + geom_bar(stat = "identity") + scale_x_continuous("Intervals", 
breaks = index, labels = intervals)