r - 无法在 R 中订购条形图

Question

有人可以阐明如何订购以下条形图：

day<-c('Sun','Mon','Tue','Wed','Thur','Fri','Sat')
value<-c(13,100,45,32,56,78,65)

df<-data.frame(day,value)
df<-df[order(value),]


ggplot(df) +
  geom_bar(aes(y=tot, x=day,fill=day), stat="identity")+
  labs(title=paste( "bar plot")) +ylab("y")+xlab("x")+theme(plot.title = element_text(hjust = 0.5))

谢谢！

标签： r

Answer 1

尝试这个：

library(tidyverse)

day<-factor(c('Sun','Mon','Tue','Wed','Thur','Fri','Sat'),
            levels = c('Sun','Mon','Tue','Wed','Thur','Fri','Sat'),
            ordered = T)
value<-c(13,100,45,32,56,78,65)

df<-data.frame(day,value)

#By day
ggplot(df) +
  geom_bar(aes(y=value, x=day,fill=day), stat="identity")+
  labs(title=paste( "bar plot")) +ylab("y")+xlab("x")+theme(plot.title = element_text(hjust = 0.5))

#By value
ggplot(df,aes(y=value, x=reorder(day,value),fill=day)) +
  geom_bar(stat="identity")+
  labs(title=paste( "bar plot")) +ylab("y")+xlab("x")+theme(plot.title = element_text(hjust = 0.5))