weird y-axis dadged bar chart

Question

Я хочу сравнить просмотры страниц и сеансы в каждом месяце.

Итак, я получил кадр данных, как показано ниже

month time_interval sessions pageviews 
1 < 10s 564622 577686 
1 11 ~ 30 36575 84314 
1 31~60 46547 127134 
1 61~180 106056 408649 
1 181~600 125891 839148 
1 601~1800 99293 1143019 
1 >1801 38534 1014548 
2 < 10s 553552 566598 
2 11 ~ 30 35440 82011 
2 31~60 45558 124921 
2 61~180 101529 390493 
2 181~600 123027 820094 
2 601~1800 98427 1137857 
2 >1801 39178 1068057 
3 < 10s 690598 706859 
3 11 ~ 30 44409 102951 
3 31~60 56585 156536 
3 61~180 126382 492019 
3 181~600 150267 1011472 
3 601~1800 118928 1351807 
3 >1801 45465 1195310 
.... 

Теперь, я хочу, чтобы нарисовать уклонился гистограмму

вот мой код

ggplot(data=mydata, aes(x=month,y=pageviews,fill=time_interval)) + geom_bar(stat="identity",position="dodge", colour="black") 

Не знаю, почему У меня есть странный график, как показано ниже:

Answer 1

Ваши данные pageviews - это фактор. Он будет работать, если вы преобразуете его в числовую переменную. Кроме того, вы shoudl реорганизовать уровни фактора time_interval:

mydata <- transform(mydata, 
    time_interval = factor(time_interval, levels = 
     c('< 10s','11 ~ 30','31~60', '61~180','181~600', '601~1800','>1801')), 
    pageviews = as.numeric(as.character(pageviews))) 

Сюжет:

library(ggplot2) 
ggplot(data = mydata, aes(x = month, y = pageviews, fill = time_interval)) + 
    geom_bar(stat = "identity", position = "dodge", colour = "black")