Вы можете легко создать эту фигуру с помощью ggplot2
.
Вот фрагмент кода, в котором вы используете фрейм данных, аналогичный тому, который у вас есть:
library(ggplot2)
my_data <- data.frame(
date = factor(c(1, 2, 2, 3, 3, 4, 5, 5, 6, 7, 8, 8)),
x = c(-2, 14, -8, -13, 3, -4, 9, 8, 3, -4, 8, -1)
)
g <- ggplot(my_data, aes(x = date, y = x)) +
geom_bar(
stat = "identity", position = position_stack(),
color = "white", fill = "lightblue"
) +
coord_flip()
Это вывод:
Очевидно, официальная документация - хороший способ начать немного лучше понимать, как ее улучшить.