У меня есть следующие данные:

Я хотел бы создать гистограмму, которая показывает частоту каждого значения Var1
вкаждый пробег. Я хочу, чтобы ось x представляла каждый прогон, а ось y - частоту каждого значения Var1
. Для этого я написал следующий скрипт R:
df <- read.csv("/home/nasser/Desktop/data.csv")
g <- ggplot(df) +
geom_bar(aes(Run, Freq, fill = Var1, colour = Var1), position = "stack", stat = "identity")
Результат, который я получил:

Проблемаявляется то, что ось х не показывает каждый прогон отдельно (ось должна быть 1, 2, .., и т. д.) и легенда должна показать каждое значение Var1
отдельно и в другом цвете. Кроме того, столбцы не очень четкие, так как трудно увидеть частоту каждого значения Var1
. Другими словами, сгенерированный график - это не обычный столбчатый столбец, подобный показанному в этот ответ
Как решить эту проблему?